Tri ListBox multicolonne

Version imprimable

Bonjour à tous,
J'ai dans mon projet plusieurs listbox multicolonne que j'alimente de la façon suivante (trois colonnes dans cet exemple) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 With ListeProduit2 .Clear derligne = Split(Worksheets("Produits").UsedRange.Address, "$")(4) For j = 2 To derligne Select Case Worksheets("Produits").Range("A" & j).Value Case Is = ComboNumEssai2.Value .AddItem .List(k, 0) = Worksheets("Produits").Range("A" & j).Value .List(k, 1) = Worksheets("Produits").Range("B" & j).Value .List(k, 2) = Worksheets("Produits").Range("C" & j).Value k = k + 1 Case Else End Select Next j End With
Je cherche le moyen de trier les données de cette ListBox, tri sur la 1ere colonne puis la seconde, etc...
J'ai parcouru le forum sans succès.
Je parle bien de ListBox et non de Combobox. D'ailleurs je trie mes ComboBox à l'aide d'une fonction trouvée je ne sais plus ou :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Function ListSort(liSte) ' Sorts the List array in ascending order Dim First As Integer, Last As Integer Dim i As Integer, j As Integer Dim Temp First = LBound(liSte) Last = UBound(liSte) For i = First To Last - 1 For j = i + 1 To Last If liSte(i, 0) > liSte(j, 0) Then Temp = liSte(j, 0) liSte(j, 0) = liSte(i, 0) liSte(i, 0) = Temp End If Next j Next i ListSort = liSte End Function
L'idéal serait pour moi de fonctionner également sur le principe d'une fonction à appeler à chaque fois que j'en ai besoin.

D'avance merci pour vos idées.
Cordialement,

J'apporte une précision :
la fonction que j'utilise fonctionne bien entendu pour trier une listbox mais que sur une colonne.
ce que je souhaite c'est pouvoir trier sur colonne 1 puis 2 puis 3...
merci

31/08/2013, 23h02
jijie

Bonsoir,

Multi-colonne ou non ce sera le même principe ! Listbox.value sera sur une colonne ! Quel intérêt de trié chaque colonne?

Bonjour,
Merci pour votre contribution.
Dans mon ensemble de données sur x colonnes, je souhaite trier les données sur la première colonne puis, si il y a des données égales dans la première colonne, les trier sur la deuxième colonne, puis si il y a des données égales sur la deuxième colonne, les trier sur la troisième colonne, etc jusqu'à la x ième colonne.
Exemple :
Colonne A - Colonne B - Colonne C
Lorraine Moselle Metz
Alsace Haut-Rhin Mulhouse
Alsace Bas-Rhin Strasbourg
Alsace Haut-Rhin Colmar

deviendra après tri :
Colonne A - Colonne B - Colonne C
Alsace Bas-Rhin Strasbourg
Alsace Haut-Rhin Colmar
Alsace Haut-Rhin Mulhouse
Lorraine Moselle Metz

D'ailleurs en avançant dans mes tests, je me suis rendu compte que la fonction que j'utilise trie les données d'une colonne mais ne traite pas les données liées des autres colonnes.
Je l'ai donc modifiée comme suit :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 Function ListSort2(liSte) ' Sorts the List array in ascending order Dim First As Integer, Last As Integer Dim i As Integer, j As Integer Dim Temp0, Temp1, Temp2 First = LBound(liSte) Last = UBound(liSte) For i = First To Last - 1 For j = i + 1 To Last If liSte(i, 0) > liSte(j, 0) Then Temp0 = liSte(j, 0) Temp1 = liSte(j, 1) Temp2 = liSte(j, 2) liSte(j, 0) = liSte(i, 0) liSte(j, 1) = liSte(i, 1) liSte(j, 2) = liSte(i, 2) liSte(i, 0) = Temp0 liSte(i, 1) = Temp1 liSte(i, 2) = Temp2 End If Next j Next i ListSort2 = liSte End Function
Maintenant le tri est correct, mais ça ne trie que sur une colonne...
Merci de votre aide

J'ai simplifié le code de la fonction pour permettre le tri d'une listbox multicolonne, en conservant les données liées, quelque soit le nombre de colonnes. Mais ça ne trie toujours que sur UNE colonne.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Function ListSort2(liSte, liste2) Dim First, Last, i, j, a As Integer First = LBound(liSte) Last = UBound(liSte) For i = First To Last - 1 For j = i + 1 To Last If liSte(i, 2) > liSte(j, 2) Then For a = 0 To liste2.ListCount - 1 Temp = liSte(j, a) liSte(j, a) = liSte(i, a) liSte(i, a) = Temp Next a End If Next j Next i ListSort2 = liSte End Function
à lancer par :

