[Résolu] [VBA] récupérer les coordonnées de la Range suite a Range(ma Range).Find

[peper_eliot]

Bonsoir,
J'aurais besoin de votre éclairage d'expert 😉

Sur un USF je cherche si la valeur saisie dans la TextBox1 existe dans mon Tableau1

    With Sheets("Feuil1").ListObjects("Tableau1")
        Set CHERCHE = Range("Tableau1[Numéro]").Find(What:=TextBox1.Value, LookAt:=1)

'++NUMERO EXISTE
If Not CHERCHE Is Nothing Then

... Si elle est là... et je sais quelle est là 😉 j'aimerai connaitre sa position pour pouvoir récupérer des valeurs voisines par Offset

Jusqu'à présent, j'avais l'habitude de procéder comme suis

CHERCHE.Activate
VALEUR1 = ActiveCell.Offset(0, 1).Value

Mais, je me suis dis : "pourquoi passer par ... CHERCHE.Activate ??? Ne peut-on pas connaitre sa position autrement ?

Je tourne en boucle... j'ai pas trouvé ...😡 mais je suis sûr que l'un d'entre vous pourra m'expliquer si oui ou non cela est possible 😉

D'avance merci

 

[peper_eliot]

Re : [VBA] récupérer les coordonnées de la Range suite a Range(ma Range).Find

Eh ben, quel gros bêta...
Il suffisait que j'écrive ce poste pour que mes neurones se remettent à fonctionner 😉

Il suffit de coder

VALEUR1 = CHERCHE.Offset(0, 1).Value
MsgBox VALEUR1