Liste déroulante VBA

Résolu/Fermé
Titaniania Messages postés 9 Date d'inscription vendredi 4 novembre 2016 Statut Membre Dernière intervention 12 août 2023 - Modifié par Titaniania le 4/11/2016 à 13:40
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 - 4 nov. 2016 à 16:10
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

f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710
4 nov. 2016 à 14:37
Bonjour,

s'affiche sans les valeurs ( , A,B,C,D,E,F).
Elles sont ou ces valeurs, dans une feuille de calcul ou ....????
0
Titaniania Messages postés 9 Date d'inscription vendredi 4 novembre 2016 Statut Membre Dernière intervention 12 août 2023
4 nov. 2016 à 15:21
Ces valeurs sont inscrites dans le classeur qui ouvre la macro.
0
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710 > Titaniania Messages postés 9 Date d'inscription vendredi 4 novembre 2016 Statut Membre Dernière intervention 12 août 2023
Modifié par f894009 le 4/11/2016 à 15:50
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
0
Titaniania Messages postés 9 Date d'inscription vendredi 4 novembre 2016 Statut Membre Dernière intervention 12 août 2023
4 nov. 2016 à 15:58
Merci bcp ça marche ! Je voulais savoir comment on fait pour revenir sur la macro après que l'on sélectionne une lettre ?
0
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710 > Titaniania Messages postés 9 Date d'inscription vendredi 4 novembre 2016 Statut Membre Dernière intervention 12 août 2023
Modifié par f894009 le 4/11/2016 à 16:39
Re,

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

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

A+
0