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 : 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
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