Discussion :

[MCoder]

Bonjour.

J'ai dévelopé une application avec laquelle je crée des tableaux dans MS Excel. Dans une colonne j'ai une formule de division des entiers

Code :

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

1
2
 
MonOLE.Cells.Item[MaLigne, 12].FormulatR1C1 := 'RC[-1]/Debit_Std';

Debit_Std est une valeur que je récupère dans un fichier. Quand cette valeur est = 0 (zéro) le fameux message #DIV/0 apparait dans la cellule. J'ai essayé de parer cela avec la formule suivante ;

Code :

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

1
2
 
MonOLE.Cells.Item[MaLigne, 12].FormulatR1C1 := 'IF(ESTERREUR(RC[-1]/Debit_Std),"",RC[-1]/Debit_Std)';

Mais là encore c'est un autre message #NOM! qui apparait.

Quelqu'un peut-il me montrer où est mon erreur ?

Question subsidiaire sur un TStringGrid : Est-il possible de selectionner par ex. la denière cellule de la première ligne d'un TStringGrid ?

Merci d'avance pour vos réponses.

[Just-Soft]

Salut;

à mon avis il te manque un second test qui tient compte du vide. donc, il faut que ton premier if imbrique un autre if qui teste sur le contenu de la cellule.

Bonne chance.

[MCoder]

Merci Kelloucheaeh. A propos de cellule vide, tu veux parler de laquelle ? Celle qui va contenir la formule ou celle identifiée par RC[-1] ?

J'avoue que je ne vois pas très bien comment faire cette imbrication. Si tu peux glisser un exemple.

[Just-Soft]

Re;

voilà ce que je voulais dire:

soit c := a/b
si b = vide alors écrire("blablabla")
sinon si b = 0 alors écrire("blablabla")
fin si
écrire c := a/b;

ou bien

si (b = vide ou b = 0) alors écrire("blablabla")
sinon écrire c := a/b;
fin si

bon codage.

[guillemouze]

a mon avis, tu as un probleme de langue, tu melange "if" et "esterreur".
il faudrait surement utiliser "if" & "iserror" ou "si" & "esterreur".

Mais bon, il y a plus simple, en evitant de creer l'erreur comme ceci :

Code :

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

MonOLE.Cells.Item[MaLigne, 12].FormulatR1C1 := 'IF(Debit_Std=0,"",RC[-1]/Debit_Std)';

[MCoder]

Merci à tous pour toutes vos réponses.

guillemouze :
Vous avez trouvé juste, il fallait remplacer EstErreur par IsError et ca marche : question de syntaxe. Merci

Encore merci à tous.