Bonsoir francois
ce type de code trie une combobox.
Citation:
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
|
salut
Edition : salut michel
Message édité par: Hervé, à: 11/11/2005 19:08