Discussion :

[chloe.secli]

Bonjour à tous,
Je cherche à trier un tableau à deux dimensions T_total(nb_ligne, 11+nb)
nb_ligne =350 et nb = 3

J'ai trouvé la formule suivante sur internet, elle marche lorsque je veux trier (+petit au +grand) par la dernière colonne mais si je souhaite trier la colonne 11 (soit 10+k, quand k=1) le tableau se trie jusqu'à la colonne 11 mais la 12,13,14 ne bougent pas. Sauriez-vous pourquoi et du coup comment faire pour trier jusqu'à la dernière colonne ?

(k=1 to nb)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
          Do
          valeur = 0
            For i = UBound(t_total) To 2 Step -1
                For j = 1 To 11 + nb
 
                        If t_total(i, 10 + k) < t_total(i - 1, 10 + k) Then
                            cible = t_total(i, j)
                            t_total(i, j) = t_total(i - 1, j)
                            t_total(i - 1, j) = cible
                            valeur = 1
                        End If
 
                Next j
            Next i
         Loop While valeur = 1

Merci d'avance !
Bonne journée

[Menhir]

Selon moi, le If et le second For ne sont pas dans le bon ordre : il faut commencer par tester la colonne concernée avant de déplacer les valeurs.
Remplaces les lignes 4 à 13 par :

Code :

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

1
2
3
4
5
6
7
8
                If t_total(i, 10 + k) < t_total(i - 1, 10 + k) Then
                   For j = 1 To UBound(t_total, 2)
                      cible = t_total(i, j)
                      t_total(i, j) = t_total(i - 1, j)
                      t_total(i - 1, j) = cible
                   Next j
                   valeur = 1
                End If

[chloe.secli]

En effet parfait merci !

J'avais trouvé une autre solution où je contournais le problème, je disais de ne pas trier quand j = 11 et de le faire quand j = 11 +nb, soit de trier cette colonne en dernier.