Discussion :

[Wyrgle]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Theze]

Bonjour,

Un peu de lecture ici !

[pijaku]

Bonjour,

Si tu veux :

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Theze]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[joe.levrai]

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