Soyez le premier à donner votre avis sur cette source.
Vue 5 271 fois - Téléchargée 498 fois
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
24 déc. 2003 à 12:01
5 nov. 2003 à 15:17
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 .
12 août 2002 à 17:13
23 août 2001 à 14:04
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é
20 juin 2001 à 13:04
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.