Problème combobox

resolutionexcel Messages postés 5 Statut Membre -  
 MrBurns -
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 714 Statut Membre 247
 
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 Statut Membre
 
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
MrBurns
 
Intéressant
0
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
bonjour

essaies:

Private Sub UserForm_Initialize()
ComboBox1.AddItem "A"
ComboBox1.AddItem "C"
End Sub
0
resolutionexcel Messages postés 5 Statut Membre
 
Ca ne fonctionne toujours pas...
0
resolutionexcel Messages postés 5 Statut Membre
 
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
MrBurns
 
Fabuleux
0