Discussion :

[defluc]

Salut à tous les Delphistes

Mon code exécute parfaitement l'instruction :
xlApp.Cells[5+k,4].Formula := '=SUM(Liste!$F$5:Liste!$G$5)';

L'un de vous pourrait-il me dire quelle syntaxe il faut utiliser pour que
xlApp.Cells[LinResult,8].FormulaR1C1 := '=IF(G9>5;F9/E8;"0")'; ne provoque pas un arrêt de l'application sur EOleException, alors que cette formule placée dans une cellule Excel ne pose aucun problème ?

Merci d'avance

[anapurna]

salut

c'est normal que le code fournit plante

Code :

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

1
2
 
xlApp.Cells[LinResult,8].FormulaR1C1 := '=IF(G9>5;F9/E8;"0")';

en fait tu dit a ecxel que tu lui fait une formule a partir de champs relatif et tu y integre des valeur de cellule
la formule devrai etre de cette forme la

Code :

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

IF(RC[-1]>5,RC[-2]/R[-1]C[-3],0)

@+ Phil

[defluc]

Merci de votre réponse.
Je venais de trouver qu'en remplaçant les ";" par de "," cela fonctionne.