Macros pour trier

[SHANE]

Bjr a tous
j'ai une macro de tri qui doit trier une plage de A6 a P ? sur la colonne A puis en 2ème sur la colonne B
Celle ci fonctionne mais sachant que le nombre de lignes est variable j'ai prevue la plage jusqu'a P10000
Mais y a t'il un moyen de faire mieux et qu'il trouve toujours la dernière ligne
je crois qu'il y a une constante xlDown mais je ne sais pas très bien m'en servir

Sub CTri_Dates()

Range('A6').Select
Range(Feuil_2005!A610000').Select
Selection.Sort Key1:=Range('B6'), Order1:=xlAscending, Key2:=Range( _
'A6'), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
End Sub

Merci

 

[bebere]

bonsoir Shane

si Feuil1_2005 n'est pas le nom de la feuille
tu changes

Sub CTri_Dates()
'
With Sheets('Feuil1_2005')
.Range('A6' & .Range('A65536').End(xlUp).Row).Sort Key1:=.Range('B6'), Order1:=xlAscending, Key2:=.Range( _
'A6'), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase _
:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal
End With

End Sub

à bientôt

 

[BobSriker]

Bjr Shane,Bebere,le Forum,
pour sélectionner une plage de cellules remplies ,à partir d'une précise ,ici A1 ,utilises cette écriture :

Range('A1').CurrentRegion.Select

tu places tes tris ensuite.
Bonsoir et bonne fin d'année à tous.