XL 2021 Trier sans ligne vide

  • Initiateur de la discussion Initiateur de la discussion VieuxSeb
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

VieuxSeb

XLDnaute Nouveau
Bonjour à tous,

Je n'arrive pas à trouver de solution, sur le tableau "MAGASIN", j'ai un tri en colonne F de Z à A.

Quand je ne sélectionne que la zone 1, j'aimerais que le tri reste automatiquement de Z à A sur la colonne F et sans les lignes vide en haut.

Si je fais un tri manuel avec le filtre automatique de Z à A, j'ai les lignes vides en haut 😡

Merci de votre aide

Sébastien
 

Pièces jointes

Bonjour à tous,

Je n'arrive pas à trouver de solution, sur le tableau "MAGASIN", j'ai un tri en colonne F de Z à A.

Quand je ne sélectionne que la zone 1, j'aimerais que le tri reste automatiquement de Z à A sur la colonne F et sans les lignes vide en haut.

Si je fais un tri manuel avec le filtre automatique de Z à A, j'ai les lignes vides en haut 😡

Merci de votre aide

Sébastien
Bonjour,
Une possibilité en PJ, voir colonne I et gestionnaire de noms.
Cordialement,
 

Pièces jointes

Bonjour le forum,

Je reviens sur ce fil avec une solution VBA :
VB:
Private Sub Worksheet_Calculate()
Application.ScreenUpdating = False
Application.EnableEvents = False
With [Tableau13].ListObject.Range
    .Columns(5).Replace """""", "-9^9"
    .Sort .Columns(5), xlDescending, Header:=xlYes 'tri sur la 5ème colonne
    .Columns(5).Replace "-9^9", """"""
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Triez la colonne F.

A+
 

Pièces jointes

La macro précédente trie systématiquement de Z à A.

Si l'on veut pouvoir aussi trier de A à Z il suffit d'ajouter une 3ème ligne au code :
VB:
Private Sub Worksheet_Calculate()
With [Tableau13].ListObject.Range
    If IsNumeric(.Cells(2, 5)) Then Exit Sub
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    .Columns(5).Replace """""", "-9^9"
    .Sort .Columns(5), xlDescending, Header:=xlYes 'tri sur la 5ème colonne
    .Columns(5).Replace "-9^9", """"""
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End With
End Sub
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
6
Affichages
185
Réponses
6
Affichages
467
Retour