Discussion :

[fikou]

Bonjour,
Je désire trier une feuille Excel.

Code :

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

1
2
3
4
Range("C4:M63").Select
    Selection.Sort Key1:=Range("M4"), Order1:=xlDescending, Key2:=Range("L4") _
        , Order2:=xlDescending, Key3:=Range("K4"), Order3:=xlDescending, Header _
        :=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

J'ai 11 colonnes, je trie sur les 3 dernières.
Lors du tri si la dernière colonne est à 0 le tri est correct.
J'aimerais prendre en compte la colonne C.
Elle peut être renseignée mais afficher 0 dans M
Elle peut ne pas être renseignée mais aussi afficher 0 dans M
J'aimerais que les colonnes C renseignées soit placée avant les non renseignées.
Dans la colonne C ce sont des donnée texte ou null

J'espère que j'ai été limpide...
Je reste à dispo
Merci d'avance
FikoU

[Philippe Tulliez]

Bonjour,

J'espère que j'ai été limpide..

En ce qui me concerne, pas vraiment.

Un tri multi-colonnes est hiérarchique et si vous voulez ajouter des critères, utilisez le filtre en plus.

[fikou]

Alors pour être plus explicite voici une capture d'écran.
Je ne comprend pas pourquoi ces zéro ne sont pas en fin de tri

[Philippe Tulliez]

Bonjour,
Pour pouvoir comprendre, pouvez-vous faire une capture d'écran de la boite de dialogue de Tri ?

[fikou]

Bonjour,
Merci pour vos réponses.
Je ne passe pas par la boîte de dialogue de tri, tout par code ou alors j'ai pas compris un truc.
Je débute en VBA Excel, J'ai par le passé fais du VB.NET...

[fikou]

Le code :

Code :

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

1
2
3
4
5
6
  Sheets("Individuel").Select
    Range("C4:M63").Select
    Selection.Sort Key1:=Range("M4"), Order1:=xlDescending, Key2:=Range("L4") _
        , Order2:=xlDescending, Key3:=Range("K4"), Order3:=xlDescending, Header _
        :=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("A1:A1").Select

Dans la boîte de dialogue Trier il y à déjà des instructions ce n'est pas moi qui les ai saisi ?

[fikou]

J'ai refais le tri sans les entêtes de colonne.
Dans les deux cas le tri est juste les zéro en fin de tri

[fikou]

J'ai trouvé
Dans le code j'ai supprimé "OrderCustom:=1"
Doc Microsoft "OrderCustom Facultatif Variant Spécifie un décalage d'entier (base 1) dans la liste d'ordres de tri personnalisés."
le tri est ok les zéros en fin de tri.
Mon code :

Code :

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

1
2
3
Selection.Sort Key1:=Range("M4"), Order1:=xlDescending, Key2:=Range("L4") _
        , Order2:=xlDescending, Key3:=Range("K4"), Order3:=xlDescending, Header _
        :=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

FikoU

[anasecu]

Bonjour

J'ai trouvé

Je suis content pour toi surtout que le code que tu dis convenir maintenant est exactement le même que ton code initial

[fikou]

Effectivement,

J'ai collé le mauvais code

Code :

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

1
2
3
Selection.Sort Key1:=Range("M4"), Order1:=xlDescending, Key2:=Range("L4") _
        , Order2:=xlDescending, Key3:=Range("K4"), Order3:=xlDescending, Header _
        :=xlNo, MatchCase:=False, Orientation:=xlTopToBottom

Sans "OrderCustom:=1"

FikoU

[anasecu]

Bonjour,

J'ai collé le mauvais code ... Sans "OrderCustom:=1"

Le problème c'est que ce paramètre n'intervient que "dans la liste d'ordres de tri personnalisés" que tu n'utilises pas et qui est donc sans effet dans ton cas.

[fikou]

Toujours est il que depuis sa suppression le tri des lignes avec zéro sont maintenant en fin de tri