Tri Listbox

[Mattharm]

Bonjour,

Je réalise un tri dans une listbox en utilisant le code :

With Listbox
    For i = 0 To .ListCount - 1
        For j = 0 To .ListCount - 1
            If .List(i) < .List(j) Then
                temp = .List(i)
                .List(i) = .List(j)
                .List(j) = temp
            End If
        Next j
    Next i
End With

Seulement mes items sont composés de "livre 1", "livre 2"... jusqu'à 40.

Il me trie les 1 puis les 2 et non dans l'ordre croissant ?!

Existe t il une solution pour avoir un tri numérique croissant ?

Merci
Mattharm

 

[PascalXLD]

Re : Tri Listbox

Bonjour

Il faudrait les nommer

livre 01, livre 02,etc

 

[Mattharm]

Re : Tri Listbox

Et bien je venais poster la réponse qui vient d'être postée......

Merci Pascal 😉
J'aurais du réfléchir 5 minutes de plus avant de poster 🙄



😉

 

[PascalXLD]

Re : Tri Listbox

Et bien je venais poster la réponse qui vient d'être postée......

Merci Pascal 😉
J'aurais du réfléchir 5 minutes de plus avant de poster 🙄



😉

Des fois c'est en postant une question le fait de l'écrire qui nous permet d'avoir le déclic 😉

 

[bqtr]

Re : Tri Listbox

Bonjour Mattharm, Pascal

Où sans rajouté le zéro et si tu as toujours un espace entre les lettres et les chiffres :

'.../...
If CDbl(Split(.List(i))(1)) < CDbl(Split(.List(j))(1)) Then
'.../...

A+

 

[Mattharm]

Re : Tri Listbox

Intéressant 😉

Merci bqtr 🙂


@pascal : j'écrirai sur une feuille en papier la prochaine fois 🙂😀😀

Merci à vous deux.

Mattharm