Re : Remplir une ListBox avec des cellules fusionnées
Hello,
Comme ceci ça joue..
Code:
Private Sub UserForm_Initialize()
Dim J&
For J = 6 To Sheets("Feuil1").[A65000].End(xlUp).Row
'Si cellule différente de vide
If Sheets("Feuil1").Cells(J, "A").Value <> "" Then
ComboBox1.AddItem Sheets("Feuil1").Cells(J, "A")
End If
Next J
End Sub