Discussion :

[punkisnotdead]

Bonjour à tous,

Je récupère des informations d'un tableau à l'aide d'une list box.
J'aimerais que ces informations soient rangées par ordre alphabétique.

Je ne sais pas comment faire.

J'y arrive pour une combobox, mais pas pour la listbox

Merci d'avance

[LeForestier]

Bonjour,
il y a un classeur dans ce topic qui fait ce que tu demande
(Dans le Initialise de l'Userform.)
A+

[punkisnotdead]

Merci !!!!

[punkisnotdead]

Euh j'ai de nouveau un problème,

En faite dans ma listbox je récupère des lignes dans un tableau, dès que je veux ranger par ordre alphabétique, je n'est que la première colonne qui se range, les autres colonnes elles restent fixent et donc les lignes se mélangent et deviennent fausse.

Qu'est-ce que je dois changer pour trier par ordre alphabétique les lignes et non pas uniquement les cases de la première colonne?
Voila ce que j'utilise.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
With lt_result 
    For i = 0 To .ListCount - 1
        For j = 0 To .ListCount - 1
            If UCase(.List(i)) < UCase(.List(j)) Then
                temp = .List(j)
                .List(j) = .List(i)
                .List(i) = temp
            End If
        Next j
    Next i
End With

[LeForestier]

Quand tu met un exemple de code oublie pas les balises code...
Sélectionner la partie code et cliquer sur # dans l'éditeur de message.
Pour ton Prob..
Copie ce code dans un module public..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub TrierListMultiColonne(LstBx As ListBox)
Dim i As Integer, B As Boolean, e As Integer
Dim TB
Reco:
    With LstBx
        For i = 0 To LstBx.ListCount - 2
            If .List(i) > .List(i + 1) Then
                For e = 0 To .ColumnCount - 1
                    TB = .List(i, e)
                    .List(i, e) = .List(i + 1, e)
                    .List(i + 1, e) = TB
                Next e
                B = True
            End If
        Next i
        If B Then B = False: GoTo Reco
    End With
End Sub

Et à l'endroit où tu avais mis le code que tu montre (que tu supprime)
tu met..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TrierListMultiColonne lt_result

J'ai pas tester, si problème tu dis, je ferais un test pour mise au point.
A+

[punkisnotdead]

Euh je l'ai insérer, mais il y a un problème, je ne sais pas c'est quoi !
J'ai essayé de trouvé tout seul, mais non j'y arrive pas.....

J'ai du mal à comprendre ce que c'est les listcount et les columncount et à quoi ça sert!
Et quand tu mets à la déclaration de ton sub (lxt_box as listbox) c'est pourquoi?


P.S. Au faite merci beaucoup, à chaque fois tu me règles mes problèmes

[mercatog]

C'est résolu et ça fonctionne!
une petite question (si je ne suivais pas bien); pourquoi ne pas se limiter à trier la source de données (issues d'une plage X d'une feuille N) de la listbox?

[LeForestier]

C'est résolu et ça fonctionne!
une petite question (si je ne suivais pas bien); pourquoi ne pas se limiter à trier la source de données (issues d'une plage X d'une feuille N) de la listbox?

En effet..
A+