Condition dans un tri sort

Version imprimable

Bonjour,
Je désire trier une feuille Excel.
Code:

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...:oops:
Je reste à dispo
Merci d'avance
FikoU

25/04/2023, 18h03
Philippe Tulliez

Bonjour,

Citation:

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.
26/04/2023, 01h15
fikou

1 pièce(s) jointe(s)

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
26/04/2023, 07h18
Philippe Tulliez

Bonjour,
Pour pouvoir comprendre, pouvez-vous faire une capture d'écran de la boite de dialogue de Tri ?
26/04/2023, 07h28
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...

1 pièce(s) jointe(s)

Le code :

Code:

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 ?

26/04/2023, 08h58
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

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:

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

27/04/2023, 20h36
anasecu

Bonjour

Citation:

Envoyé par fikou

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 :D

Effectivement,

J'ai collé le mauvais code

Code:

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

28/04/2023, 08h47
anasecu

Bonjour,

Citation:

Envoyé par fikou

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.
28/04/2023, 09h04
fikou

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