Tri sous VBA

Version imprimable

12/02/2010, 21h31
bigmousse69

Tri sous VBA

Bonjour,
Je dois trier des données sous VBA, je ne veux pas me servir de la fonction sous excel.
Je veux utliser une fonction avec une variable (type tableau).
Je sais qu'il existe une fonction qui permet de le faire (un trie par recurrence en nLog[n].
Je ne suis pas intéressé par les tries artisanales ( n²) car trop long.
Je l'ai utilisé, il y a quelques années, aujourd'hui, je ne la trouve pas.
Pouvez-vous m'aider.
Je continue ma recherche en paralléle...
Je vous remercie
Salutations
Mousse
12/02/2010, 23h29
pgz

Bonsoir.

Tu peux utiliser une méthode de "tri rapide" ou "Quick Sort". Cherche avec ces mots.

Cordialement,

PGZ

TRIE

Merci
J'ai trouvé une procédure appelée TRIABULLE :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Sub TriABulle(tabLong() As Long)
Dim lgFor1 As Long, lgFor2 As Long
Dim lgTmp As Long, lgMin As Long
lgMin = LBound(tabLong)
' Parcourt l'ensemble des éléments du tableau
For lgFor1 = UBound(tabLong) To lgMin Step -1
' Parcourt l'ensemble des éléments non triés du tableau
    For lgFor2 = lgMin + 1 To lgFor1
        If tabLong(lgFor2 - 1) > tabLong(lgFor2) Then
' Echange de place entre deux éléments
            lgTmp = tabLong(lgFor2 - 1)
            tabLong(lgFor2 - 1) = tabLong(lgFor2)
            tabLong(lgFor2) = lgTmp
        End If
    Next lgFor2
Next lgFor1
End Sub

Est-elle rapide??? je ne sais pas, je dois tester... mais elle ne ressemble pas du tout à la fonction que j'ai utilisé il y a quelques années...
Merci
à bientôt

14/02/2010, 19h26
pgz

Bonjour.

L'efficacité d'un tri dépend de ce qui est à trier. Voir notemment l'étude des cas défavorables. En moyenne les méthodes de type QuickSort sont très rapides. Tu trouveras sur le net plein d'études sur les méthodes de tri et la mesure de leur efficacité.
Pour le quicksort, regarde par exemple sur [ame="http://fr.wikipedia.org/wiki/Tri_rapide"]wiki[/ame].

Bon courage,

PGZ