Microsoft 365 tri automatique dates

[GUERET]

Bonsoir,
Je suis en trains de créer cette feuille compta et je souhaiterai automatiser le tri en fonction de la date sur toutes les feuilles (de Janvier à Décembre).
J'ai essayé cette VBA mais elle ne fonctionne pas.
Cordialement

Sub macro_tri()

SortFields.Clear

SortFields.Add Key:=Range("C5"), SortOn:=xlSortOnValues, Order:= _

xlAscending, DataOption:=xlSortNormal

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

End Sub

 

[TooFatBoy]

Bonjour,

Une proposition ci-dessous :

Sub macro_tri()
'
    Set Mafeuille = ActiveSheet     ' à adapter
    With Mafeuille.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("C5:C39"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange Range("C4:C39")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

ps : des tableaux structurés seraient peut-être mieux.

 

[ChTi160]

Bonsoir le Fil
Une adaptation de la proposition de @TooFatBoy

Sub macro_tri()
Dim DerLgn As Integer
    Set Mafeuille = ActiveSheet     ' à adapter
    DerLgn = Mafeuille.Cells(Mafeuille.Rows.Count, 3).End(xlUp).Row
    With Mafeuille.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("C5:C" & DerLgn), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
        .SetRange Range("C4:F" & DerLgn)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Jean marie

 

[JM27]

bonjour
A tester

Sub Trier()
           Range("C5:F" & Range("C65536").End(xlUp).Row).Sort key1:=Range("C5"), order1:=xlAscending, Header:=xlNo
End Sub

 

[GUERET]

Bonsoir le Fil
Une adaptation de la proposition de @TooFatBoy

Sub macro_tri()
Dim DerLgn As Integer
    Set Mafeuille = ActiveSheet     ' à adapter
    DerLgn = Mafeuille.Cells(Mafeuille.Rows.Count, 3).End(xlUp).Row
    With Mafeuille.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("C5:C" & DerLgn), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
        .SetRange Range("C4:F" & DerLgn)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Jean marie

 

[herve62]

Bonsoir tous
M'enfin !!!! 😢 @GUERET
fait de l'enregistrement de macro !! c'est ce que tout le monde te propose ensuite tu l'adaptes !!

 

[GUERET]

Merci pour le conseil et pourtant je pense l'avoir fait. Je revérifie.