Lone-wolf
XLDnaute Barbatruc
Bonsoir le Forum
Il y a possiblilité de faire le tri sur l'année au lieu des jours avec la macro de Jacques Boisgontier Quick Sort?
Il y a possiblilité de faire le tri sur l'année au lieu des jours avec la macro de Jacques Boisgontier Quick Sort?
VB:
Private Sub Tri(a(), gauc, droi, colTri)
Dim Temp, C, ref, g, d
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 = LBound(a, 2) To UBound(a, 2)
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 Tri a, g, droi, colTri
If gauc < d Then Tri a, gauc, d, colTri
End Sub