S
Stéphane
Guest
Salut salut
commen faire pour supprimer les lignes vides dans une liste déroulante ...
PLIZZZZ
commen faire pour supprimer les lignes vides dans une liste déroulante ...
PLIZZZZ
Pour une ComboBox de la barre d'outils Boîte à Outils COntrôles dans un onglet :Private Sub UserForm_Initialize()
For Each cel In Range('A1:A' & Range('A65536').End(xlUp).Row)
If cel.Value ‹› '' Then ComboBox1.AddItem cel
Next cel
End Sub
Private Sub ComboBox1_GotFocus()
For Each cel In Range('A1:A' & Range('A65536').End(xlUp).Row)
If cel.Value ‹› '' Then ComboBox1.AddItem cel
Next cel
End Sub