Tri de lignes à partir de la colonne Q (valeur)

Bonjour,

j'aimerai trier les lignes de certaines feuilles à partir de la colonne Q contenant des valeurs uniquement,

j'ai obtenu un code en VBA sur la feuille X mais j'aimerai le modifier pour pouvoir l'appliquer à n'importe quelle feuille

Sub Macrotri()

Range("B2:R500").Select

ActiveWorkbook.Worksheets("X").Sort.SortFields.Clear

ActiveWorkbook.Worksheets("X").Sort.SortFields.Add Key:=Range("Q2:Q500"), _

SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

With ActiveWorkbook.Worksheets("X").Sort

.SetRange Range("B2:Q500")

.Header = xlGuess

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

ActiveWindow.ScrollColumn = 1

Range("A2").Select

End Sub

Merci de votre aide

Bonjour max592,

Remplace ton nom de feuille par activesheet, sa devrait fonctionner.

Sub Macrotri()

Range("B2:R500").Select
ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range("Q2:Q500"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.ActiveSheet.Sort
.SetRange Range("B2:Q500")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWindow.ScrollColumn = 1
Range("A2").Select
End Sub

Merci.. tout simplement

Bonjour,

Une autre proposition.

Cdlt.

Public Sub Sort_Data()
Dim ws As Worksheet, rng As Range
    Set ws = ActiveSheet
    Set rng = ws.Range("B2:R500")
    With ws.Sort
        .SortFields.Add rng.Cells(16), xlSortOnValues, xlAscending
        .SetRange rng
        .Header = xlGuess
        .Apply
        .SortFields.Clear
    End With
End Sub