Bonjour,
Il ya deux façons de procéder :
La première est de définir un tableau et l'intégrer dans la combobox :
Private Sub UserForm_Initialize()
Dim MaListe(4)
For i = 0 To 4
MaListe(i) = "Choix" & Str(i)
Next i
ComboBox1.List = MaListe
End Sub
La deuxième consiste à utiliser la méthode AddItem
Private Sub UserForm_Initialize()
For i = 0 To 4
ComboBox1.AddItem "Choix" & Str(i)
Next i
End Sub
Cordialement
Epéna