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

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 à 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 :mad:

Merci de votre aide

Sébastien
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

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

Discussions similaires

Réponses
20
Affichages
431
Réponses
4
Affichages
355

Statistiques des forums

Discussions
313 198
Messages
2 096 142
Membres
106 505
dernier inscrit
ngomez