Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel formule si

formule si

1 réponse
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.


J'ai essay=E9 de construire une variable de type string=20
contenant la formule:

Dim maformule As String
dim db1 as double

maformule =3D "=3Dif(C1>0,0," & db1 & ")"

Sheets("port OI1").Range("C16").Formula =3D maformule

Cela ne fonctionne toujours pas.
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Philippe.R
Bonjour Charles,
Les réponses à la question posée 24 mn plus tôt conviennent elles ?
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"charles" a écrit dans le message de
news:1a23201c44e0f$d2692a80$
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.


J'ai essayé de construire une variable de type string
contenant la formule:

Dim maformule As String
dim db1 as double

maformule = "=if(C1>0,0," & db1 & ")"

Sheets("port OI1").Range("C16").Formula = maformule

Cela ne fonctionne toujours pas.