Code:

<nom de votre listebox>.List = ListSort2(<nom de votre listebox>.List, <nom de votre listebox>)

01/09/2013, 09h41
Philippe Tulliez

Bonjour,
Si j'ai bien compris, tu souhaites faire un tri hiérarchique sur plusieurs colonnes.
Tu pourrais utiliser une table en concaténant les colonnes à trier en ajoutant le n° de la ligne dans la liste des données avec la fonction Format et ensuite utiliser ton tri d'une colonne.
Ce qui donnerait suivant ton exemple
Avant tri
LorraineMoselleMetz004
AlsaceHaut-RhinMulhouse010
AlsaceBas-RhinStrasbourg090
AlsaceHaut-RhinColmar101
Après tri
AlsaceBas-RhinStrasbourg090
AlsaceHaut-RhinColmar101
AlsaceHaut-RhinMulhouse010
LorraineMoselleMetz004
Il te reste à récupérer à l'aide de la fonction Right les trois derniers caractères de la chaîne triée pour faire le Additem dans la ListBox

On avance !!

Ce bout de code permet de trier une list box de x colonnes, en conservant les données liées, sur la première colonne puis la seconde en cas d'égalité puis la troisième en cas d'égalité

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
Function ListSort2(liSte, liste2)
'tri d'une ListBox à x colonnes sur les colonnes 0 puis 1 puis 2
Dim First, Last, i, j, a As Integer
'premier niveau de tri
First = LBound(liSte)
Last = UBound(liSte)
    For i = First To Last - 1
        For j = i + 1 To Last
            If liSte(i, 0) > liSte(j, 0) Then
                For a = 0 To liste2.ListCount - 1
                    temp = liSte(j, a)
                    liSte(j, a) = liSte(i, a)
                    liSte(i, a) = temp
                Next a
            End If
        Next j
    Next i
'second niveau de tri en cas d'égalité au niveau 1
First = LBound(liSte)
Last = UBound(liSte)
    For i = First To Last - 1
        For j = i + 1 To Last
            If liSte(i, 1) > liSte(j, 1) And liSte(i, 0) = liSte(j, 0) Then
                For a = 0 To liste2.ListCount - 1
                    temp = liSte(j, a)
                    liSte(j, a) = liSte(i, a)
                    liSte(i, a) = temp
                Next a
            End If
        Next j
    Next i
'troisième niveau de tri en cas d'égalité au niveau 2
First = LBound(liSte)
Last = UBound(liSte)
    For i = First To Last - 1
        For j = i + 1 To Last
            If liSte(i, 2) > liSte(j, 2) And liSte(i, 1) = liSte(j, 1) And liSte(i, 0) = liSte(j, 0) Then
                For a = 0 To liste2.ListCount - 1
                    temp = liSte(j, a)
                    liSte(j, a) = liSte(i, a)
                    liSte(i, a) = temp
                Next a
            End If
        Next j
    Next i
 
ListSort2 = liSte
End Function

Problème : j'aimerais automatiser ce code pour trier sur les x colonnes sans avoir à dupliquer le pavé de tri x fois...

Des idées ?

Bonjour,

Excel possède de très bon outils, il suffit d'utiliser une feuille cachée pour utiliser sa fonction de tri :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Private Sub UserForm_Initialize()
 
    Dim Plage As Range
    Dim I As Integer
 
    'défini la plage de A1 à Cx
    With Worksheets("Feuil1") '<-- il est possible d'utiliser une feuille cachée
 
        Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 3).End(xlUp))
 
    End With
 
    Plage.Sort Plage.Columns(1), xlAscending, Plage.Columns(2), , xlAscending, Plage.Columns(3), xlAscending
 
    With ListBox1
 
        .ColumnCount = 3
        .RowSource = Plage.Address
 
    End With
 
End Sub

Hervé.

01/09/2013, 13h29
Docmarti

Pour faire le tri à la premiere passe sur colonne 1 et 2,
Remplace

Code:

If liSte(i, 0) > liSte(j, 0) Then

par

Code:

If liSte(i, 0) & liSte(i, 1) > liSte(j, 0) & liSte(j, 1) Then