Discussion :

[LucWalraf]

Bonjour,

je cherche à faire une macro qui gère plusieurs erreurs dans son déroulement. Par exemple, celle-là, qui provoque plusieurs fois une division par zéro :

Code :

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

1
2
3
4
5
6
7
8
For x = 1 To 10
 
    a = 1
    If x = 2 Or x = 4 Or x = 6 Then a = 0
 
    y = 3 / (x * a)
 
Next x

La fonction On Error me gère bien la première erreur (pour a=2) mais pas les suivantes.
J'ai essayé de la réinitialiser dans la routine de gestion d'erreur, en utilisant les Err.Clear ou On Error Goto 0 mais ça ne fonctionne pas.

Si quelqu'un a une idée : merci d'avance !

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
Sub PlusieursErreurs()
'
NbErr = 0
On Error GoTo GestionErreur
'
For x = 1 To 10
 
    a = 1
    If x = 2 Or x = 4 Or x = 6 Then a = 0
 
    y = 3 / (x * a)
 
tata:
Next x
Exit Sub
 
GestionErreur:
NbErr = NbErr + 1
'On Error GoTo 0
'On Error GoTo GestionErreur
'Err.Clear
GoTo tata
 
End Sub

[patricktoulon]

pas tres bien compris ce que tu cherche a faire


cela dit voici une demo qui n'est pas bloquante quand il y a une erreur
parcontre a la fin le message te dis exactement combien il y a d'erreurs et a quel moment elles se sont produites

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
    For x = 1 To 10
        a = 1
        If x = 2 Or x = 4 Or x = 6 Then a = 0
        On Error Resume Next ' c'est ici que l'on gere l'erreur
        y = 3 / (x * a)
        If Err Then e = e + 1 ' on comptablise le nombre d'erreur(facultatif)
        If Err Then message_erreur = message_erreur & "dans le tour de boucle  x = " & x & vbCrLf
        On Error GoTo 0 ' on annule l'erreur pour laisser la boucle tourner l'erreur a été stoké dans (message_erreur)
    Next x
    MsgBox " il y a eu " & e & "  erreurs " & vbCrLf & message_erreur
End Sub

[Patrice740]

Bonjour,

Tu aurais du écrire simplement :

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
Sub PlusieursErreurs()
'
  NbErr = 0
  On Error GoTo GestionErreur
  For x = 1 To 10
    a = 1
    If x = 2 Or x = 4 Or x = 6 Then a = 0
    y = 3 / (x * a)
  Next x
  MsgBox "il y a eu " & NbErr & " erreurs"
Exit Sub
 
GestionErreur:
  NbErr = NbErr + 1
  Resume Next
End Sub

Regardes ce tuto :
http://silkyroad.developpez.com/VBA/GestionErreurs/

[eriiic]

Bonjour,

C'est sans doute un exemple simplifié que tu as mis, mais dans un cas comme ça pourquoi laisser passer l'erreur si tu peux l'éviter ?
Autant se passer du traitement d'erreur si c'est possible :

Code :

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

1
2
3
4
5
if (x * a) = 0 then
   nbErr = nbErr + 1
else
   y = 3 / (x * a)
endif

eric

[LucWalraf]

Les deux solutions proposées utilisent la fonction Resume Next (mais pas de la même manière) - c'est clair, merci.

J'ai aussi réussi en utilisant On Error Goto -1 pour réinitialiser le gestionnaire d'erreur.

Bonne journée !