Remplir un combobox

Bonjour.

Mon probleme parait simple mais je tourne en rond depuis un bon moment.

Ma procedure "AlimenterCombo" m'affiche une erreur d'execution:424.

Mais si je met le meme code dans l'evenement "Initialize" de l'userform, ca marche a merveille.

Ma question? Comment remplir min combobox sans passer par l'evenement "Initialize" de l'userform.

Merci

Bonjour,

Drôle de demande ... m'enfin ...

Sub AlimenterCombo()
Dim j As Integer
Dim DerLigne As Integer
Dim f As Worksheet

    Set f = ThisWorkbook.Sheets(1)
    DerLigne = Range("A" & Rows.Count).End(xlUp).Row

    For j = 2 To DerLigne                                               'Balayage de tous les enregistrements
        UserForm2.ComboBox1 = f.Range("C" & j)                                        'Situation familliale
        If UserForm2.ComboBox1.ListIndex = -1 Then UserForm2.ComboBox1.AddItem Range("C" & j)   'Eliminer les doublons
    Next j

    Set f = Nothing
    UserForm2.Show
End Sub

ric

Bonjour.

Merci pour votre aide0