Vlookup

Résolu
Marc -  
 Marc -
Bonjour à tous,

J'aimerais faire un Vlookup en VB au sein d'une boucle Do Until.

Mon fichier excel a plusieurs sheets

Le vlook up sera sur la sheet appellée test

i est un compteur sur la feuille "test".

J'ai essayé la syntaxe suivante :


Cells(i,8)= Application.WorksheetFunction.VLookup(Cells(i,3),Sheets("Input").Range("A:A","AO:AO"),3,False)

Cela ne fonctionne pas malheureusement. Je pense que c'est lié au second argument de la fonction...

Merci beaucoup pour votre aide.

2 réponses

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

exemple avec traitement erreur si non trouve:

Sub test1()
If Not IsError(Application.VLookup(Cells(i, 3), Sheets("Input").Range("A:C"), 3, False)) Then
y = Application.VLookup(Cells(i, 3), Sheets("Input").Range("A:C"), 3, False)
ElseIf Not IsError(VLookup(Cells(i, 3), Sheets("Input").Range("AO:AQ"), 3, False)) Then
y = Application.VLookup(Cells(i, 3), Sheets("Input").Range("AO:AQ"), 3, False)
Else
y = "Pas Trouvé"
End If
Cells(i, 8) = y
End Sub
0