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

GregN · 15 Mars 2024

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 · 15 Mars 2024

Essayez avec :

VB:

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

sylvanu · 15 Mars 2024

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 :

VB:

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 · 15 Mars 2024

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 · 15 Mars 2024

Essayez avec :

VB:

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 · 15 Mars 2024

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

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

GregN

XLDnaute Nouveau

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

GregN

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

GregN

XLDnaute Nouveau

Discussions similaires