Tri personnalisé VBA

Bonjour,

J'ai une série de 23 codes qui ont des montants annuels (de 2005 à 2016).
Mes données sont réparties de la sorte:

Code	Annee	Tr1	Tr2	Total 
CAD	2005	979,00	405,00	1 384,00   
CAD	2006	0	63,00	63,00
...   
CAD	2016	979,00	72,00	1 051,00  
 
AED	2005	792,12	65,00	857,12  
... 
AED	2016	792,12	65,00	857,12
   
X01	2005	367,54	0	367,54  
.. 
X01	2016	367,54	0	367,54 

...
Je veux trier mon tableau par une liste personnalisée:

An    Code	 Tr1 	 Tr2 	 Total 
2005	X01	 ***   ***    ***		
	KWD	 ***   ***    ***
	GBP	 ***   ***    ***
	ESP			
	X25			
2006	X01			
	KWD			
	GBP			
	ESP			
	X25			
....
2016 X01			
	KWD			
	GBP			
	ESP			
	X25	

J'ai essayé (aprés permutation manuelle des colonnes):

Code:

---

1 2 3 4

Sub TriTAB() SortTable ThisWorkbook.Worksheets("Feuil1"), SortList:="-2" SortTable Worksheets("Feuil1").Range("C2"), CustomList:="X01;KWD;GBP;ESP;X25" End Sub

---

Avec Année à la colonne 2 et code à la colonne 3.
==>Erreur de compilation!!
Idées??

Salut,

en utilisant l'enregistreur de macro on trouve ceci (que j'ai corrige/optimise le cas echeant)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

'les donnees sont dans les colonnes A a E dans ton ordre a toi (Code / Annee / Tr1 Tr2 Total) Columns("A:E").Select ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("B2:B13") _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A2:A13") _ , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Sheet1").Sort .SetRange Range("A1:E13") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With

---

si tu veux qu'une fois ce tri est fait, permuter tes colonnes, tu peux le faire

Merci beaucoup pour cette réponse rapide.
très bon travail!!
sauf que je cherche à trier mes données selon les 5 plus importants codes mentionnés(X01;KWD;GBP;ESP;X25) et par l'ordre indiqué, pour chaque année.
Et non pas en ordre descendant.
Autrement dit, je dois avoir ces 5 codes en premier ordonnées: X01 puis KWD,...et cela pour chaque année, les autres codes peu importe leurs ordres.
j’espère que tu me comprends.

OK,

pas de soucis non plus,

- etape 1 la liste de tri souhaitee

Code:

---

Application.AddCustomList ListArray:=Array("X01", "KWD", "GBP", "ESP", "X25")

---

qui prendra le nom automatique de "X01,KWD,GBP,ESP,X25"
- etape 2 la liste de tri souhaitee

Code:

---

1 2 3

ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A2:A6"), _ SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _ "X01,KWD,GBP,ESP,X25", DataOption:=xlSortNormal

---

a adapter au reste deja donne plus tot ce jour.

Parfait!! Merci énormément!!

Je vais aller trop loin si vous me le permettez!!
y a t il une possibilité de diviser mon tableau en colonnes çàd: classer chaque répartition des codes par année, l'une prés de l'autre
comme suit:

2005 Tr1 Tr2 Tot 2006 Tr1 Tr2 Tot....2016 codes Tr1 Tr2 Tot
X01 *** ***
KWD
GBP
....

C est optionnel mais c'est beaucoup plus commode de gérer des colonnes que des lignes!!

Oui ca reste possible, mais la il faut chercher un peu par soi meme =]