Bonjour à toutes et à tous,

Me voilà à nouveau avec un souci que je n'arrive pas à résoudre :

J'ai la macro suivante qui m'a été donné et que j'ai pu modifier avec un ami :
Code :
Sub rechercher()
Dim rgZoneRecherche As Range, rgLastzoneCell As Range
Set rgZoneRecherche = Sheets("Repondeurs").Range(ZoneRecherche)
With rgZoneRecherche.Areas(rgZoneRecherche.Areas.Count)
Set rgLastzoneCell = Cells(.Row + .Rows.Count - 1, .Column + .Columns.Count - 1)
End With
On Error Resume Next
Set lastCell = rgZoneRecherche.Find(What:=Quoi, _
After:=IIf(lastCell Is Nothing, rgLastzoneCell, lastCell), _
LookIn:=IIf(Valeur, xlValues, xlFormulas), _
LookAt:=IIf(Totalite, xlWhole, xlPart), _
SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=Casse, SearchFormat:=False)
On Error GoTo 0
Application.EnableEvents = False
If Not lastCell Is Nothing Then
lastCell.Select
Else
Sheets("Repondeurs").Range(ZoneCliquer).Select
End If
Application.EnableEvents = True
End Sub

Ce code fonctionne parfaitement mais quand je recherche une info (c'est un n° de tel) qui est dans une autre feuille, il n'y va pas !!!

Je pense que ce le code à modifier est le suivant :
Code :
Set rgZoneRecherche = Sheets("Repondeurs").Range(ZoneRecherche)

et qu'il faut peut-être remplacer "Repondeurs" par un truc qui lui indique "tout le classeur" mais je n'arrive pas à trouver.

Je joins un fichier test.

Merci pour votre aide précieuse,
Amicalement,
Lionel,

Bonjour à tous,

Toujours aussi nul en VBA (j'avance quand même un peu).

L'écriture (automatique) de la macro me donne ça :

Rows("2:10000").Select
ActiveWorkbook.Worksheets("Smatr").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Smatr").Sort.SortFields.Add Key:=Range("D2 http://www.developpez.net/forums/images/smilies/icon_biggrin.gif" type="#_x0000_t75" o:spid="_x0000_i1026">10000"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Smatr").Sort
.SetRange Range("A2http://www.developpez.net/forums/images/smilies/icon_razz.gif" type="#_x0000_t75" o:spid="_x0000_i1025"> 10000")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

"Smatr" est le nom de l'une des feuilles dans mon classeur et j'aime le changer pour que la macro s'éxécute sur n'importe quelle feuille de mon classeur.

Un grand merci pour votre aide.

Lionel,

Merci à tous pour votre aide,
Amicalement,

Bonjour Didier,

Je reviens sur vos MsgBox qui fonctionnent à merveille.
Cependant, j'ai un petit soucis :
Quand je lance votre MsgBox, si je m'aperçois que j'ai lancé par erreur et que je veux arrêter l'opération, je ne peux pas. Voir fichier joint.

Y-t-il une solution ?

merci de votre aide,
Amicalement,
Lionel,

Bonjour Didier,
Je vous remercie pour votre réponse et vous m'avez apporté la solution car en effet et c'est tout bête, j'avais modifié la feuille contenant la cellule J7 qui est devenu H7 et j'ai tout simplement oublié de modifier la macro.

En ce qui concerne le second fichier que je n'ai pas joint, comme je l'ai dit dans mon message, il est trop important, j'ai essayé mais je n'ai pas pu.

En ce qui concerne votre "juste" remarque :Par ailleurs cher arthour973, tu serais bien gentil d'éviter de copier-coller ici tes messages laisser en premier lieu chez nos amis d'XLD ou d'ailleurs. Je t'invite notamment à prendre connaissance de mon avis sur la question et te remercie de ta compréhension.",

vous avez tout à fait raison et je vous prie de m'en excuser.

Ce n'est pas mon habitude et je ne l'avais jamais fait.

Si j'ai fait cela, c'est uniquement parce que j'avais trouvé votre macro sur le net et ma réaction immédiate a été de m'adresser au forum sur lequel je suis inscrit depuis début décembre et sur lequel j'ai trouvé des gens formidables.

Cependant, l'impatience étant comme la colère mauvaise conseillère, je me suis dit qu'il serait peut-être mieux de m'adresser à la personne qui a écrit cette macro et que ce serait plus simple... ce qui est quand même le cas.

Bien évidemment, cela ne remet pas cause la qualité des amis auxquels je m'adresse habituellement.

Je vais encore faire un copier/coller car par honnêteté je veux qu'ils soient informés de cela.

merci à vous d'avoir trouvé "ma bêtise" dans la macro et je confirme votre remarque. Je ne recommencerai plus cela.

Amicalement,
Lionel,

 Bonjour à tous,

Tout d’abord, je vous présente mes vœux pour cette nouvelle année. Vœux de santé, de bonheur et de réussite tous azimuts pour vous-même et ceux que vous aimez.

Je suis nouveau sur votre site.

Je me suis inscrit suite au téléchargement de ce qui suit :

 

'---------------------------------------------------------------------------------------

' Author    : Didier FOURGEOT (myDearFriend!) - www.mdf-xlpages.com

' Date      : 12/12/2008

' Topic     : mDF MsgBoxPerso et boutons personnalisés v1.2

'---------------------------------------------------------------------------------------

' Exemples d'utilisation de la mDF MsgBoxPerso

 

Ensuite, j'ai créé un fichier classeur1 et j'ai recopié les codes, créé une seconde macro et tout marche bien.

Puis, j’ai copié la macro complète de mon classeur 1 dans mon classeur « Matrice », et là, l’une des deux macros ne fonctionne pas et pourtant les codes sont identiques dans les deux classeurs.

Malheureusement, bien que j'ai réduit mon classeur Matrice à sa plus simple expression, il est trop gros, je ne peux pas le joindre.

 
Erreur 13 incompatibilité de type

Déjà que je ne connais pas VBA, là, c'est vraiment trop fort pour mon neurone de 1er janvier.

Pourriez-vous m’aider ?

Je joins les deux classeurs. J’utilise excel 2010.
Je vous en remercie par avance.
Amicalement,
Lionel,