Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

[VBA] question sur tri tableau

1 réponse
Avatar
Microsoft VBA Excel
Peut-on trier en VBA un tableau avec plus de 3 critères ? Si oui, pourquoi
mon code ne fonctionne pas ? :

------------------------CODE ------------------------------
Selection.Sort Key1:=Range("AH2"), Order1:=xlDescending,
Key2:=Range("AG2"), Order2:=xlDescending, Key3:=Range("H2" _
), Order3:=xlAscending, Key4:=Range("D2"),
Order4:=xlAscending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom _
, DataOption1:=xlSortNormal,
DataOption2:=xlSortNormal, DataOption3:=xlSortNormal, DataOption4:= _
xlSortTextAsNumbers

-------------------------FIN CODE ------------------------

Merci d'avance !

1 réponse

Avatar
Microsoft VBA Excel
Merci beaucoup Ardus Petus, je vais utiliser cette astuce.

Autre question sur le tri : j'ai dans la colonne A des cellules vides et des
cellules qui contiennent X. Je souhaite trier mon tableau de manière à ce
que les X se retrouvent à la fin. Comment faire ?
"Ardus Petus" a écrit dans le message de news:

On ne peut pas spécifier plus de 3 critères de tri.

Pour obtenir le même résultat:
d'abord trier sur le critère 4
puis trier sur les 3 autres critères.

Cordialement,
--
AP

"Microsoft VBA Excel" a écrit dans le message de news:
%
Peut-on trier en VBA un tableau avec plus de 3 critères ? Si oui,
pourquoi mon code ne fonctionne pas ? :

------------------------CODE ------------------------------
Selection.Sort Key1:=Range("AH2"), Order1:=xlDescending,
Key2:=Range("AG2"), Order2:=xlDescending, Key3:=Range("H2" _
), Order3:=xlAscending, Key4:=Range("D2"),
Order4:=xlAscending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:úlse,
Orientation:=xlTopToBottom _
, DataOption1:=xlSortNormal,
DataOption2:=xlSortNormal, DataOption3:=xlSortNormal, DataOption4:= _
xlSortTextAsNumbers

-------------------------FIN CODE ------------------------

Merci d'avance !