ton array est dans un onglet Excel, ou alors tu le renseignes via une combobox ?
Cordialement.
van_horton
C'est un array VBA
eriiic
Contributeur
Bonjour,
exemple de tri à bulle : http://frederic.sigonneau.free.fr/code/Tris/TriEnBulle.txt
eric
cristaliiiine
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
eriiic
Contributeur
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
Ou alors pour les très pressés du tri la solution de Jacques Boisgontier très rapide, pour les gros tableaux. (passke là, avec 8 valeurs, le temps est d'environ 0 seconde...)
