Discussion :

[manu1983]

Bonjour,

Tout d'abord merci d'avoir pris le temps de me lire.
Je cherche à résoudre le problème suivant. la macro ci-dessous se met en erreur dès que la focntion recherchev ne trouve pas de correspodnace pour la case alors que ce que je souhaiterai c'est qu elle passe à la ligne suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
On Error GoTo sortie
Sub TEST1()
i = 14
   While i < 1000
   On Error GoTo sortie
Range("N" & i).Value = WorksheetFunction.VLookup(Range("L" & i), Sheets("turb").Range("B1:B1000"), 1, 0)
i = i + 1
sortie: i = i + 1
Wend
End Sub

Merci de votre aide en esperant avoir été assez claire

[Daniel.C]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub TEST1()
i = 14
While i < 1000
On Error GoTo sortie
Range("N" & i).Value = Application.VLookup(Range("L" & i), Sheets("turb").Range("B1:B1000"), 1, 0)
i = i + 1
sortie: i = i + 1
Wend
End Sub

[manu1983]

Merci, C'était si simple et pourtant j'ai cherché longtemps