WorksheetFunction.VLookup

[Valentin_Loupe]

Bonjour à tous,

Je voudrais savoir pourquoi je ne peux pas écrire :

If WorksheetFunction.VLookup(Range("B12:D12"), Sheets("Données").Range("ListeDépartementsZoneTempérature"), 2, False) = "G" then
Range("H33")=12
End If

Pourriez-vous me dire comment je dois écrire cette ligne de commande et si je dois déclarer une variable ?

Je vous remercie par avance,

Bon dimanche,

Valentin

 

[job75]

Re : WorksheetFunction.VLookup

Bonjour Valentin,

Le 1er argument de VLookUp doit être une valeur unique comme Range("B12"), pas une matrice comme Range("B12: D12"). Il suffit de faire une petite boucle For Each...Next ou plus simple, d'écrire 3 fois la fonction.

PS : Perso j'écris Application plutôt que WorksheetFunction, c'est plus simple...

 

[Valentin_Loupe]

Re : WorksheetFunction.VLookup

Bonsoir job65, bonsoir à tous,

Ouép ca fonctionne nickel, merci pour ton aide !
Par contre peux tu me dire la différence entre WorksheetFunction et Application ? Car en fait j'ai essayé les deux, ca fonctionne pareil ! J'avais trouvé le WorksheetFunction dans l'aide VBA en recherchant "Vlookup".

Merci encore,

Valentin

 

[job75]

Re : WorksheetFunction.VLookup

Re,
ça fonctionne pareil, Application est plus simple à écrire.

 

[Valentin_Loupe]

Re : WorksheetFunction.VLookup

Re,

Oki, ca marche, merci beaucoup pour ton aide

A bientôt,

Valentin