Tri de données - simplification de code

GADENSEB

XLDnaute Impliqué
Bonjourle forum

je cherche à tri une bdd par la colonne B (des dates) et ascendant

avec l'enregistreur de macro cela donne cela

Code:
Sub Tridonnées()
With Sheets("COMPTES")
' Macro1 Macro

    Range("A1:S1").Select
    Selection.AutoFilter
    Range("B1").Select
    ActiveWorkbook.Worksheets("COMPTES").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("COMPTES").AutoFilter.Sort.SortFields.Add Key:= _
        Range("B1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("COMPTES").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
 End With
    End With
End Sub

comment simplifier ce code ?

Bonne journée
Sébastien
 

CBernardT

XLDnaute Barbatruc
Re : Tri de données - simplification de code

Bonjour GADENSEB, cathodique et le forum,

Essaye cette macro :

Sub Tridonnées()
With Sheets("COMPTES")
.Range("A2:S" & .Range("A65000").End(xlUp).Row).Sort , key1:=.Range("B2"), order1:=xlAscending
End With
End Sub
 

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 846
dernier inscrit
Silhabib