VBA EXCEL - Adresse d'une cellule

[Phillaf]

Bonjour,

Je cale sur l'affichage de l'adresse d'une cellule dans une variable.
Je m'explique:
Je fais une recherche de valeur dans une plage et j'aimerais afficher dans une variable l'adresse de la cellule correspondant à la valeur trouvée.
Mon code de recherche :

c = Application.WorksheetFunction.VLookup(CDec(code), Range("b4:d13"), 2, False)

Code est la valeur recherchée.
😕Si vous pouvez m'aider d'avance Merci

 

[PascalXLD]

Re : VBA EXCEL - Adresse d'une cellule

bonjour

essaies

Set c = Range("B4😀13").Find(What:=CDec(code),Lookat:=xlwhole)
toto=c.address

 

[Phillaf]

Re : VBA EXCEL - Adresse d'une cellule

Merci Pascal,

Tu viens de me mettre sur la bonne piste, il convenait de changer un peu ton code qui donnait l'adresse de la valeur recherchée et non l'adresse de la valeur trouvée.
voilà le code pour afficher l'adresse d'une valeur trouvée:

Private Sub CommandButton1_Click()

Sheets("ent").Select
c = Application.WorksheetFunction.VLookup(CDec(code), Range("b4:d13"), 2, False)
Set c = Range("B4😀13").Find(What:=c, Lookat:=xlWhole)
toto = c.Address

MsgBox toto

End Sub

🙂🙂😉 MERCI PASCAL