Sous totaux dans excel 2007

Bonjour,
je voudrais appliquer des sous-totaux sur une feuille de calcul.
J'utilise DELPHI 7 Personnel et EXCEL2007.
La formule SUBTOTAL contient normalement les parametres suivant:
1 la colonne sur laquelle on detecte les changements de valeurs
2 la fonction a réaliser
3 Les colonnes sur lesquelles on fait des totaux
les parametres 4, 5 et 6 sont respectivement a TRUE, FALSE et TRUE pour mon cas.
Ce qui donne:

Code:

---

1 2 3 4

Excel := GetActiveOleObject('Excel.Application');   Excel.columns.subtotal(3,1,6,TRUE,FALSE,TRUE);

---

Pour ce cas précis, la fonction marche bien (detection sur la colonne 3 avec la fonction SOMME et SOUS-TOTAUX dans la colonne 6)
Le probleme est que je voudrais faire des sous-totaux dans plusieurs colonnes en même temps ex: colonne 6 et 7 mais je ne sais pas écrire à la place du 6 quelquechose designant deux colonnes.

Dans excel, on peut indiquer plusieurs colonnes en même temps !
Merci d'avance pour les réponses.:oops:

subtotal
accepte un "An array of 1-based field offsets, indicating the fields to which the subtotals are added"

Code:

---

Excel.columns.subtotal(3,1,VarArrayOf([6, 7]),TRUE,FALSE,TRUE);

---

VarArrayOf renvoie un variant, si il faut un OleVariant cela peut être plus complexe avec VarArrayCreate

Code:

---

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

var V: OleVariant; ...   V := VarArrayCreate([0, 1], varInteger); try   V[0] := 6; V[1] := 7;   Excel.columns.subtotal(3,1,V,TRUE,FALSE,TRUE);   finally VarClear(V); end;

---

Après il y a aussi SafeArrayCreate

Code:

---

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

var V: OleVariant; ArrayBounds : TVarArrayBoundArray; K: Integer; ... SetLength(ArrayBounds, 1); ArrayBounds[0].LowBound:= 0; ArrayBounds[0].ElementCount:= 2;   V := SafeArrayCreate( varInteger, 1, ArrayBounds);   K := 6; SafeArrayPutElement(V, 0, @K); K := 7; SafeArrayPutElement(V, 1, @K);   Excel.columns.subtotal(3,1,V,TRUE,FALSE,TRUE);

---

Bonjour Mr ShaiLeTroll,
c'est clair, précis et répond à ma question !

Merci et Bravo !.

J'avais bien essayé avec v:array[0..1] of integer ou variant mais cela ne marchait pas !

Maintenant, je sais transmettre des tableaux en OLE :ccool: