Discussion :

[Gregory.M]

Bonjours,


J essaye de gere mes erreurs dans une boucle et lorsqu'une erreur est généré la manipuler et ensuite continuer dans la boucle.
Cependant je n arrive pas à le faire, je débute en VBA.

Voila ce que j'ai tenté

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
 
 
While ((Range("A" & numLigne) <> "") And (Range("B" & numLigne) <> "") And (Range("C" & numLigne) <> ""))
 
        'Ouverture du fichier avec le chemin de la colonne A
        On Error GoTo GestionErreur
...
 
        numLigne = numLigne + 1
 
        Exit Sub
GestionErreur:
            MsgBox Err.Description
            Range("D" & numLigne) = "Erreur ligne" & numLigne & ": " & Err.Description
            Range("A" & numLigne, "C" & numLigne).Interior.ColorIndex = 45
            numLigne = numLigne + 1
            Resume
Wend

Losrque le compilateur passe sur la lisgne "Exit Sub" il recommence ma méthode depuis le début, c est dire qu il repart la boucle depuis 0

Cordialement

[SilkyRoad]

bonsoir


Modifie ta procédure en déplaçant le gestionnaire d'erreur en dehors de la boucle

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
Dim i As Integer, x As Integer
 
While ((Range("A" & numLigne) <> "") And _
    (Range("B" & numLigne) <> "") And _
    (Range("C" & numLigne) <> ""))
 
    'Ouverture du fichier avec le chemin de la colonne A
    On Error GoTo GestionErreur
    '...
    numLigne = numLigne + 1
 
Wend
 
Exit Sub
 
GestionErreur:
    MsgBox Err.Description
    Range("D" & numLigne) = "Erreur ligne" & numLigne & ": " & Err.Description
    Range("A" & numLigne, "C" & numLigne).Interior.ColorIndex = 45
    numLigne = numLigne + 1
    Resume

bonne soirée
michel