Salut,
 
Question : peut-on imbriquer plusieurs With/End With dans lesquels j'ai des Find/FindNext ?
 
En effet, je suis sur un bout de code.
Dans ce code j'ai une première With/End With avec Find/FindNext qui fonctionne... à l'intérieur j'ai "Loop While Not C Is Nothing And C.Address <> firstAddressC".
Si j'insère une deuxième With/End With avec Find/FindNext à l'intérieur (à l'intérieur, "Loop While Not D Is Nothing And D.Address <> firstAddressD" ), le premier "Loop While Not C Is Nothing And C.Address <> firstAddressC" ne fonctionne plus.
En effet, j'ai l'Erreur '91'  Variable objet ou variable de bloc With non définie...
   
 
J'ai bien vérifié que mes With se ferment bien avec des End With... mes Do/Loop et If/End If également
   
 
Merci pour votre aide.
 
scaryfan

Bon alors, de ce que j'ai pu lire sur le net (mais j'ai eu beaucoup de mal pour trouver la réponse), on ne peut pas imbriquer des With/End With avec plusieurs FindNext...
Et au lieu de mettre :
Set C = .FindNext(C)
Il faut mettre :
Set C = .Find(C, After:=C)
   
Étonnant non ?

 
  Bonjour, rien d'étonnant, comme expliqué dans l'aide VBA …
 

 
Aurais-tu un lien ?
 

 
  Pas besoin, juste l'aide incorporée …
 
  La méthode Range.Find comme la fonction Dir sont mono-tâches.
  Si plusieurs sont nécessaires en simultané alors il faut taper dans les fonctions Windows ou dans les basics d'Excel comme EQUIV, RECHERCHEV, …