On error goto

[Johanne]

J'ai un code VBa qui fonctionne bien. Le code fait une sélection avec un filtre et quelque fois, il arrive que aucun enregistrement ne réponde aux critères. Quand c'est le cas, ça provoque une erreur et le programme plante.

J'ai essayé d'insérer ceci dans mon code VBA

au début du code après les déclarations des variables

On error goto CodeErreur

à la fin du code

CodeErreur:
msgbox("Aucun enregistrement ne répond au critères")
exit sub

mais peut importe qu'il y ait une erreur ou pas, le message s'affiche.

Quelqu'un a une idée du pourquoi? Merci

 

[michel]

bonjour Johanne

"On error goto CodeErreur " doit bien etre placé juste après les déclarations des variables comme tu l'as fait

par contre "CodeErreur:" doit etre placé en fin de procédure et "Exit Sub" doit etre placé juste au dessus de "CodeErreur:"


Sub MaMacro()
Dim MaVariable As Long
On Error GoTo CodeErreur
...
...
...
Exit Sub
CodeErreur:
msgbox("Aucun enregistrement ne répond au critères")
End Sub


bonne journée
MichelXld

 

[Johanne]

Merci beaucoup Michel, ça fonctionne à merveille!!!