Discussion :

[Ihaben]

Bonjour,

Ca fait quelques jours que je travail sur un projet VBA, sachant que je suis débutant sur VBA.
J'en est créer un Userform qui va permettre à l'utilisateur de faire un choix sur une liste déroulante que j'avais créer avec AddItem.
Tout fonctionne correctement, sauf que une fois je click sur le boutton Excel pour ouvrir le Userform le combobox s'apparait mais la liste déroulante non, sauf que si je fais un click sur le coté de la fenêtre UserForm c'est là quand je peux voir ma liste déroulante mais tant que je click de fois sur le coté la liste déroulant se met à doubler.
Ex : - Ouverture UserForm : Liste déroulante ne s'apparait pas.
- 1 click : Liste déroulante s'apparait.
- 2 click : Liste déroulante s'apparait deux fois et ainsi de suite.

Voici mon code VBA :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub UserForm_Click()
 
With Me.ComboBox1 'Liste déroulante
 
    ComboBox1.AddItem "Bouchon Plastique"
    ComboBox1.AddItem "Bouchon Métal"
    ComboBox1.AddItem "Blle EUR 20ML"
    ComboBox1.AddItem "Blle EUR 30ML"
    ComboBox1.AddItem "Blle SOM 20ML"
    ComboBox1.AddItem "Blle SOM 30ML"
    End With
 ComboBox1.ListIndex = 0 'Afficher la première sélection des AddItem
 
 
End Sub

Merci.

[joe.levrai]

Bonjour,

c'est tout à fait normal, dans la mesure où ta liste se crée sur l'évènement "Click" du Userform
à chaque clic tu vas recréer tous tes éléments, d'où les doublons puis triplons etc...


utilise l'évènement Initialize par exemple, ou Activate.
et surtout, passe un petit coup de .Clear sur ta combobox avant de la remplir, une précaution qui ne mange pas de pain.

[Ihaben]

Ah oui, ça marche très très bien.
Merci beaucoup pour votre aide Joe.