Tri par macro selon une liste établie

[guitou77]

Bonjour le forum,
Est-il possible de faire le tri d'un tableau avec une macro, dans l'ordre
d'une liste établie.
Avec tous mes remerciements anticipés, je vous souhaite une bonne nuit.
@ +

 

[guitou77]

Re : Tri par macro selon une liste établie

Rebonsoir,
Excuser moi j'ai omis le fichier.
@+

 

[ROGER2327]

Re : Tri par macro selon une liste établie

Bonsoir guitou77

Essayez ceci :

[COLOR="DarkSlateGray"][B]Sub Macro1()
    Application.AddCustomList ListArray:=Range("Q3:Q17")
    Range("A4:F27").Sort Key1:=Range("A4"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=Application.CustomListCount + 1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Application.DeleteCustomList ListNum:=Application.CustomListCount
End Sub[/B][/COLOR]

ROGER2327
#3543

Dimanche 8 Merdre 137 (Cocuage de Monsieur le Père Ubu, SS)
6 Prairial An CCXVIII
2010-W21-2T23:20:24Z

 

[guitou77]

Re : Tri par macro selon une liste établie

Bonjour Roger2327, bonjour le Forum,

Adaptée à mon dossier, la macro fonctionne impeccablement.
Avec tous mes plus vifs remerciements Roger2327 pour le coup de main.
@+