pmfontaine
XLDnaute Occasionnel
Bonjour à tous,
Pour gérer les erreurs dans une macro, On Error GoTo ligne, marche pour une erreur sur recherche non trouvée une première fois, mais si cette erreur se reproduit dans une boucle cela plante.
Voir le code si dessous et le fichier joint.
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. [file name=gestionerreur.zip size=7269]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/gestionerreur.zip[/file]
Pour gérer les erreurs dans une macro, On Error GoTo ligne, marche pour une erreur sur recherche non trouvée une première fois, mais si cette erreur se reproduit dans une boucle cela plante.
Voir le code si dessous et le fichier joint.
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. [file name=gestionerreur.zip size=7269]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/gestionerreur.zip[/file]