[XL-2016] Trie tableau 2 dimensions

Trie tableau 2 dimensions

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:

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

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:

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

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.