J'ai trouvé une discussion sur ce forum concernant ce sujet.
Le code d'Hervé XLDnaute Barbatruc fonctionne bien sauf que les données dans le ComboBox sont juxtaposées et non pas alignées.
Voici mon code légèrement modifié :
Comment le corriger pour des données alignées dans le ComboBox.
Merci d'avance pour votre aide.
Le code d'Hervé XLDnaute Barbatruc fonctionne bien sauf que les données dans le ComboBox sont juxtaposées et non pas alignées.
Voici mon code légèrement modifié :
VB:
Private Sub UserForm_Initialize()
Dim Coll As New Collection
Dim Cellule As Range
With Me.ComboBox1
.ColumnCount = 4
.ColumnWidths = ("45;50;50;120")
End With
With Sheets("BDD")
For Each Cellule In .Range("Tableau1")
On Error Resume Next
Coll.Add Cellule, CStr(Cellule)
If Err = 0 Then
Me.ComboBox1.AddItem (CStr(Cellule))
End If
On Error GoTo 0
Next Cellule
End With
End Sub
Merci d'avance pour votre aide.