Discussion :

[affre]

Bonjour
Avec le code ci dessous à la première ouverture du userform,le menu déroulant ne s'affiche pas,il faut commencer à écrire du texte dans le combobox pour que le menu déroulant apparaisse.
Ensuite pour les accés suivant au combobox,dans le menu déroulant,la liste prédéfinie s'affiche deux fois.
Merci d'avance pour votre aide.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub ComboBox2_Change()
'case type d'article
 
ComboBox2.AddItem ""
ComboBox2.AddItem "texte 1"
ComboBox2.AddItem "texte 2"
ComboBox2.AddItem "texte 3"
ComboBox2 = UCase(ComboBox2)
 
End Sub

[Invité]

Bonjour,
Je pense que le problème vient de l'événement géré à savoir :

Code :

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

PrivateSub ComboBox2_Change()

qui donc s'exécute lorsque se produit un changement dans ComboBox2.
Il faut initialiser cet élément à l'ouverture du UserForm.
Il te faut donc mettre ton code dans le module gérant cet événement et donc :

Code :

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

Private Sub UserForm_Initialize()

[affre]

Bonjour Jean Claude
Merci pour ton aide.
Ca marche très bien.
cordialement.