Boucle Cells.Find plante à la 2ieme recherche infructueuse
Bonjour à tous,
N'arrivant pas à trouver de réponse sur le site, je me permets de vous soumettre mon problème.
Je cherche à ressortir une liste de client ayant le même appareil.
Sur un onglet (Appareils) j'ai la liste de tous les appareils avec le nom du client.
Sur le deuxième onglet (Contacts) j,'ai l'ensemble du personnel de ce client.
Lorsque tous les clients sont connus, la macro fonctionne parfaitement.
Par contre, lorsqu'un client n'est pas connu dans l'onglet Contacts, la première fois, ma recherche Cells.find passe l'erreur et continue la macro; sur une deuxième recherche infructueuse, la macro plante et me donne une erreur "Variable objet ou variable de bloc With non définie"
La macro plante à ce niveau là:
Cells.Find(What:=Customer, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Merci de votre aide.
//Bill
Bonjour,
Peut-être commencer par mettre en PJ un classeur non protégé par MdP
Oups!
Merci M12 de la remarque.
Désolé pour cette inattention. Ci-joint le fichier déverrouillé.
Je viens de trouver la réponse à mon problème en surfant sur le forum.
En ajoutant les deux gestions d'erreur, cela résous mon problème.
On Error Resume Next
Cells.Find(What:=Customer, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
On Error GoTo SelectNextCustomer
//Bill