(VBA) Tri array 2 dimmensions

Hello le forum,

J'ai un array de deux dimensions à 2 colonnes.

Je veux faire un tri sur 2 niveaux.

Tri sur la colonne 1, puis sur la colonne 2.

Le tout dans un array et non dans une feuille.

Auriez-vous des idées d'algo svp ?

Merci à vous.

R@g.

bonjour,

solution basée sur un algorithme performant pour peu de données.

Sub trippt(a)
'tri du tableau a à 2 dimensions, sur colonne 1 puis sur colonne 2
    For i = LBound(a) To UBound(a) - 1
        k = i
        For j = i + 1 To UBound(a)
            If a(k, 1) > a(j, 1) Or a(k, 1) = a(j, 1) And a(k, 2) > a(j, 2) Then k = j
        Next j
        If k <> i Then
            t = a(i, 1): a(i, 1) = a(k, 1): a(k, 1) = t
             t = a(i, 2): a(i, 2) = a(k, 2): a(k, 2) = t
        End If
    Next i
End Sub

Merci h2so4.

Je ne devrais pas avoir beaucoup de données

R@g