Tri dans tableau

Bonsoir la communauté,

petite question, existe-t-il une commande en VBA qui me permette de faire un tri à l'intérieur d'un tableau ? exp :

Av :

tablo(1)=7

tablo(2)=3

tablo(3)=5

ap :

tablo(1)=3

tablo(2)=5

tablo(3)=7

au lieu de faire ça avec des boucles...

Merci

Bonjour,

Il existe de multiples techniques (selon la taille du tableau)

Voici une des plus courantes pour de petits tableaux d'une seule colonne.

Sub BubbleTri(Tablo)
Dim i%, j%, k%, tmp
For i = LBound(Tablo) To UBound(Tablo)
j = i
For k = j + 1 To UBound(Tablo)
If Tablo(k) <= Tablo(j) Then j = k
Next k
If i <> j Then
tmp = Tablo(j): Tablo(j) = Tablo(i): Tablo(i) = tmp
End If
Next i
End Sub

... mais quelle que soit la méthode ce sont toujours des boucles plus ou moins sophistiquées.

A+

Ok Galopin, je voulais justement éviter les boucles qui alourdissent le script.

Merci pour les codes.

Voici un autre script, dans le second module, inspiré du fichier initial fourni par Galopin, dont le code à été simplifié et avec une vitesse d'exécution réduite( résultat en gris à l'écran).