Tri de données - simplification de code

GADENSEB · 6 Février 2016

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

cathodique · 6 Février 2016

Re : Tri de données - simplification de code

Bonjour,

Mets les lignes l'une après l'autre en commentaire, tu sauras quelles sont les lignes qui ne sont pas indispensables.

Sinon, tu as un post similaire ICI

Bonne journée.

CBernardT · 6 Février 2016

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

GADENSEB · 6 Février 2016

Re : Tri de données - simplification de code

Parfait !!!

Merci à tous les 2 !

Bon We

Tri de données - simplification de code

GADENSEB

XLDnaute Impliqué

cathodique

XLDnaute Barbatruc

CBernardT

XLDnaute Barbatruc

GADENSEB

XLDnaute Impliqué

Discussions similaires