Liste déroulante VBA
Résolu
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.
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
-
Bonjour,
s'affiche sans les valeurs ( , A,B,C,D,E,F).
Elles sont ou ces valeurs, dans une feuille de calcul ou ....????-
-
@TitanianiaRe,
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 -
-
@TitanianiaRe,
Je vous fais un exemple
Par contre pourquoi un blanc dans la liste ??????????????
fichier exemple: https://www.cjoint.com/c/FKepNzvyief
A+
-
