menu déroulant VBA/excel

Question

Bonjour, 

Je débute en VBA/ Excel et depuis hier je bute sur un truc qui je suis sure est simple mais que je n'arrive pas surmonter...

J'ai fais une mini base Excel en feuill3 qui a cette tete la:

Nom      code adherent Numéro adhérent
-------|--------------|---------------
dupont   04510          12345678910
durant   02500          10987654321

Mon problème est de récupérer ces valeurs dans une autre feuille.

J'ai mis un menu déroulant grace à la barre d'outil formulaire, je lui ai affecté la zone de valeurs correpondant aux noms. Le but est de récupéré les valeurs d'une ligne en fonction du nom choisi dans le menu déroulant.

Par exemple si je selectionne "dupont" dans on menu déroulant, je voudrai récupérer les valeurs "04510" et "12345678910" dans d'autre cellules.

Je n'arrive pas à definir mon menu déroulant en VBA, ni a lui demander ce que je veux faire...

Quelqu'un peut m'aider SVP?

Merci Bcp

dp_favresa · Answer

Bonjour,

Le mieux est de choisir 'Zone de liste modifiable' de la 'boîte à outils contrôles' car elle permet d'entrer les 1er caractères de la liste de choix  pour se positionner dans la liste.
Dans les propriétés de cette zone de liste, indiquer sous 'ListFillRange' les cellules contenant la liste, sous 'LinkedCell' la cellule recevant le résultat de la liste.
Pour récupérer le contenu d'une des autres cellules, insérer la formule '=EQUIV(cellule de LinkedCell;cellules de ListFillRange;0)' dans une cellule masquée (donne l'index de la ligne du choix).
Enfin, dans la cellule devant récupérer l'autre valeur insérer la formule '=INDEX(cellules contenant autre valeur;cellule contenant EQUIV)'.

Exemple :
B1:B9 noms          C1:C9 Numéros
ListFillRange=B1:B9
LinkedCell=D1          retourne le nom choisi dans liste
cellule E1 contient '= EQUIV(D1;B1:B9;0)'    retourne N° de la ligne
cellule D2 contient '=INDEX(C1:C9;E1)'    retourne Numéros

Bon(ne) courage, développement, salutation...
(choisissez ce qui vous convient)                   dp

Boulet90 · Answer

Je suis aussi d&#233;butant et je n'arrive vraimment pas &#224; faire un menu
d&#233;roulant avec des donn&#233;es sous excel dans la colone A de la feuille
active, et envoyer la valeur selectionn&#233;e dans une cellule de cette
meme feuille.



Merci de m'aider car je d&#233;sesp&#232;re de ne pas trouver  mon bonheur !!  



Boulet90

Boulet90 · Answer

J'ai oubli&#233; de pr&#233;ciser que je veut cr&#233;er le menu dans un Userform de VBA

dp_favresa · Answer

Bonjour,

L'exemple donn&#233; pr&#233;c&#233;demment reste valable, il faut associer une plage &#224; la propri&#233;t&#233; RowSource du combobox dans le form, une cellule pour recevoir le r&#233;sultat du choix dans ce combobox par la propri&#233;t&#233; ControlSource.
La fonction EQUIV cherche la correspondance entre le contenu d'une cellule et celui d'une plage et retourne le N&#176; de ligne.
La fonction INDEX retourne le contenu de la cellule correspondant au N&#176; de ligne de EQUIV dans une plage d&#233;finie.
Ci-apr&#232;s un lien vers un petit exemple : [www.favresa.ch/Ftp_file/Adherants.xls www.favresa.ch/Ftp_file/Adherents.xls.]

Bon(nes) courage, d&#233;veloppement, salutations...
(choisissez ce qui vous convient)                   dp

Boulet90 · Answer

Merci je vais m&#233;diter cela &#224; tete repos&#233;e mais je pense que j'ai compris ! 



Merci pour tout !! 



Boulet90

Menu déroulant VBA/excel

5 réponses

Discussions similaires