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
comment simplifier ce code ?
Bonne journée
Sébastien
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 Subcomment simplifier ce code ?
Bonne journée
Sébastien