Bonsoir le forum
A mon avis la réponse est devant moi, mais.....
j'ai besoins de remplir ma combobox par les données d'une colonne ce situant sur une autre feuille, jusque là, pas de problème
Private Sub UserForm_Initialize()
CBC.List = Sheets("lst-com-fact").Range("B2:B100").Value
Sheets("commande").Activate
End Sub
..par contre pour avoir une liste, sans doublons, jusqu'à la dernière données (uniquement), ça coince!!
j'ai essayé ceci sans succès:
Private Sub UserForm_Initialize()
Dim DL As Integer
For DL = 1 To Range("B65536").End(xlUp)
CBC.List = Sheets("lst-com-fact").Range("B2" & DL).Row
If CBC.ListIndex = -1 Then CBC.AddItem Range("B2" & DL)
Next DL
Sheets("commande").Activate
End Sub