macro tri croissant

[duplaly]

Bonjour
j'ai un tableau avec les colonnes A à I et plusieurs lignes. je voudrais écrire une macro pour faire un tri croissant sur la colonne A.
j'aimerais que toutes soient triées.
Merci pour l'aide

 

[JCGL]

Re : macro tri croissant

Bonjour à tous,

Peux-tu essayer :

Option Explicit

Sub TrisurA()
    Columns("A:I").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess
    Range("A1").Select
End Sub

A+ à tous

 

[Rep]

Re : macro tri croissant

Bonsoir,

Essayez ceci :

Sub Tri_ascendant()
'
    Range("A1:I1").CurrentRegion.Select
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("A1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("A1:I1")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub