tri sur combobox

Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm
Dim cel As Range 'déclare la variable cel
ComboBox1.Clear 'vide la ComboBox1
'remplit la ComboBox1
For Each cel In Range('F11:F400') 'boucle sur toute les cellules de la plage F11:F400
'condition : si la cellule n'est pas vide, ajoute la valeur à la ComboBox1
If cel.Value <> '' Then ComboBox1.AddItem cel.Value
Next cel 'prochaine cellule de la boucle
End Sub

Cliquez pour agrandir...