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

van_horton -

Bonjour,

Je voudrais trier - avec une macro VBA - un array par ordre croissant.

Exemple : MonArray = (4, 5, 3, 2, 1, 7, 8, 6)

Résultat : TriArray = (1, 2, 3, 4, 5, 6, 7, 8)

D'avance merci,

Jerome

Afficher la suite

4 réponses

Réponse 1 / 4
pijaku Modérateur
Bonjour,
Bonjour Eriiic, comment va?
Bonjour vieille Chaussette...

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...)

Bonne journée à tous!

0
Réponse 2 / 4
eriiic Contributeur
Bonjour,

exemple de tri à bulle : http://frederic.sigonneau.free.fr/code/Tris/TriEnBulle.txt

eric

0
1. 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
  
  0
2. 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
  
  0
Réponse 3 / 4
van_horton
C'est un array VBA

0
Réponse 4 / 4
chossette9 Contributeur
Bonjour,

ton array est dans un onglet Excel, ou alors tu le renseignes via une combobox ?

Cordialement.

0

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

4 réponses

Discussions similaires

Newsletters