Probleme RechercheV VBA

[Swizer]

Bonjour a tous

voila j'ai un classeur avec deux feuilles, je voudrais chercher une valeur qui se trouve sur la feuille 1 cellule (c9)
le tableau ou cherche la valeur et en feuilles 2, nommé TAB.
le résultat doit s'affiche a la feuilles 1 cellule (d9)

J'ai essayé un truc du genre
Sub recherche()
Sheets("feuil1").Select
Worksheets(1).Range("d9").Value = Application.VLookup(Range("c9"), Sheets("feuil2").Range("A2:A54", "b2:b54"), 2, True)
End Sub

Merci de votre aide,

 

[youky(BJ)]

Re : Probleme RechercheV VBA

Bienvenu au forum,
J'utilise le .codeName et non le .Name de l'onglet, cela permet de renommer les onglets sans bug.

Sub recherche()
Feuil1.[D9]=Application.VlookUP(Feuil1.[C9],Feuil2.[A2:B54],2,False)
End Sub

Bruno

 

[Swizer]

Re : Probleme RechercheV VBA

Bonjour,
merci pour ton aide , ca marche très bien
svp j'ai une question pour la généraliser sur les autre ligne il faut faire une boucle?
Merci encore pour ton aide.

 

[youky(BJ)]

Re : Probleme RechercheV VBA

Oui
tu peux ici remplacer 10 par feuil1.[D65000].end(3).row qui va chercher la dernière ligne de col D
et 5 commence à la ligne 5
For lig=5 to 10
Feuil1.Cells(lig,4)=Application.VlookUP(Feuil1.Cells(lig,3),Feuil2.[A2:B54],2,False)'4 est col D
Next

Bruno

 

[Swizer]

Re : Probleme RechercheV VBA

Merci beaucoup pour ton aide