Vlookup

Résolu/Fermé
Marc - 6 nov. 2013 à 01:43
 Marc - 6 nov. 2013 à 13:02
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 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
Modifié par f894009 le 6/11/2013 à 11:27
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