Tri dans une list boxRésolu

Question

Voil&#224; le d&#233;cor : 

J'ai 42  nombres (&#224; trois chiffres) &#224; tri&#233; par ordre croissant. Ces 42 nombres sont d&#233;finis par l'interm&#233;diaire que 42 cases (lblBoules) et &#224; chaque case est li&#233; une boules (donc un nombre de 1 &#224; 42 [X$(i)])
Donc exemple de phrase que j'obtient dans la liste box : 341 fois 42, 354 fois 4, ect ...
Le texte s'affiche correctement dans la liste box mais j'aimerais faire un tri que je n'arrive pas en l'occurence, sur ces fameux nombres &#224; trois chiffres (lblboules) .... Est ce que vous pouvez me dire ou je me trompe... Merci. Voici mon code...

' Tri
        Dim X$(42)
        Dim Z$(42)
        Dim Y(42)
        
        For i = 0 To 41
            X$(i) = lblBoules(i)
            Y(i) = i + 1
            Z$(i) = X$(i) & "  fois  " & Y(i)
            lstTri.AddItem Z$(i)
        Next i
       
        
' Tri par ordre croissant
                
        For i = 0 To 40
            For j = i + 1 To 41
                If Val(lstTris.Itemdata.X$(i)) < Val(lstTris.Itemdata.X$(j)) Then
                     k = X$(i)
                     X$(i) = X$(j)
                     X$(j) = k
                     l = Y(i)
                     Y(i) = Y(j)
                     Y(j) = l
                End If
            Next j
        Next i
        
        For i = 0 To 41
            Y(i) = i + 1
            Z$(i) = X$(i) & "  fois  " & Y(i)
            lstTri.AddItem Z$(i)
        Next i

Voil&#224;... Merci d'avance.

Luca62

Gobillot · Accepted Answer

&#224; moins de prendre une ListView

la ListBox n'a pas de tri descending

on peut pas non plus supprimer la propri&#233;t&#233; sorted

la solution c'est de prendre 2 ListBox



    For i = List1.ListCount - 1 To 0 Step -1

        List2.AddItem List1.List(i)

        Next


Daniel

Gobillot · Answer

Pourquoi ne pas utiliser le tri de la ListBox



'   faut mettre la propri&#233;t&#233; Sorted &#224; True dans VB

'   List1.Sorted = True

    

    

    Dim i As Integer

    Dim x As String

    Dim lblboules(41) As String

    

'pour les besoins du test

    For i = 0 To 41

        lblboules(i) = Int(Rnd * 1000)

        Next

    

    For i = 0 To 41

        x = lblboules(i)

        List1.AddItem Space$(3 - Len(x)) & x & "  fois " & (i + 1)

        Next i


Daniel

PCPT · Answer

il manque un petit Randomize &#224; l'exemple de Gobillot
sinon, l'id&#233;e du Space(...), je trouve &#231;&#224; pas mal ;)
PCPT

luca62 · Answer

Merci, c'est un param&#232;re des listes box que je ne connaissais pas. Mais y at-il moyen de classe du plus grand au plus petit au lieu du plus petit au plus grand ?

Merci.

Luca62.

PCPT · Answer

non.
dans ce cas, tu dois trier un premier tableau, et tu incr&#233;mentes la list en partant de la fin

For i =  Ubound(MonTableau) to 0 Step -1
   List.AddItem Space$(3 - Len(Cstr(MonTableau(i)))) & MonTableau(i) & "  fois " & (i + 1)
next i

PCPT

luca62 · Answer

Merci merci &#224; vous. Cela fonctionne comme je le voulais maintenant....

Bonne journ&#233;e &#224; vous.

Luca62.