Classer les elements d'une listbox par ordre alphabetique

Soyez le premier à donner votre avis sur cette source.

Vue 4 746 fois - Téléchargée 383 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

Personnellement, meme si je comprends le fonctionnement de ton code, je le trouve illisible. Pense a l'indentation !, au commentaire... les codes presentés ici ne sont pas destinés a du copier/coller, mais a eduquer les developpeurs ... (je n'ai pas noté ton code)
-
Ki cé kà mis 1 note pareille?? Fo pô dékoné là les gars!...
-
Avec des commentaires, ça aiderais pour comprendre mais c'est super, BRAVO! (je cherchais depuis un moment un truc comme ça).
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é
ADN733R
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???????????????

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.