Classer les elements d'une listbox par ordre alphabetique

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (POLYPHAGE)