Trier en ordre alphabétique dans un combobox

Dim i As Byte, j As Byte
Dim temp As String

With ComboBox1
For i = 0 To .ListCount - 1
For j = 0 To .ListCount - 1
If .List(i) < .List(j) Then
temp = .List(i)
.List(i) = .List(j)
.List(j) = temp
End If
Next j
Next i
End With

Cliquez pour agrandir...