Activer ou désactiver la gestion des erreurs

hello tout le monde,

Dans une application Excel, j'ai inséré des "on error goto erreur" pour afficher des messages d'erreurs plus conviviaux pour l'utilisateur. En revanche, lorsque je développe, je mets ces instructions en commentaires afin que le code s'arrête à la ligne concernée 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. 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

Salut,

Eventuellement utiliser un ‘’Drapeau’’

Un truc du genre :

Tu cliques soit sur un bouton ‘’Avec gestion des erreurs’’ – lié au premier code ci-dessous - soit sur un bouton ‘’Sans gestion des erreurs’’ – lié au deuxième code.

Option Explicit
Dim Drapeau As Boolean

Sub Premier_code()
    Drapeau = True
    Call Deuxième_code
End Sub

Sub Deuxième_code()
    If Drapeau = True Then
        ' Faire ceci-cela AVEC la gestion des erreurs
        Drapeau = False ' Je crois que c'est nécessaire, pour un prochain lancement de la macro, mais je n'ai pas testé
    Else
        ' Faire ceci-cela SANS la gestion des erreurs
    End If
End Sub

Sincèrement.

Bonjour Yvouille,

Je vous remercie de votre aide.

voici la solution appliquée :

Prodédure d'ouverture du classeur dans lequel on indique si la gestion des erreurs est active ou non :

Private Sub Workbook_Open()

'Valeur ? modifier manuellement True ou False

'pour activer ou non la gestion des erreurs

blnGestErreur = False

If blnGestErreur = False Then

MsgBox "Gestion des erreurs désactivée.", vbInformation

End If

End Sub

Et ensuite dans le code :

If blnGestErreur Then

On Error GoTo erreur

End If

Merci pour votre aide et toute bonne journée

Fabrice

Salut Fabrice,

Afin de pouvoir utiliser les valeurs False et True, tu dois déclarer ton ''drapeau'' comme variable booléenne - comme j'ai indiqué Dim Drapeau As Boolean - et ton drapeau à la valeur False par défaut . Tu ne dois la changer en True que si nécessaire.

Ainsi ton instruction blnGestErreur = False me paraît inutile.

Amicalement.

Bonjour Yvouille,

Merci pour ton complément d'information.

Toute bonne journée

Fabrice