Discussion :

[buigui]

Bonjour
Je fais suite à la discussion du même titre (résolue).
Le tri simple tel qu'indiqué dans cette discusson ne fonctionne pas sur mon classeur.

Code :

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

1
2
3
4
5
Sub TEST()
 
 SortTable ThisWorkbook.Worksheets("Feuil1"), SortList:="1;2;3"
 
End Sub

Quelqu'un verrait-il pourquoi?

Merci par avance

[Transitoire]

Bonjour,
si vous voulez trier les trois colonnes A B C depuis C2 en descendant. Vous n'avez plus qu'a l'arranger à votre sauce.

Code :

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

1
2
3
Sub Test()
Columns("A:C").Sort Key1:=Range("C2"), order1:=xlDescending
End Sub

Cordialement

[buigui]

Merci Transitoire,

Je souhaite trier par colonne 1, puis par colonne 2, puis par colonne 3 (tri personnalisé)....

[Transitoire]

RE

Code :

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

1
2
3
4
Sub Test()
Columns("A:C").Sort Key1:=Range("A2"), order1:=xlDescending, Key2:=Range("B2"), order2:=xlDescending ' etc pour d'autres colonnes et s'assurer que
                                                          '   Descending est ce qui convient, il peut-être remplacé par Ascending si besoin.
End Sub

Par ailleurs, il faut modifier le Format du classeur, remplacer XLSX par XLSM
Cordialement

[buigui]

Cela marche sur 3 critères, merci...

Comment aller au delà svp?

Merci par avance