ErrorHandler à placer dans macro principale ou sous-macro ?

Bonjour à tous,

Je veux mettre une petite gestion d'erreurs dans mon projet : une macro principale appelle plusieurs sous-macros (50-60 environs).
La macro principale ne présente pas de problème, mais les sous-macros parfois.
D'ou ma question : la séquence suivante

Code:

---

1 2 3 4 5 6 7

On Error GoTo errorHandler   'la procédure Exit Sub   errorHandler: MsgBox Err.Description

---

doit-elle être placée dans chaque sous-macro ou seulement dans la macro principale ? Mon but étant de lister les messages d'erreurs dans un dernier MsgBox ou bien dans un onglet.

Merci pour votre aide !!
Wyrgle

Bonjour,

Un peu de lecture ici !

Bonjour,

Si tu veux :

Citation:

---

Mon but étant de lister les messages d'erreurs dans un dernier MsgBox

---

Alors il te faut une gestion d'erreur dans chaque sous-macro.
Ces gestions d'erreur alimentent une variable publique MessageDerreur As String, comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Dim MessageDerreur As String   Sub Main() MessageDerreur = "" Call Macro1 Call Macro2 MsgBox MessageDerreur End Sub   Sub Macro1() On Error GoTo errorHandler1   'la procédure Exit Sub   errorHandler1: MessageDerreur = MessageDerreur & vbCrlf & Err.Description End Sub   Sub Macro2() On Error GoTo errorHandler2   'la procédure Exit Sub   errorHandler2: MessageDerreur = MessageDerreur & vbCrlf & Err.Description End Sub

---

Tout en sachant bien que les erreurs doivent être évitées tant que de possible.

Re,

Tu peux gérer les erreurs dans la procédure appelante, c'est son gestionnaire qui va gérer les erreurs produites dans les procédures appelées :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

Sub Test()   Dim Retour As Double Dim Message As String   On Error Resume Next   Retour = Fonction1(10) If Err.Number <> 0 Then Message = "Erreur dans la fonction 'Fonction1()' :" & vbCrLf & Err.Description & vbCrLf & vbCrLf   Porcedure1 If Err.Number <> 0 Then Message = Message & "Erreur dans la procédure 'Porcedure1()' :" & vbCrLf & Err.Description & vbCrLf & vbCrLf   'etc...   MsgBox Message   End Sub   Function Fonction1(Valeur As Double) As Double   Fonction1 = Valeur / 0   End Function   Sub Porcedure1()   Dim Fe As Worksheet Set Fe = Worksheets("Feuille qui n'existe pas")   End Sub

---

Effectivement, si tu doit gérer des erreurs d'une façon particulière afin de définir les actions à faire en fonction des erreurs produites, il est préférable d'avoir le gestionnaire dans la Sub ou Fonction appelée car si il est dans la procédure appelante, à la première erreur rencontrée, la Sub ou Fonction retourne l'erreur au gestionnaire de la procédure appelante sans aller plus loin dans son code

Bonjour,

une discussion récente sur la gestion d'erreur, et la possibilité d'en imbriquer plusieurs mais avec un comportement à bien maîtriser

https://www.developpez.net/forums/d1...o/#post9083400