Problème combobox

Fermé
resolutionexcel Messages postés 5 Date d'inscription vendredi 19 mars 2010 Statut Membre Dernière intervention 13 septembre 2010 - 13 sept. 2010 à 11:43
 MrBurns - 24 mai 2016 à 12:27
Bonjour,

J'ai un problème sur un combobox dans un userform.

Voici mon combobox:

Private Sub ComboBox1_Change()
ComboBox1.AddItem "A"
ComboBox1.AddItem "C"
End Sub

J'ai deux problèmes:
- lorsque mon userform s'ouvre et que je clique sur le menu déroulant du combobox, rien ne s'affiche. Si j'entre une donnée quelconque dans le combobox puis je l'efface alors apres cette manip, les données A et C s'affichent.
- une fois les données affichées, plus je clique sur le menu déroulant, plus les données A et C apparaissent or, je ne souhaite avoir que deux données d'affichées (A et C) et pas 10 fois A et 10 fois C...


Merci pour votre aide!

3 réponses

tchernosplif Messages postés 600 Date d'inscription dimanche 8 novembre 2009 Statut Membre Dernière intervention 21 juin 2015 244
13 sept. 2010 à 11:48
préférez plutôt l'utilisation d'une liste

ecrire A et C dans 2 cellules
Insertion/Nom/définir =>liste123

puis dans les propriétés de la combobox
ListFillRange : liste123
0
resolutionexcel Messages postés 5 Date d'inscription vendredi 19 mars 2010 Statut Membre Dernière intervention 13 septembre 2010
13 sept. 2010 à 14:49
J'ai fait exactement ces changements et ca ne fonctionne toujours pas...
Rien ne s'inscrit dans la combobox...
voici le code au cas ou...

Private Sub workbook_Open()
ComboBox1.ListFillRange = "noms"
End Sub
0
Intéressant
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 305
13 sept. 2010 à 12:18
bonjour

essaies:

Private Sub UserForm_Initialize()
ComboBox1.AddItem "A"
ComboBox1.AddItem "C"
End Sub
0
resolutionexcel Messages postés 5 Date d'inscription vendredi 19 mars 2010 Statut Membre Dernière intervention 13 septembre 2010
13 sept. 2010 à 13:53
Ca ne fonctionne toujours pas...
0
resolutionexcel Messages postés 5 Date d'inscription vendredi 19 mars 2010 Statut Membre Dernière intervention 13 septembre 2010
13 sept. 2010 à 12:29
J'ai fait exactement ces changements et ca ne fonctionne toujours pas...
Rien ne s'inscrit dans la combobox...
voici le code au cas ou...

Private Sub workbook_Open()
ComboBox1.ListFillRange = "noms"
End Sub
0
Fabuleux
0