Classer les elements d'une listbox par ordre alphabetique

Soyez le premier à donner votre avis sur cette source.

Vue 4 925 fois - Téléchargée 451 fois

Description

bon on m'a demandé des commentaires..j en donne pas de pb..

Source / Exemple :


Public Function ClAsserlist(listbox_a_classer As ListBox)
'declarations des données ki serons utilisé ulterieurement...
Dim tbl(0 To 99)
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim e As Integer
Dim t As Integer
Dim d As Integer
'la boucle passe tous les elements de la list en revu.
For a = 0 To listbox_a_classer.ListCount
'format c pour que tous soit en majuscule
'je place ds le tableau tous les membres de la listbox
tbl(a) = Format(listbox_a_classer.List(a), ">")
DoEvents
Next a
'j'efface tous les elements de la liste
listbox_a_classer.Clear
'le tbl servira + tard pour le classement
'il va de 64 a 90 car c la valeur des 
'<> caracteres majuscule..
'32 represente l'espace
Dim nouv(32 To 90, 1 To 99)

For c = 0 To 99
'cherche le premier membre ou il y 
'a quelque chose ds le tableau et donne sa valeur
'a c
If tbl(c) = "" Then c = c - 1: Exit For

Next c

For d = 0 To c
For t = 1 To 99

If nouv(Asc(tbl(d)), t) = "" Then nouv(Asc(tbl(d)), t) = tbl(d): Exit For

Next t

Next d
Dim ec As Integer
ec = 0
For e = -33 To 25
For tb = 1 To 99
If nouv(65 + e, tb) <> "" Then listbox_a_classer.AddItem nouv(65 + e, tb), ec: ec = ec + 1
If nouv(65 + e, tb) = "" Then Exit For
Next tb

Next e
End Function

Conclusion :


voila s'il manque des excplications pas de pb...
;-)
bon ben voila ca me parait pas trop dur mais si vous avez un pb ou juste une question sur le fonctionnement du code n'esitez pas a la posée

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
9
Date d'inscription
dimanche 30 mars 2003
Statut
Membre
Dernière intervention
28 mai 2009

Surtout que la propriété sorted des listbox a priori n'existe pas partout... moi, en tous les cas, je ne la trouve po... même po dans l'aide... :-þ
Messages postés
41
Date d'inscription
lundi 23 décembre 2002
Statut
Membre
Dernière intervention
1 mars 2007

Super !

J'avais justement besoin de faire un trucs dans ce genre... Cela m'évite de le réecrire !

Après 2 ou 3 modifs car je dois les classer sous 3 / 4 critères différents et le tour est joué .

Merci et bonne prog.

Note pour ceux qui pense à la propriété Sorted d'une listbox : Cela n'arrange pas forcément les bidons si, comme moi vous devez classer des éléments selon plusieurs critères.
De plus, sur quel critères s'appuie cette propriété : Le premier ? Possible mais ce n'est pas toujours le top .
Messages postés
63
Date d'inscription
mardi 15 mai 2001
Statut
Membre
Dernière intervention
14 mai 2004

y a pas une propriété sorted sur les listes???????????????
c bien joli tout sa mais tu sais, tu T cassé le cul pour rien car
1er : ton code ne classe que par rapport au premier caractere , sa veut dire que sa reste encore un peu mélangé
et 2eme : il suffit tout simpleement, mais alors vraiment simplement de mettre la propriété sorted du listbox a true et le tour est joué!
mais autrement, si c toi qui a fait sa, t'as bien bossé

Avec des commentaires, ça aiderais pour comprendre mais c'est super, BRAVO! (je cherchais depuis un moment un truc comme ça).
Afficher les 7 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.