Discussion :

[bigmousse69]

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

[pgz]

Bonsoir.

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

Cordialement,

PGZ

[bigmousse69]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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