Delphi + Excel : Formule avec IF

Version imprimable

12/11/2012, 14h13
drxel

Delphi + Excel : Formule avec IF
Bonjour,

J'ai un petit soucis avec Delphi et Excel lorsque je veux utiliser une formule avec "IF" :
Avec une Formule simple (B1-B2), il n'y a pas de problème :

Code:

MaFeuille.Cells.Item[1,1].Formula:='=B1-B2';

Mais des que je veux utiliser un "IF", ça ne fonctionne plus :

Code:

MaFeuille.Cells.Item[1,1].Formula :='=IF(B3<3;"PASS";"FAIL")';

Pourtant si je passe la formule directement ( a la main ) dans la cellule excel, il n'y a pas de problème.

J'ai essaye avec

Code:

MaFeuille.Cells.Item[1,1].Value:=...

Code:

MaFeuille.Cells.Item[1,1].Formula:=...

Code:

MaFeuille.Cells.Item[1,1].FormulaR1C1:=...

mais j'ai l'erreur : 800A03EC

Quelqu'un aurait il une solution ?
Si en plus de la solution, quelqu'un savait comment dans cette même formule je puisse lui dire de mettre la cellule en rouge (FAIL) ou vert (PASS) sans avoir a passer par :
Code:

1 2 3 4 MaFeuille.Cells.Item[1,1].FormatConditions.add.... MaFeuille.Cells.Item[1,1].FormatConditions[1].interior.Color..... .....
Par avance, merci.

Win7, Delphi 2007
12/11/2012, 14h38
ShaiLeTroll

HRESULT 800A03EC, cela se décompose ainsi
8 Error
A Control Automation
3EC = 1004 = ERROR_INVALID_FLAGS

Pour la coloration, je pense qu'il n'y a pas plus simple que ton code hormis d'intégrer une macro dans le fichier EXCEL

As-tu essaye SI ?
Entre Formula et LocalFormula, il y a toujours des surprises

Tu utilises " (double quote) as tu essayé '' (simple quote deux fois)
12/11/2012, 14h50
drxel

Salut ShaiLeTroll,

Pour "LocalFormula", il ne connait pas : "Method not supported by automation"

Pour le "SI" a la place de "IF" : c'est un excel en anglais, mais j'ai essaye (on ne sait jamais) : même probleme

Citation:

Tu utilises " (double quote) as tu essayé '' (simple quote deux fois)

J'ai essaye mais ce n'est pas mieux.
12/11/2012, 15h11
ShaiLeTroll

Essaye un truc, créer un fichier excel vierge, met dans la cellule A1, ta formule souhaité
ouvre le fichier et fait un ShowMessage(MaFeuille.Cells.Item[1,1].Formula);,
peut-être que la syntaxe interne n'est pas exactement celle que l'on saisie !
12/11/2012, 15h16
tourlourou

La formule est a priori à loger dans Value : delphi-excel-probleme-formule
et pour les valeurs conditionnelles, essaye avec autre chose : 1 et 2 par exemple ; restera à trouver la bonne syntaxe

Merci de l'astuce, ShaiLeTroll
en utilisant

Citation:

ShowMessage(MaFeuille.Cells.Item[1,1].Formula);

il me donne la formule :

Code:

'=IF(K73<3,"PASS","FAIL")'

et non

Code:

'=IF(K73<3;"PASS";"FAIL")'

donc j'utilse la version avec les "," et pas les ";" et ça marche.

Code:

MaFeuille.Cells.Item[Actual_Line,11].Formula :='=IF(K73<3,"PASS","FAIL")';

Seulement quand je regarde, sous excel, la formule dans le fichier créé, j'ai bien :

Citation:

'=IF(K73<3;"PASS";"FAIL")'

du moment que ça marche, ce n'est pas grave.

Pour les couleurs, j'ai essaye cela sans succès :
Code:

1 2 3 4 5 6 7 8 9 10 11 MaFeuille.Cells.Item[Actual_Line,11].FormatConditions.add(2,3,'=FAIL'); MaFeuille.Cells.Item[Actual_Line,11].FormatConditions[1].interior.Color:=255; MaFeuille.Cells.Item[Actual_Line,11].FormatConditions[1].interior.PatternColorIndex:=1; MaFeuille.Cells.Item[Actual_Line,11].FormatConditions[1].interior.TintAndShade:=0; MaFeuille.Cells.Item[Actual_Line,11].FormatConditions[1].StopIfTrue:=True; MaFeuille.Cells.Item[Actual_Line,11].FormatConditions.add(2,3,'=PASS'); MaFeuille.Cells.Item[Actual_Line,11].FormatConditions[2].interior.Color:=5296274; MaFeuille.Cells.Item[Actual_Line,11].FormatConditions[2].interior.PatternColorIndex:=1; MaFeuille.Cells.Item[Actual_Line,11].FormatConditions[2].interior.TintAndShade:=0; MaFeuille.Cells.Item[Actual_Line,11].FormatConditions[2].StopIfTrue:=True;
Aurais-tu idée de mon erreur ?

Tourlourou, j'avais vu le post mais le pb était le même.

12/11/2012, 15h59
drxel

Pour les "Formatconditions", avant de demander, j'ai évidement regardé du coté de :
http://msdn.microsoft.com/en-us/library/aa221100.aspx

Pour les conditions, ceci fonctionne :

Code:

1
2
3
4
5
6
7
8
9
10
11
 
      MaFeuille.Cells.Item[Actual_Line,11].FormatConditions.add(2,3,'=$K$73>=3');
      MaFeuille.Cells.Item[Actual_Line,11].FormatConditions[1].interior.Color:=255;
      MaFeuille.Cells.Item[Actual_Line,11].FormatConditions[1].interior.PatternColorIndex:=1;
      MaFeuille.Cells.Item[Actual_Line,11].FormatConditions[1].interior.TintAndShade:=0;
      MaFeuille.Cells.Item[Actual_Line,11].FormatConditions[1].StopIfTrue:=True;
      MaFeuille.Cells.Item[Actual_Line,11].FormatConditions.add(2,3,'=$K$<3');
      MaFeuille.Cells.Item[Actual_Line,11].FormatConditions[2].interior.Color:=5296274;
      MaFeuille.Cells.Item[Actual_Line,11].FormatConditions[2].interior.PatternColorIndex:=1;
      MaFeuille.Cells.Item[Actual_Line,11].FormatConditions[2].interior.TintAndShade:=0;
      MaFeuille.Cells.Item[Actual_Line,11].FormatConditions[2].StopIfTrue:=True;

Il ne faut pas se soucier des mots "PASS" et "FAIL" (donnés par la formule).
Et établir les FormatConditions sur les mêmes conditions qui donnent "PASS" et "FAIL" mais cette fois-ci donnent les couleurs.

en ligne 7, il faut lire

Code:

1
2
 
      MaFeuille.Cells.Item[Actual_Line,11].FormatConditions.add(2,3,'=$K$73<3');