vlookup syntaxe

[ben_osty]

Bonjour

Quelqu'un pourrait-il valider la syntaxe de la macro suivante?

Sub test()

Dim Z As String
Z = Application.VLookup(plant1lect.Caption, Sheets("Feuil1").Range("A5:A18"), 6, FAUX) & ".jpg"

MsgBox Z 'lit la valeur de Z

End Sub

merci

 

[Modeste]

Re : vlookup syntaxe

Bonsoir ben_osty,

Difficile de deviner à quoi pourrait correspondre ton "plant1lect.Caption" ... mais si tu écris "Range("A5:A18") ... je vois mal comment tu pourrais récupérer une donnée dans la 6e colonne de cette plage 😕

 

[mapomme]

Re : vlookup syntaxe

Bonsoir ben_osty,

Sans le fichier, pas facile. Peut-être ?:

Z = Application.WorksheetFunction.VLookup(plant1lect.Caption, Sheets("Feuil1").Range("A5:F18"), 6, False) & ".jpg"

 

[Hulk]

Re : vlookup syntaxe

Hello Ben_Osty, Modeste 🙂, mapomme,

Juste pour dire que si la valeur recherchée (plant1lect.Caption) n'existe pas dans la liste, il plante !

Pour tester... tu mets comme ceci dans A et B :

A1 = Noms
A2 = Kulligan
A3 = Bianon
A4 = Oural
A5 = Pomard

B1 = Prénoms
B2 = Charles
B3 = Jeanne
B4 = Mireille
B5 = Serge

Et que tu fais

    Dim Z As String

    Z = Application.VLookup("Pommard", [A2:B5], 2, False) & ".jpg"

    MsgBox Z

Il va planter.

Si tu fais

    Dim Z As String

    Z = Application.VLookup("Pomard", [A2:B5], 2, False) & ".jpg"

    MsgBox Z

Il va afficher "Serge.jpg"

 

[ben_osty]

Re : vlookup syntaxe

Merci a vous et à ma pomme >> réponse valider par ma bécane!!
😉