Macro pour trier lignes

[mcj1997]

Bonjour,

Je souhaite avoir une macro qui permette de trier des lignes par ordre décroissant suivant les cases selectionnées au préalable, par exemple je saisis les cases de G6 à G12 et j'active la macro pour trier les lignes 6 à 12 suivant les valeurs comprises de G6 à G12. Cette macro fonctionnerait sur des zones différentes en les ayant seulement sélectionnées avec d'activer la macro.

Merci d'avance,

 

[kjin]

Re : Macro pour trier lignes

Bonsoir,
Et l'enregistreur de macro...c'est l'occasion d'essayer
A+
kjin

 

[mcj1997]

Re : Macro pour trier lignes

la zone de tri n'est jamais la même.

 

[kjin]

Re : Macro pour trier lignes

Re,
Avec Henry j'obtiens...

Sub Macro1()
    Range("B6:B11").Select
    Selection.Sort Key1:=Range("B6"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

...et adapté on obtient

Sub Macro1()
    Selection.Sort Key1:=Selection(1), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

A+
kjin

 

[mcj1997]

Re : Macro pour trier lignes

Ce n'est pas bon car cela ne fait que trier dans la colonne selectionnée mais pas au niveau des lignes.

Merci d'avance,

 

[kjin]

Re : Macro pour trier lignes

Re,
Je suis mauvais pour les devinettes...
A+
kjin

 

[mcj1997]

Re : Macro pour trier lignes

oui surement !