RechercheV

Bonjour,

j'essaie de faire un rechercheV avec VBA, tant que les données se trouvent la requête s'exécute mais une fois il tombe sur une valeur introuvable dans l'autre feuille il m'affiche une erreur : voici le code

Sub Bouton3_Cliquer()

Dim i As Integer
Dim j As Integer
Dim var As String

For i = 2 To 260
For j = 2 To 47

If IsEmpty(Sheets("Feuil3").Range("A" & j)) Then j = j + 1

var = WorksheetFunction.VLookup(Sheets("Feuil1").Range("A" & i), Sheets("Feuil3").Range("A:B"), 2, False)

If IsError(var) Then
MsgBox ("valeur introuvable")

Else

Sheets("Feuil1").Range("C" & i).Value = WorksheetFunction.VLookup(Sheets("Feuil1").Range("A" & i), Sheets("Feuil3").Range("A:B"), 2, False)

End If

Next j
Next i

End Sub

Ici le IsError ne marche pas j'ai essayé avec var = "" ca ne marche pas non plus.

Merci de maider :(