Trier tableau Integer petit au plus grand

Bonjour,

J'ai un tableau d'Integer à 2 dimensions comme ceci

Code:

---

1 2	Dim jeu(1 To 2, 1 To 8) As Integer

---

J'introduis en suite des résultats.

Code:

---

1 2 3 4

jeu (1,1) = 2 jeu (1,2) = 4 etc...

---

J'aimerais trier du petit au plus grand les valeurs dans la deuxième dimensions.
Quelqu'un aurait une idée ?

Merci d'avance :)

Bonjour,

Présenté comme ça, autant que tu insères chaque valeur à sa place (en décalant celles qui suivent pour faire de la place).
Ca sera tout aussi rapide voire plus rapide qu'un tri à posteriori.
Sinon une simple recherche t'amènera plein d'algorithmes de tris.
eric

Citation:

---

Envoyé par eriiic

Bonjour,

Présenté comme ça, autant que tu insères chaque valeur à sa place (en décalant celles qui suivent pour faire de la place).
Ca sera tout aussi rapide voire plus rapide qu'un tri à posteriori.
Sinon une simple recherche t'amènera plein d'algorithmes de tris.
eric

---

Sauf que mes valeurs, dans mon programme, je ne les prends pas comme je l'ai présenté. Je reprends directement dans des cellules que j'ai dans un tableau

Code:

---

1 2 3 4 5 6

For i = 1 To 2 For j = 1 To 8 jeu(i, j) = tableau.ListColumns(j & ".jeu").Range(index + i) Next Next

---

Bonjour !

Citation:

---

Envoyé par coco1397

J'aimerais trier du petit au plus grand les valeurs dans la deuxième dimensions.

---

En attendant un exemple clair et le code complet générant la variable source (edit : vu le code depuis),
s'il s'agit de juste lister les valeurs triées de la deuxième dimension (colonne)
cela devrait être déjà possible avec une seule ligne de code via une formule d'Excel …

Sinon en plus simple copier les données source dans une feuille puis les trier via Excel et ce, même en VBA !

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Je vous explique:
- J'ai un tableau sur une feuille excel. Dans ce tableau contient des résultats et cela fera un classement.
- Si dans ce classement deux joueurs ont le même total de points après plusieurs parties, le programme doit aller chercher le plus petit score des deux joueurs
- Si le plus petit score est le même, le programme doit aller chercher le 2ème plus petit, et ainsi de suite...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

For Each table_r In TotalFairPlay.ListRows   If TotalFairPlay.ListColumns("Total").Range(table_r.Index + 1) = TotalFairPlay.ListColumns("Total").Range(table_r.Index + 2) Then   Dim Spiel(1 To 2, 1 To 8) As Integer   For i = 1 To 2 For j = 1 To 8 Spiel(i, j) = TotalFairPlay.ListColumns(j & ". Spiel").Range(table_r.Index + i) Next Next   End If Next table_r

---

J'ai finalement trouver grâce à ce lien: https://www.developpez.net/forums/d8...iable-tableau/

J'ai utilisé ceci pour trier et cela fonctionne très :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

For x = 1 To 2 For i = 1 To 8 For j = i To 8 If Spiel(x, i) > Spiel(x, j) Then temp = Spiel(x, j) Spiel(x, j) = Spiel(x, i) Spiel(x, i) = temp End If Next j Next i Next x

---

Merci en tout cas pour votre aide :)

bonsoir
ok ca fonctionne mais il faudrait que tu explique comment?

Code:

---

1 2 3

For i = 1 To 8 For j = i To 8 If Spiel(x, i) > Spiel(x, j) Then

---

est tu sur que tout est bien trié et que le premier n'est pas zapé par la conception meme de tes boucles imbriquées

en ce qui me concerne je vois au premier tour de i qu'il est egal a j de ce fait le 1er spiel(x,i) est egal a spiel(x,j) car en fait tu teste lememe element du tableau

je crois meme que ca va plus loin que ca quand j est = à i

d'autres confirmeront ou infirmeront

pour utilsiser ce procédé il faut jumper d'uncrans des le depart

Code:

---

1 2 3 4 5

for j = 1 to 9 for i = j+1 to 10 '....... next next

---

et on compare le precedent de j