Pb Combobox dont la liste ne s'affiche pas tout le temps

Bonjour à tous,

Je sollicite votre aide, après bcp de temps passé sur internet pour trouver une solution, sans succès

Voici le problème assez basique :

Lorsque je lance l'userform, le combobox est vide.

Si je ferme le userform avec la croix rouge, et que je la relance, la liste s'affiche.

Voici un gif pour vous montrer le problème (1 image vaut mille mots) :

Sauriez-vous d'où ca vient ?

Merci d'avance,

Code :

Private Sub UserForm_Initialize()
Dim DernLigne As Long
DerLigne = Worksheets("Synthese").Range("D" & Rows.Count).End(xlUp).Row

UserForm1.Show
UserForm1.ComboBox1.RowSource = "Synthese!D2:D" & DerLigne

End Sub

Bonjour,

L'évènement UserFrom_Initialize se lance à l'ouverture de ton USF, donc pourquoi refaire un Show, qui plus est est avant la définition du contenu de ta combobox !???

Private Sub UserForm_Initialize()
Dim DernLigne As Long
DerLigne = Worksheets("Synthese").Range("D" & Rows.Count).End(xlUp).Row
'UserForm1.Show <= Pourquoi !!!!???
UserForm1.ComboBox1.RowSource = "Synthese!D2:D" & DerLigne
End Sub

A+

Ben oui, c'etait si evident!

merci de m avoir ouvert les yeux, ca fonctionne