Discussion :

[franckjoane]

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 :

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

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.

[ShaiLeTroll]

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

Code :

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

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 :

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

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 :

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

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);

[franckjoane]

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