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.
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 | | |
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$hOyFHA.2212@TK2MSFTNGP15.phx.gbl...
| Bonjour,
|
| Comment peut on faire pour trier la liste d'un combo dans un ordre alpha
par
| exemple ?
|
| Merci d'avance.
|
| Damien
|
|
|
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 | | |