Combobox Vba
kumpb
Messages postés
70
Date d'inscription
Statut
Membre
Dernière intervention
-
kumpb -
kumpb -
Bonjour,
J' ai créé dans mon programme une feuille avec 4 couleurs de A1 à A4 et j'ai appelé cette feuille "Couleurs".
Sur un UserForm2 j'ai des boutons et l'un d'eux est un menu deroulant ( combobox)
je voudrai lorsque je clique sur l'ascenceur De cette combobox faire apparaitre ces 4 couleurs afin d'en choisir une lorsque je validerai sur UserForm2
Je suis debuutant en vba alors merci d'avance pour vos conseils.
J' ai créé dans mon programme une feuille avec 4 couleurs de A1 à A4 et j'ai appelé cette feuille "Couleurs".
Sur un UserForm2 j'ai des boutons et l'un d'eux est un menu deroulant ( combobox)
je voudrai lorsque je clique sur l'ascenceur De cette combobox faire apparaitre ces 4 couleurs afin d'en choisir une lorsque je validerai sur UserForm2
Je suis debuutant en vba alors merci d'avance pour vos conseils.
1 réponse
salut
Voici ma reponse j'ai fini par trouver peut etre que ca peut servir a quelqu'un
sur la feuille "couleurs " j'ai defini les couleurs dans une liste que j'ai appele liste1
puis dans mon userform2 j'ai ecrit ce qui suit
Sub UserForm_Initialize() ' initialise la page en cours
ComboBox1.List = Sheets("Couleurs").Range("liste1").Value 'recopie la liste de la page
'couleur dans la combobox
End Sub
merci de m'avoir aidé
Voici ma reponse j'ai fini par trouver peut etre que ca peut servir a quelqu'un
sur la feuille "couleurs " j'ai defini les couleurs dans une liste que j'ai appele liste1
puis dans mon userform2 j'ai ecrit ce qui suit
Sub UserForm_Initialize() ' initialise la page en cours
ComboBox1.List = Sheets("Couleurs").Range("liste1").Value 'recopie la liste de la page
'couleur dans la combobox
End Sub
merci de m'avoir aidé
