Discussion :

[coco1397]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

J'introduis en suite des résultats.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[coco1397]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Marc-L]

Bonjour !

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, …

[coco1397]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[coco1397]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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