Répétiton de Tris

[os_rouen]

Re-bonjour,

Je suis confronté au même problème qu'avec mes répétions d'effacement mais avec une macro de tri...

J'ai essayé de dupliquer mais j'ai en core du rater une subtilité...

Dur dur de débuter!!

Dim ws As Worksheet
For Each ws In Worksheets
ws.Range('A6:AP5000').Selection.Sort Key1:=Range('AN7'), Order1:=xlDescending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Next

D'avance merci pour votre aide

Olivier

 

[PascalXLD]

Bonjour

Dim ws As Worksheet
For Each ws In Worksheets
ws.select
Range(\\'A6:AP5000\\').Sort Key1:=Range(\\'AN7\\'), Order1:=xlDescending,
Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Next

Bon courage

Ps ton pseudo vient du fait que tu es de rouen ???

 

[os_rouen]

merci beaucoup!

Et pour répondre au PS : oui je suis à Rouen