Explications code VBA

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:

---

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 :)

Fais une petite recherche sur l'algorithme de tri QuickSort

Citation:

---

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:

---

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

---