Discussion :

[askan]

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

[zyhack]

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 :

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

[askan]

merci Zyhac. Ca marche parfaitement.
A bientot,
Askan