J'ai bien vu sur le forum des cas traités mais avec des formules excel.
Mais, j'ai rien vu qui traite de ce cas directement sur une feuille VBA.
Si quelqu'un a vu un lien de cette nature s'il vous plaît...
Private Sub UserForm_Initialize()
Dim x
With Sheets("Feuil1")
derlig = .Cells(.Rows.Count, "a").End(xlUp).Row
If derlig > 1 Then
For Each x In Feuil1.Range("A2:A" & derlig)
If x <> "" Then ComboBox1.AddItem x
Next x
End If
End With
End Sub
Finalement, en cherchant j'ai trouvé ceci sur un autre forum et suis heureux de le partager ici:
VB:
Private Sub UserForm_Initialize()
Dim lf As Long 'déclare la variable lf (Ligne de Fin)
Feuil1.Select
lf = Range("A15").End(xlUp).Row 'définit la variable lf
ComboBox1.Clear 'vide la ComboBox1
'remplit la ComboBox4
For Each cel In Range("A2:A" & lf) 'boucle sur toutes les cellule de A1 à A_lf
'condition : si la cellule n'est pas vide ajoute son contenu à la ComboBox1
If cel.Value <> "" Then ComboBox1.AddItem cel.Value
Next cel 'prochaine cellule 'Dim Malist As Range
'With Feuil1
' Set Malist = .Range("A1:A10")
'End With
'Dim l As Integer
'UserForm1.ComboBox1.List = Malist.Value
End Sub