Vba Trier les données

[noviceAG]

Bonour à tout le Forum en ce début de Week-end,
Je souhaite réaliser ce genre de tri dans une feuille nommée Base.
Comment modifier ce code pour qu'il s'adapte automatiquement aux données (nb de lignes variables) de la feuille ?

Sub TriDonnees()
Cells.Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("A3") _
, Order2:=xlAscending, Key3:=Range("A4"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
End Sub

En vous remerciant

 

[Bebere]

Re : Vba Trier les données

bonjour Noviceag
Sub TriDonnees()
si tu as une ligne d'entêtes comme suit,la feuille active(visible à l'écran)
Range("A1") .Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("A3") _
, Order2:=xlAscending, Key3:=Range("A4"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal

'sans ligne d'entêtes,la feuille non active
With ThisWorkbook.Worksheets("Feuil1")
L = .Range("A65536").End(xlUp).Row
.Range("A2:B" & L).Sort Key1:=.Range("B2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
end with



End Sub
à bientôt

 

[skoobi]

Re : Vba Trier les données

Bonjour,

Même si le nombre de ligne varie, avec Cells.Select tu triera systématiquement toute la feuille.

Edit: arrff collision, bonjour Bebere

 

[noviceAG]

Re : Vba Trier les données

Bonjour Bebere, skoobi, le Forum,

Je vous remercie très chaleureusement des réponses que vous m'avez communiquées.

En vous souhaitant un excelent Week-end.