Gestion des erreurs en commentaire

[winzek]

hello tout le monde,

Dans une application Excel, j'ai inséré des "on error goto erreur" pour afficher des messages d'erreurs plus sympa pour l'utilisateur. En revanche, lorsque je développe, je mets ces instructions en commentaires afin que le code s'arrête à la ligne en cas d'erreur d'exécution.

Il arrive que j'oublie de réactiver les instructions de gestion des erreurs. Est-ce que vous auriez des conseils pour permettre d'activer ou non une gestion d'erreurs personnalisée dans l'ensemble d'une application Excel. Ou quels sont vos méthodes de travail pour gérer les erreurs ?

D'avance merci pour vos conseils et toute bonne journée

Cordialement
Fabrice

 

[sylvanu]

Bonjour Winzek,
Il doit exister moult solutions. L'une d'entre elle est celle ci:
Dans Thisworkbook mettre :

Private Sub Workbook_Open()
     Flagerreur=0
     If Flagerreur=0 then MsgBox "Gestion des erreurs désactivées."
End Sub

et dans le module de gestion des erreurs mettre :

If Flagerreur=0 then exit sub

quand tout est fini soit vous supprimez le module dans Thisworkbook, soit vous mettez Flagerreur=1
Donc à chaque ouverture fichier, un message vous préviens que vous avez désactivé la gestion des erreurs.
Ce qui évite d'ailleurs de mettre la gestion des erreurs en commentaires.

 

[winzek]

bonjour Sylvanu,

Ca me semble une excellente idée, merci. Je vais tester en indiquant pour chaque gestion d'erreur :

If Flagerreur =0 then
on error goto 0
else
on error goto erreur
end if

Je vous tiens au courant.
Encore merci et belle journée
Fabrice

 

[winzek]

Bonjour à tous,

Cela a très bien fonctionné. Merci beaucoup.

Cordialement
Fabrice