[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