Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2021 Trier sans ligne vide

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

  • 1,63 Evol RDV.xlsx
    27.6 KB · Affichages: 11

Gégé-45550

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

Pièces jointes

  • 1,63 Evol RDV.xlsx
    33.5 KB · Affichages: 4

VieuxSeb

XLDnaute Nouveau
Bonjour

Gégé 45550, j'ai un problème avec la solution.

Quand j'ai 2 valeurs identiques (en F), il n'y a qu'un seul résultat (en L).

Sébastien
 

Pièces jointes

  • 1,63 Evol RDV.xlsx
    445 KB · Affichages: 0

job75

XLDnaute Barbatruc
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

  • 1,63 Evol RDV.xlsm
    37.7 KB · Affichages: 2

job75

XLDnaute Barbatruc
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

  • 1,63 Evol RDV.xlsm
    38.2 KB · Affichages: 2
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…