msgbox si erreur

[mephis]

Bonjour à tous et merci d'avance pour toute l'aide que vous pourrez m'apporter.

J'aimerai programmer une petite msgbox lorsque une erreur de manipulation est faite dans excel, j'ai déjà utilisé ceci:

On Error GoTo xxx

xxx:
MsgBox "...", vbOKOnly + vbExclamation, "Attention"

Mais le problème est que la msgbox s'affiche même s'il n'y a pas d'erreur.


Merci
Cordialement Mephis

 

[Papou-net]

Re : msgbox si erreur

Bonjour mephis,

Difficile d'être catégorique sans avoir le code entier à se mettre sous les yeux, mais la raison la plus probable est que même s'il n'y a pas d'erreur, le code continue sa poursuite et passe forcément par xxx:.

Le plus simple serait de modifier ton code comme suit :

On Error GoTo xxx

Goto Fin
xxx:
MsgBox "...", vbOKOnly + vbExclamation, "Attention"
Fin:
End Sub

Espérant avoir répondu.

Cordialement.

 

[ERIC S]

Re : msgbox si erreur

Bonjour à vous


Papou net : sauf erreur exit sub et non end sub

 

[Papou-net]

Re : msgbox si erreur

Bonjour à vous


Papou net : sauf erreur exit sub et non end sub

Bonjour ERIC S,

Exact, je me suis rendu compte de mon erreur et, n'étant pas parfaitement réveillé, j'ai modifié mon code.

Mais il est certain que la solution originale corrigée est plus simple.

Cordialement.

 

[mephis]

Re : msgbox si erreur

Vous êtes des vrais champions, merci à vous deux.