Trier un tableau (array) à 2 dimensions

Cette fonction « TrieTableau » a été écrite d’après un code de tri de tableau à 1 dimension trouvé sur https://www.excel-pratique.com/fr/astuces_vba/trier-tableau-array.
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é.