Discussion :

[alexvol]

Bonsoir,

j'ai trouvé sur le site http://boisgontierjacques.free.fr/ ce dont j'avais besoin : un code vba excel pour construire une listbox multi-colonne avec tri possible de chaque colonne. Son code fonctionne parfaitement mais j'aimerai comprendre.
J'aurai bien demandé à l'auteur mais je n'ai pas trouvé de contact sur son site.
Voici donc le code qui me pose problème :

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
Sub tri(a(), gauc, droi, NbCol, colTri)        ' Quick sort
 ref = a((gauc + droi) \ 2, colTri)
 g = gauc: d = droi
 Do
     Do While a(g, colTri) < ref: g = g + 1: Loop
     Do While ref < a(d, colTri): d = d - 1: Loop
     If g <= d Then
       For c = 0 To NbCol - 1
         temp = a(g, c): a(g, c) = a(d, c): a(d, c) = temp
       Next
       g = g + 1: d = d - 1
     End If
 Loop While g <= d
 If g < droi Then Call tri(a, g, droi, NbCol, colTri)
 If gauc < d Then Call tri(a, gauc, d, NbCol, colTri)
End Sub

Quelques précisions :
"gauc" correspond à LBound(a,2) ; "droi" à UBound(a,2) et NbCol à UBound(a, 2) - LBound(a, 2) + 1.

Je voudrai comprendre mais je n'y arrive pas du tout.
Si quelqu'un y voit clair, merci de m'offrir la lumière

[mercatog]

Fais une petite recherche sur l'algorithme de tri QuickSort

Wiki: Le tri rapide (en anglais quicksort) est un algorithme de tri inventé par C.A.R. Hoare en 19611 et fondé sur la méthode de conception diviser pour régner. Il est généralement utilisé sur des tableaux, mais peut aussi être adapté aux listes. Dans le cas des tableaux, c'est un tri en place mais non stable.

Sinon, on pourra supprimer l'argument NbCol
Écrit comme ceci, le code est plus lisible

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
19
20
21
22
23
24
25
26
27
Sub Tri(ByRef A As Variant, ByVal Gauche, ByVal Droite, ByVal ColTri As Integer)    ' Quick sort
Dim G, D, Tmp, Ref
Dim i As Integer
 
Ref = A((Gauche + Droite) \ 2, ColTri)
G = Gauche
D = Droite
Do
    Do While A(G, ColTri) < Ref
        G = G + 1
    Loop
    Do While A(D, ColTri) > Ref
        D = D - 1
    Loop
    If G <= D Then
        For i = LBound(A, 2) To UBound(A, 2)
            Tmp = A(G, i)
            A(G, i) = A(D, i)
            A(D, i) = Tmp
        Next i
        G = G + 1
        D = D - 1
    End If
Loop While G <= D
If G < Droite Then Call Tri(A, G, Droite, ColTri)
If D > Gauche Then Call Tri(A, Gauche, D, ColTri)
End Sub