index d'une cellule dans une liste

[blavo]

Bonjour à tous,

J'ai fait une liste de choix avec le menu validation et je dois exporter un code correspondant au choix fait par l'utilisateur.
J'ai nommé les listes de valeurs par listeRemise et codeRemise. (Insertion - Nom - Définir), le champ contenant la liste est CLNT_FARE_CODE.

En VBA : Je cherche donc la valeur sélectionnée par l'utilisateur dans la première liste

Set posVal = Worksheets("FicheClient").Range("listeRemise").Find(Worksheets("FicheClient").Range("CLNT_FARE_CODE").Value)

j'aimerais donc accéder à la position de la valeur sélectionnée... mais la position relative (par rapport au début de la liste)... la méthode Row me donne la position de la ligne 12000 (par ex) mais comme la liste commence en 11000, j'aimerais que ça me retourne directement index = 1001 pour pouvoir ensuite accéder au code par quelque chose du type :

code = Worksheets("FicheClient").Range("codeRemise").Cells(index, 1)

je peux faire ça à la main en retranchant la valeur Row de la première cellule de la ligne... mais j'imagine qu'il existe une méthode en relatif non ??

merci de votre aide

bon aprem

Ben

 

[pierrejean]

Re : index d'une cellule dans une liste

bonjour blavo

A tester:

noligne=Posval.row-range("listeRemise").row

qui devrait te donner le Numero relatif de posval dans listeremise

 

[blavo]

Re : index d'une cellule dans une liste

Merci pour la réponse...

C'est ce que j'ai fait pour l'instant... mais je me demandais si il n'y avait pas une fonction spécifique pour ça...

Merci encore

Ben

 

[pierrejean]

Re : index d'une cellule dans une liste

Re

A noter que le code devrait etre directement évalué par

code=Posval.Offset(0, ecartdescolonnes listeremise et coderemise) si comme je le suppose les codes sont sur la même ligne que la remise