Trier le contenu d'une combobox

T

teddy

Guest
Bonjour,

Existe-t-il un moyen plus simple que le transfert dans un tableau, le tri de celui-ci puis le rechargement de la combobox ?

D'avance merci pour les lumières !!!
Teddy
 
E

Eric C

Guest
Bonjour le forum
Bonjour teddy

Personnellement, j'utilise depuis quelques temps cette fonction qui fonctionne impec.


Dans le UserForm_Initialize () :
CboX.List = ListSort(CboX.List) ==> CboX étant le nom de ton ComboBox
End Sub

Function ListSort(liSte)
Dim First As Integer, Last As Integer
Dim i As Integer, j As Integer
Dim Temp

First = LBound(liSte)
Last = UBound(liSte)
For i = First To Last - 1
For j = i + 1 To Last
If liSte(i, 0) > liSte(j, 0) Then
Temp = liSte(j, 0)
liSte(j, 0) = liSte(i, 0)
liSte(i, 0) = Temp
End If
Next j
Next i
ListSort = liSte
End Function

@++ Eric C
 

Discussions similaires

Réponses
13
Affichages
330

Statistiques des forums

Discussions
313 099
Messages
2 095 247
Membres
106 234
dernier inscrit
JESS97354