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