• Initiateur de la discussion Initiateur de la discussion Hx2000
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Hx2000

XLDnaute Nouveau
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.
Code:
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
 
Salut,

Dans un premier temps, le plus simple, c'est de mettre ton code dans un module.
Je l'écrirai comme ceci :
VB:
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
VB:
Sub Bouton1_Cliquer()
For i = 2 To 10
Range("f" & i) = WorksheetFunction.VLookup(Range("f" & i), Range("a2:c10"), 2)
Next i
End Sub
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
17
Affichages
479
Retour