Macro tri automatique et selection ligne "triee"

[Florent]

Bonjour,
J ai realise une macro grace a l enregistreur de macro de Excel: Elle permet le tri automatique des donnees.
Cette macro est activee a chaque entree d une nouvelle ligne par un double clic.
Le hic c est que je n arrive pas (je ne sais pas comment faire) a ce que Excel se remette automatiquement sur la ligne qui vient d etre "rangee".
Cad je voudrais que Excel, apres le tri, se repositionne automatiquement sur la ligne qui etait precedemment active et a ete deplacee pendant le tri. J espere etre assez clair
Auriez vous une idee a ce sujet?

Voici mon code:

Sub Sort()
' Sort Macro
Cells.Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
, Order2:=xlAscending, Key3:=Range("E2"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select
End Sub

Cordialement,
Florent

 

[Yeahou]

Bonjour

Trie sans faire de sélection
cela devrait suffire
sinon fais un set celmem = activecell avant de lancer le tri et un celmem.select aprés

A+

Sub Sort()
' Sort Macro
Cells.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
, Order2:=xlAscending, Key3:=Range("E2"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub