J'ai 42 nombres (à trois chiffres) à trié par ordre croissant. Ces 42 nombres sont définis par l'intermédiaire que 42 cases (lblBoules) et à chaque case est lié une boules (donc un nombre de 1 à 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 à 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
Merci, c'est un paramè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.
Vous n’avez pas trouvé la réponse que vous recherchez ?