erreur VBa

Bonjour cm
Public sub macro1()
On Error Goto Gesterr ' en début de code

Gesterr: ' en fin de code
If Err.Number>0 Then
Ton message
Endif
end sub
"cm" <c02@wanadoo.fr> a écrit dans le message de news:
42a195bb$0$915$8fcfb975@news.wanadoo.fr...

re bonjour,
j'ai une deuxième petite question concenant vba , merci d'avance a ceux
qui

pourrait m'aider
dans une macro j'utilise une recherche (style selection.find
...l'équivalent

de la recherche traditionnel ctrl + F dans xls)...........il arrive
parfois

que la recherche n'aboutit pas car la donnée recherchée n'existe pas et
est

donc introuvable, ce qui entraine un bug de la macro...
ce que je souheterai faire c'est une instruction msgbox "la recherche du
code n'aboutit pas" ...et que la macro arret son exécution ?? comment
faire

?? surtout pour traduire en vba : si il ya une erreur dans la recherche
alors allez à ...
merci de votre aide
a+

Bonjour,
Soit directement

Sub masub()
On error goto sortie
'mamacro
exit sub
sortie:
msgbox "la recherche du code n'aboutit pas"
end sub

mais sinoon en général:

on error resume next
'avant la partie concernée
'lorsque c'est le code qui volontairement provoque l'erreur
'ne pas oublier de mettre
' après instructions
on error goto 0

ou bien

application.displayalertsúlse
'avant les instructions conduisant à un
'message d'alerte prévu par excel
'ne pas oublier de mettre
' après instructions
application.displayalerts=true

et enfin autre moyen pour rediriger une erreur :

Sub masub()
on error goto errhandler
'ici mes instructions
'et si tout va bien on arrive à
goto sortie
'sinon c'est qu'on est renvoyé à
errhandler:
msgbox "la recherche du code n'aboutit pas"
'et autres instructions en cas d'erreur
sortie:
end sub


'lSteph

"cm" <c02@wanadoo.fr> a écrit dans le message de news:
42a195bb$0$915$8fcfb975@news.wanadoo.fr...

re bonjour,
j'ai une deuxième petite question concenant vba , merci d'avance a ceux
qui pourrait m'aider
dans une macro j'utilise une recherche (style selection.find
...l'équivalent de la recherche traditionnel ctrl + F dans
xls)...........il arrive parfois que la recherche n'aboutit pas car la
donnée recherchée n'existe pas et est donc introuvable, ce qui entraine
un bug de la macro...
ce que je souheterai faire c'est une instruction msgbox "la recherche du
code n'aboutit pas" ...et que la macro arret son exécution ?? comment
faire ?? surtout pour traduire en vba : si il ya une erreur dans la
recherche alors allez à ...
merci de votre aide
a+