Erreur sur Recherche non trouvée

[pmfontaine]

Bonjour,
Comment faire pour que lors d'une recherche avec Cells.Find(What:=diamoyen, LookIn:=...etc il n'y ai pas de message d'erreur si la valeur n'est pas trouvée.
Voir fichier joint.
Merci [file name=erreur_recherche_non_trouvee.zip size=15711]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/erreur_recherche_non_trouvee.zip[/file]

 

[pierrejean]

bonjour pmfontaine

voici une solution à adapter eventuellement

attention la gestion des erreurs est chose complexe et je ne pretends pas aller au fond du trefonds des choses !! [file name=erreur1.zip size=16445]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/erreur1.zip[/file]

 

[pmfontaine]

Merci,
ça me convient parfaitement.
Bon W.E.

 

[pmfontaine]

Bonjour à tous,
Me revoilà à nouveau avec les problèmes d'erreur.
La solution proposée par pierrejean marche si l'erreur ne se produit qu'une fois, mais si dans une boucle l'erreur se reproduit ça ne marche pas.
Le bout de code si dessous gère bien l'erreur à la première boucle, mais plante à la deuxième


Sub gestion_erreur()
For a = 1 To 2
On Error GoTo Fin 'ajout
Cells.Find(What:='texte_rechercher', LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Exit Sub 'ajout
Fin: 'ajout
MsgBox ('texte_rechercher Pas trouvé') 'ajout
Next a
End Sub

Merci d'avance pour votre aide, car je ne m'en sort pas avec l'aide de Visuel basic.