luca62
Messages postés56Date d'inscriptiondimanche 26 décembre 2004StatutMembreDernière intervention 4 août 2005
-
29 juil. 2005 à 22:34
luca62
Messages postés56Date d'inscriptiondimanche 26 décembre 2004StatutMembreDernière intervention 4 août 2005
-
30 juil. 2005 à 09:17
Voilà le décor :
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
luca62
Messages postés56Date d'inscriptiondimanche 26 décembre 2004StatutMembreDernière intervention 4 août 2005 29 juil. 2005 à 23:46
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 ?