For Loop with On Error GoTo

Bonjour Le Forum,

J ai une requete sur le code que j essaie de corriger. Pourriez-vous me dire la raison pour laquelle la loop ne s effectue dans la totalite.
J ai 48 lignes au total, l erreur se trouve a la 10eme par ex. Le code passe sur End Sub avec ceci:

Code:

---

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 Dim rngdata As Range Dim strtxt As String   Set rngdata = Range(Range("A2"), Range("A2").End(xlDown))   On Error GoTo Fill_Errors   For i = 2 To rngdata.Cells.Count   Range("AD" & i).Value = Application.WorksheetFunction.VLookup(Range("A" & i), Worksheets("LC").Range("A2:I180"), 6, False)   Next i   Fill_Errors:   strtxt = "NI"   Range("AD" & i).Value = strtxt   End Sub

---

Merci bien,
Askan

bonjour

dans ton code, en cas d'erreur tu sort de la boucle donc fin de la routine

si tu veux effectuer une action en cas d'erreur il faut vérifier s'il y en a eu une et faire le traitement

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Dim i As Integer Dim rngdata As Range Dim strtxt As String   Set rngdata = Range(Range("A2"), Range("A2").End(xlDown))   On Error Resume Next   For i = 2 To rngdata.Cells.Count   Range("AD" & i).Value = Application.WorksheetFunction.VLookup(Range("A" & i), Worksheets("LC").Range("A2:I180"), 6, False)   If Err.Number <> 0 Then strtxt = "NI" Range("AD" & i).Value = strtxt End If Err.Clear Next i On Error GoTo 0

---

merci Zyhac. Ca marche parfaitement.
A bientot,
Askan:D