XL 2021 Trier sans tenir compte des cellule vides mais avec formule

[GregN]

Bonjour à tous,
J'aurais besoin de votre aide svp car je n'arrive pas à trouver comment faire pour trier la colonne H par ordre décroissant sans tenir compte des cellules vides mais dans lesquelles il y a une formule.
Je mets le fichier en PJ.
Merci énormément pour votre aide

 

[sylvanu]

Bonjour Greg, et bienvenu sur XLD,
Peut être en trichant :
1- Tri sur toute la colonne pour remonter les valeurs en haut
2- Calcul du nombre de cellules occupées
3- Sur celle plage tri ascendant ou descendant.
Avec par ex pour la colonne Clients :

Sub Client_Croissant_Essai()
    Range("B13:I101").Sort Key1:=[B13], Order1:=xlDescending, Header:=xlYes
    DL = [B65500].End(xlUp).Row
    Range("B13:I" & DL).Sort Key1:=[B13], Order1:=xlAscending, Header:=xlYes
End Sub
Sub Client_Décroissant_Essai()
    Range("B13:I101").Sort Key1:=[B13], Order1:=xlDescending, Header:=xlYes
    DL = [B65500].End(xlUp).Row
    Range("B13:I" & DL).Sort Key1:=[B13], Order1:=xlDescending, Header:=xlYes
End Sub

 

[GregN]

Merci pour ton retour @sylvanu mais mon problème concerne la colonne H et non la B.
Quand j'essai d'adapter ta macro avec la colonne H, cela ne fonctionne pas, ou du moins je ne l'adapte pas correctement 😅

 

[sylvanu]

Essayez avec :

Sub TempsRestant_Croissant_Essai()
    Range("B13:I101").Sort Key1:=[H13], Order1:=xlAscending, Header:=xlYes
    DL = [B65500].End(xlUp).Row
    Range("B13:I" & DL).Sort Key1:=[H13], Order1:=xlAscending, Header:=xlYes
End Sub
Sub TempsRestant_Décroissant_Essai()
    Range("B13:I101").Sort Key1:=[H13], Order1:=xlAscending, Header:=xlYes
    DL = [B65500].End(xlUp).Row
    Range("B13:I" & DL).Sort Key1:=[H13], Order1:=xlDescending, Header:=xlYes
End Sub

J'obtiens :

et

 

[GregN]

Au top, ça fonctionne nickel !!!
Merci beaucoup