Trier un tableau (array) à 2 dimensions

Bonjour,

Je vous propose un nouvel élément à utiliser : Trier un tableau (array) à 2 dimensions

Cette fonction « TrieTableau » a été écrite d’après un code de tri de tableau à 1 dimension

Elle permet de trier un tableau à 2 dimensions selon n’importe quelle colonne, en numérique ou en alphabétique, croissant ou décroissant.

Le tableau à trier doit être dans une variable Variant.

Dans la procédure appelante, le tableau doit donc être déclaré « classiquement », c’est-à-dire quelque chose comme :

Dim MonTab() As String

On ne peut pas utiliser l’instruction « Type », car ce type de tableau ne peut pas être transmis dans une variable, ni un module de classe, car alors les cellules ne peuvent être désignées par un index.

La fonction reçoit :

- TabVa : le tableau à trier.

- ColonneBy : le numéro de la colonne - 2e dimension - selon laquelle trier (0, 1, 2 etc.)

- NumBo : si le tri doit être numérique (True) ou alphabétique (False).

- CroissantBo : si le tri doit être croissant (True) ou décroissant (False).

Elle renvoie le tableau TabVa trié.



Qu'en pensez-vous ?