VBA recherchev

[Hx2000]

Bonjour,

suite à un message sans réponse, je republie mon message :

Bonjour à tous,

Malgré les nombreux sujets à ce propos et étant débutant, je n'arrive pas à utiliser la fonction VlookUp (recherchev) en vba... Une des raisons, c'est de savoir où j'inscris ce code? Module? Workbook? Et si quelqu'un peut m'expliquer en 2 mots pourquoi, ça me permettra de ne plus demander à l'avenir!
Je sais utiliser recherchev sans code vba, mais j'avoue que ça alourdit trop mon fichier et le rend lent....

J'ai trouvé ce code qui est celui que je comprends le mieux aujourd'hui.

Sub recherchev()
Range("a12") = Application.WorksheetFunction.VLookup("t1", Range("a1:b6"), 2, 0)

End Sub
Donc, si je comprends bien :
- (Range "a12") c'est la cellule où je veux le résultat.
- ("t1") C'est la cellule que l'on cherche?
- (Range "a1:b6") c'est là où je vais chercher ("t1")
- "2" c'est la deuxième colonne (ça c'est ok c'est comme RechercheV sans vba
- "0" je suppose que cela correspond à faux et 1 à vrai?

Cependant, je ne sais pas où le mettre comme dit plus haut, et je ne sais pas comment l'appliquer dans une plage de donner entière (ex : de a12 à a482)

Merci d'avance

 

[Hieu]

Salut,

Dans un premier temps, le plus simple, c'est de mettre ton code dans un module.
Je l'écrirai comme ceci :

Sub recherchev()
Range("a12") = WorksheetFunction.VLookup("t1", Range("a1:b6"), 2)
End Sub

Range("a12") ==> la cellule a12
WorksheetFunction ==> Fonction Excel
Puis tu l'utilises comme excel.

Dans ton exemple, tu as mis 4 arguments ; le 4eme étant facultatif (voir aide dans Excel)


Ci-dessous un exemple avec une boucle

Sub Bouton1_Cliquer()
For i = 2 To 10
Range("f" & i) = WorksheetFunction.VLookup(Range("f" & i), Range("a2:c10"), 2)
Next i
End Sub