OVH Cloud OVH Cloud

copie d'une formule via VBA

3 réponses
Avatar
Boule
La ligne de code suivante renvoi une erreur 1004 (erreur=20
g=E9n=E9r=E9e par l'application)
Range("I22:I51").Formula =3D "=3DSI(H22<>0;21;0)"
or si j'inscri manuellement cette formule =E7a ne pose pas=20
de probl=E8me.
si j'utilise la ligne suivante
Range("I22:I51").Formula =3D "=3DH54"
=E7a fonctionne sans probl=E8me.
Quel est le probl=E8me. Merci d'avance.

3 réponses

Avatar
Jean-Claude
Salut,
Sans être sur, j'écrirais plutôt :
Range("I22:I51").FormulaLocal= "=SI(H22<>0;21;0)"
A+
Jc
"Boule" a écrit dans le message de
news:5b0c01c40095$e8d5cf70$
La ligne de code suivante renvoi une erreur 1004 (erreur
générée par l'application)
Range("I22:I51").Formula = "=SI(H22<>0;21;0)"
or si j'inscri manuellement cette formule ça ne pose pas
de problème.
si j'utilise la ligne suivante
Range("I22:I51").Formula = "=H54"
ça fonctionne sans problème.
Quel est le problème. Merci d'avance.
Avatar
Clément Marcotte
Bonjour, merci, au revoir


"Boule" a écrit dans le message
de news:5b0c01c40095$e8d5cf70$
La ligne de code suivante renvoi une erreur 1004 (erreur
générée par l'application)
Range("I22:I51").Formula = "=SI(H22<>0;21;0)"
or si j'inscri manuellement cette formule ça ne pose pas
de problème.
si j'utilise la ligne suivante
Range("I22:I51").Formula = "=H54"
ça fonctionne sans problème.
Quel est le problème. Merci d'avance.
Avatar
Philippe.R
Bonsoir Boule,
En variante à la proposition de Jean Claude :
Range("I22:I51").Formula = "=IF(H22<>0,21,0)"
avec le nom de la fonction en Grand Breton et des virgules comme séparateurs d'arguments si tu tiens à
avoir la formule dans les cellules, ou sinon :
Range("I22:I51").Value = IIf(H22 <> 0, 21, 0)
si tu veux n'avoir que le résultat
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Boule" a écrit dans le message de
news:5b0c01c40095$e8d5cf70$
La ligne de code suivante renvoi une erreur 1004 (erreur
générée par l'application)
Range("I22:I51").Formula = "=SI(H22<>0;21;0)"
or si j'inscri manuellement cette formule ça ne pose pas
de problème.
si j'utilise la ligne suivante
Range("I22:I51").Formula = "=H54"
ça fonctionne sans problème.
Quel est le problème. Merci d'avance.