Discussion :

[Tierisa]

Bonjour

j'ai une formule de condition que je veux inserer dans une cellule d'excel à partir d'access.

Cette formule est:

=SI(NON('ESSAI'!I10=" "); "Données produit insuffisantes pour la détermination d'un modèle";SI('ESSAI'!J24="NON"; "Problème de normalité des résidus";SI('ESSAI'!G4="NON"; "Problème de regression : moyenne des résidus non nulle";SI('ESSAI'!G14>5; "Modèle non significatif";SI('ESSAI'!F21>5; "Coefficient A non significatif";SI('ESSAI'!F22>5; "Coefficient B non significatif";SI('ESSAI'!F23>5; "Coefficient n non significatif";SI('ESSAI'!J13<0,85; "Coefficient de détermination faible";"NON"))))))))

Pas de panique, je ne demande pas de la vérifier , elle fonctionne je l'ai testée!

Mon problème est le suivant:
Par étapes successives j'arrive à attribuer à ma constante Cst l'ensemble de cette formule et ensuite je l'envoie dans excel de cette façon:

Code :

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

oWkb.Sheets("Prediction").Cells(i, 7) = Cst

à ce moment j'ai le message d'erreur: "Erreur définie par l'application ou par l'objet"

Donc pour vérifier je fais debug.print Cst et je colle la réponse moi-même directement dans la cellule d'excel et là ça fonctionne. Pourquoi ça ne marche pas si je veux le mettre par le code svp?
Peut être faut il attribuer un type particuler à ma constante Cst qui est actuellement définie comme string

[LedZeppII]

Bonjour,

Peut-être en utilisant la propriété FormulaLocal

Code :

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

oWkb.Sheets("Prediction").Cells(i, 7).FormulaLocal = Cst

A+

[Tierisa]

rien à dire you're the best. ça fonctionne nikel. merci