Liste déroulante VBA [Résolu/Fermé]

Signaler
Messages postés
6
Date d'inscription
vendredi 4 novembre 2016
Statut
Membre
Dernière intervention
28 janvier 2017
-
Messages postés
15391
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
25 octobre 2020
-
Bonjour !

J'ai fais une macro VBA qui se lance par bouton dans un classeur Excel. Cette macro permet de sélectionner un fichier qui sera traiter en conséquence ( c'est pas important). Avant la sauvegarde de ce nouveau fichier je voudrais une boite de dialogue s'ouvre avec une liste déroulante avec (du vide, A, B, C, D, E,F). Quand la personne clic sur la lettre , celle-ci s'affiche dans le nom du fichier qui sera : datelettre - 2 - Injection.txt .

Problème ! Je sais faire une liste déroulante sur Excel mais rien sur internet en VBA... Je voudrais juste que mes données soit enregistrer dans le code et qu'une boite de dialogue s'ouvre à l'instant t avec la liste déroulante de ces valeurs. Une idée ?
J'ai déjà essayé de faire une liste de valeurs sur le classeur puis une liste déroulante UserForm1 ( mais je n'arrive pas à l'intégrer dans le code car ma boite de dialogue s'affiche sans les valeurs ( , A,B,C,D,E,F).

Merci d'avance.

1 réponse

Messages postés
15391
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
25 octobre 2020
1 383
Bonjour,

s'affiche sans les valeurs ( , A,B,C,D,E,F).
Elles sont ou ces valeurs, dans une feuille de calcul ou ....????
Messages postés
6
Date d'inscription
vendredi 4 novembre 2016
Statut
Membre
Dernière intervention
28 janvier 2017

Ces valeurs sont inscrites dans le classeur qui ouvre la macro.
Messages postés
15391
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
25 octobre 2020
1 383 >
Messages postés
6
Date d'inscription
vendredi 4 novembre 2016
Statut
Membre
Dernière intervention
28 janvier 2017

Re,

code a mettre dans UserForm1 en adaptant la feuille et la plage de cellules

Private Sub UserForm_Activate()
    ListBox1.List() = Worksheets("feuil3").Range("A1:A7").Value
End Sub
Messages postés
6
Date d'inscription
vendredi 4 novembre 2016
Statut
Membre
Dernière intervention
28 janvier 2017

Merci bcp ça marche ! Je voulais savoir comment on fait pour revenir sur la macro après que l'on sélectionne une lettre ?
Messages postés
15391
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
25 octobre 2020
1 383 >
Messages postés
6
Date d'inscription
vendredi 4 novembre 2016
Statut
Membre
Dernière intervention
28 janvier 2017

Re,

Je vous fais un exemple
Par contre pourquoi un blanc dans la liste ??????????????

fichier exemple: https://www.cjoint.com/c/FKepNzvyief

A+