VBA - Excel - Tri d'un array numérique

Bonjour,

Je suis novice en VBA et sur ce forum :)

Je cherche à trier une liste sous VBA et l'exemple du tri à bulle est parfait pour mon programme. Seul problème, je cherche à faire un tri décroissant . Donc, j'ai modifié le code de Frédéric Sigonneau, mais le résultat renvoie la liste triée sauf le 1er élément.

Qu'est ce qui ne va pas dans ce code pour qu'il supprime le 1er élément de la liste ?

Sub BubbleTri(tabTri)
'algorithme de tri (type BubbleSort) pour des petits tableaux
'restitue le tableau trié

Dim I%, J%, K%, tmp

For I = LBound(tabTri) To UBound(tabTri)
J = I
For K = J + 1 To UBound(tabTri)
If tabTri(K) >= tabTri(J) Then J = K
Next K
If I <> J Then
tmp = tabTri(J): tabTri(J) = tabTri(I): tabTri(I) = tmp
End If
Next I
End Sub

Bonjour,

sur le même site tu as TriEnBulle2.bas qui accepte en paramètre l'ordre de tri :
http://frederic.sigonneau.free.fr/Tris.htm
eric