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