Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

trier la liste d'un combo

3 réponses
Avatar
Bonjour,

Comment peut on faire pour trier la liste d'un combo dans un ordre alpha par
exemple ?

Merci d'avance.

Damien

3 réponses

Avatar
Christian Hugoud
Il me semble qu'il y a une propriété Sort.

Christian

<util> a écrit dans le message de news:
uEch$
Bonjour,

Comment peut on faire pour trier la liste d'un combo dans un ordre alpha
par exemple ?

Merci d'avance.

Damien





Avatar
Jacques93
Bonjour util,
util a écrit :
Bonjour,

Comment peut on faire pour trier la liste d'un combo dans un ordre alpha par
exemple ?

Merci d'avance.

Damien






Voir la propriété Sorted

--
Cordialement,

Jacques.
Avatar
X
Et aussi, (pour un ordre décroissant), en boucle avec échange de variables
(tri bulle)...

' objets = combo1 + commandButton1
Dim i As Long
Dim j As Long
Dim variable_echange

Sub Form_Load() ' charge le combo1 au lancement
Combo1.Clear
Combo1.AddItem "g"
Combo1.AddItem "d"
Combo1.AddItem "k"
Combo1.AddItem "m"
Combo1.ListIndex = 0
End Sub

Sub Command1_Click() ' tri dans l'ordre alphanumérique décroissant
For i = 0 To Combo1.ListCount - 1
For j = 0 To Combo1.ListCount - 2
If Combo1.List(j) < Combo1.List(j + 1) Then
variable_echange = Combo1.List(j)
Combo1.List(j) = Combo1.List(j + 1)
Combo1.List(j + 1) = variable_echange
End If
Next j
Combo1.Refresh
Next i
End Sub
----------------






<util> a écrit dans le message de news:
uEch$
| Bonjour,
|
| Comment peut on faire pour trier la liste d'un combo dans un ordre alpha
par
| exemple ?
|
| Merci d'avance.
|
| Damien
|
|
|