Paramétrer une instruction VBA

Je n'ai pas trouvé le moyen de parametrer xlAscending / xlDescending dans

Code:

---

1 2 3

ActiveWorkbook.Worksheets("feuil1").Sort.SortFields.Add Key:=Range( _ "C1:C73"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal

---

qui se trouve dans une procédure appelée.

De même pour ma suppression des doublons que je peux faire sur X colonnes, je ne peux pas remplacer Columns:=Array(1, 2, 3, 4, 5) ou Array(1, 2, 3, 4, 5) par une variable CRITERES que je construirai à volonté pour avoir :

Code:

---

1 2 3

ActiveSheet.Range("$A$1:$J$21137").RemoveDuplicates CRITERES , Header:=xlNo ou ActiveSheet.Range("$A$1:$J$21137").RemoveDuplicates Columns:=CRITERES, Header:=xlNo

---

au lieu de

Code:

---

ActiveSheet.Range("$A$1:$J$21137").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5), Header:=xlNo

---

Mais peut-êrtre que ce n'est pas possible et qu'il faut que je contourne le problème autrement.

Merci d'avance

Salut
Bien sur c'est possible, enfin si tenté que RemoveDuplicates existe, par ce qu'il n'existe pas avant la version 2007 visiblement.
Il faut juste que Critere soit d'eclaré comme un array (type variant au vu de l'aide Excel)
comme ceci par exemple

Code:

---

1 2	Dim Critere as variant critere = array(1,2,3,4)

---

A partir de la tu peux donc egalement faite

Code:

---

1 2 3 4 5

Dim Critere(4) as variant Critere(0) = 2 Critere(1) = 5 Critere(2) = 6 Critere(3) = 8

---

Pour des créations plus complexes, voila un super tutoriel qui te permettra d'apprendre a manipuler les tableaux sous excel.

A++
Qwaz