Annonce
L'appel à participation est ouvert jusqu'au 19 janvier 2025!
#1 Fri 17 June 2005 18:00
- Dialine
- Invité
trier dans une combobox
De: didier
Bonjour,
J'ai chargé une combobox avec des données issues d'un champ d'une table (additem).
Connaitriez vous le code pour classer cette liste dans l'ordre croissant ?.
MERCI
#2 Mon 20 June 2005 22:55
- Frederic Prally
- Invité
Re: trier dans une combobox
De: Frédéric Prally
Bonjour Didier,
Tu peux essayer le code de Kirk Kuykendall, téléchargeable au lien suivant :
http://forums.esri.com/Thread.asp?c“& … c=8#243428
Le code :
Option Explicit
Private Sub UserForm_Initialize()
AddItem "zebra", Me.ComboBox1
AddItem "banana", Me.ComboBox1
AddItem "dog", Me.ComboBox1
AddItem "apple", Me.ComboBox1
AddItem "cat", Me.ComboBox1
End Sub
Sub AddItem(sItem As String, cmbBox As ComboBox)
' adds item retaining alphabetic order
Dim l As Long
For l = 0 To cmbBox.ListCount - 1
Select Case StrComp(cmbBox.List(l), sItem, vbTextCompare)
Case 0: Exit Sub ' already in the combobox
Case 1
cmbBox.AddItem sItem, l
Exit Sub
End Select
Next l
cmbBox.AddItem sItem
End Sub
Ou alors le petit truc serait de faire un tri de la table avant de faire l'opération d'ajout des éléments dans la combobox ! A voir.
En espérant que cela puisse t'aider un peu.
Frédéric Prally
