Discussion :

[phildouja]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

   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

[Qwazerty]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

A partir de la tu peux donc egalement faite

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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