Trier par ordre Decroissant en ligne

[benloco]

bonjour a tous,

je souhaite faire une macro qui puisse me mettre par ordre decroissant selon le critere trouver sur la ligne 5 et cela a partir de la colonne 8

J'ai pu enregister une macro, mais malheuresement, elle marche mais uniquement sur la feuille ouverte visuellement .

Range("H3:BA49").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Sort Key1:=Range("H5"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal


Je souhaite donc trouver un code pour faire ce tri sur toute les pages.

??

Merci bien.

 

[phlaurent55]

Re : Trier par ordre Decroissant en ligne

Bonjour benloco

avec ceci:

Sub tri()
For i = 1 To Sheets.Count
With Sheets(i)
Range("H3:BA49").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Sort Key1:=Range("H5"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
End With
Next i
End Sub

à+
Philippe

 

[benloco]

Re : Trier par ordre Decroissant en ligne

Salut Philippe,

ca n a pas lair de marcher, lorsque je lance la macro, c pareil, uniquement la feuille ouverte va changer pas les autres.

faut il mettre i comme variant, integer ?????

merci

 

[phlaurent55]

Re : Trier par ordre Decroissant en ligne

Re,

après avoir mis le "désordre" dans les feuilles, j'ai utilisé le code tel que tu le vois
et ça a bien fonctionné sur toutes les feuilles

je ne pense pas que le fait de déclarer Dim i As Integer va changer quelque chose

à+
Philippe