OVH Cloud OVH Cloud

formule if

2 réponses
Avatar
charles
Bonjour,

En VBA je veux ins=E9rer une formule if dans une cellule=20
situ=E9e sur une autre feuille. Je veux utilis=E9e une=20
variable pour ma condition "si faux", cela donne:

Sheets("OI1").Range("C16").Formula =3D "=3Dif(C1>0,0," & db1=20
& ")"

=E7a ne fonctionne pas.J'ai l'erreur d'execution=20
1004 "erreur d=E9finie par l'application ou par l'objet".=20
J'ai essay=E9 avec un variant cela ne fonctionne pas non=20
plus.=20

DB1 est un double car je veux ins=E9rer une valeur num=E9rique.
Le probl=E8me doit venir de db1 car si je rentre le code de=20
la mani=E8re suivante:

Sheets("OI1").Range("C16").Formula =3D "=3Dif(C1>0,0,85)"
cela fonctionne.

Comment faire??

Merci.

2 réponses

Avatar
papou
Bonjour Charles
Essaie en construisant une variable string correspondant à ta formule et
utilise ensuite cette variable :
Dim MaFormule$
MaFormule = "=if(C1>0,0," & db1 & ")"
Sheets("OI1").Range("C16").Formula = MaFormule

Cordialement
Pascal

"charles" a écrit dans le message de
news:1a21601c44e0c$89be7130$
Bonjour,

En VBA je veux insérer une formule if dans une cellule
située sur une autre feuille. Je veux utilisée une
variable pour ma condition "si faux", cela donne:

Sheets("OI1").Range("C16").Formula = "=if(C1>0,0," & db1
& ")"

ça ne fonctionne pas.J'ai l'erreur d'execution
1004 "erreur définie par l'application ou par l'objet".
J'ai essayé avec un variant cela ne fonctionne pas non
plus.

DB1 est un double car je veux insérer une valeur numérique.
Le problème doit venir de db1 car si je rentre le code de
la manière suivante:

Sheets("OI1").Range("C16").Formula = "=if(C1>0,0,85)"
cela fonctionne.

Comment faire??

Merci.
Avatar
Elliac
Bonjour,

db1="0.85"

Camille

-----Message d'origine-----
Bonjour,

En VBA je veux insérer une formule if dans une cellule
située sur une autre feuille. Je veux utilisée une
variable pour ma condition "si faux", cela donne:

Sheets("OI1").Range("C16").Formula = "=if(C1>0,0," & db1
& ")"

ça ne fonctionne pas.J'ai l'erreur d'execution
1004 "erreur définie par l'application ou par l'objet".
J'ai essayé avec un variant cela ne fonctionne pas non
plus.

DB1 est un double car je veux insérer une valeur
numérique.

Le problème doit venir de db1 car si je rentre le code de
la manière suivante:

Sheets("OI1").Range("C16").Formula = "=if(C1>0,0,85)"
cela fonctionne.

Comment faire??

Merci.
.