Trie d'un tableau dynamique à 2 dimensions

[Seb]

Bonjour le forum,

Je cherche à trier un tableau dynamique à 2 dimensions mais je galere pas mal. Je trouve bcp d'info mais je n'arrive pas à les adapter à mon tableau.

Voila un bout de code simplifié:

Option Explicit
Option Base 1

Public Type Magasin
Code As Long
Designation As String
Gamme As String
Quantite As Long
Chiffre As Single
End Type


Sub Compiler()
Dim MagReference() As Magasin
..........................
With MagReference(i) ' Environ 300 valeurs
Sheets("Compil").Cells(Compteur, "B") = .Code
Sheets("Compil").Cells(Compteur, "C") = .Designation
Sheets("Compil").Cells(Compteur, "D") = .Gamme
Sheets("Compil").Cells(Compteur, "E") = .Quantite
Sheets("Compil").Cells(Compteur, "F") = .Chiffre
End With
.......... je rempli mon tableau



et maintenant je souhaite le trier en fonction du chiffre du plus grand au plus petit.

End sub

Merci pour le petit coup de main!
Seb

 

[Dranreb]

Bonsoir.
Je peux équiper votre classeur du module de classe TableIndex qui permet d'effectuer les comparaisons nécessaires sans se préoccuper de l’algorithme de tri.

Remarque: on utilise peu les Type … End Type parce qu'ils obligent à lire ou écrire individuellement dans les cellules, ce qui est particulièrement long, aussi long pour chacune des cellules que le déchargement en une seule instruction de l'intégralité d'un tableau d'éléments Variant dans toute la plage.