insertion d'une formule via VBA

Bonjour Christian,

Range("A1").FormulaLocal = "=SI(B2<8!A2;""Rupture"";"" "")"


Salutations!


"Christian" <christian.blaise@wanadoo.be> a écrit dans le message de news: Od%23ut9pxEHA.1564@TK2MSFTNGP09.phx.gbl...

Bonjour le groupe

J'ai un problème avec le code suivant:

J'ai une feuille qui dans ce cas se nomme "8".
J'ai besoin d'écrire la formule =SI(B2<'8'!A2;"Rupture";" ") dans la cellule
A1 de la feuil1
Lorsque j'exécute le code il me met bien la formule exacte mais me met une
erreur #NOM?
Si je tape sur F2 puis enter pour valider, il accepte la formule sans
problème alors que je n'ai rien modifié dedans.

Ne comprend pas pourquoi...quelqu'un peut m'aider ?


Sub formule()
Range("a1").Select
valeur_cell = 8
posi = "'!A2"
zn2$ = "b2"

formu2 = "=SI(" + zn2$ + "<'" + Mid$(Str$((valeur_cell)), 2) + posi +
",""Rupture"","" "")"
ActiveCell.Formula = formu2

End Sub

Salut,

En remplaçant Si par If,

Sub formule()
Range("a1").Select
valeur_cell = 8
posi = "'!A2"
zn2$ = "b2"
formu2 = "=If(" + zn2$ + "<'" + Mid$(Str$((valeur_cell)), 2) + posi +
",Rupture,"""")"
ActiveCell.Formula = formu2
End Sub

Chez moiça marche
A+
Jc

Super, cela fonctionne.
Je tenais à vous dire que le groupe est super.

Merci beaucoup

Christian


"Jean-Claude" <jcvalProut@wanadoo.fr> a écrit dans le message de news:
eKoJDKqxEHA.2876@TK2MSFTNGP12.phx.gbl...

Salut,

En remplaçant Si par If,

Sub formule()
Range("a1").Select
valeur_cell = 8
posi = "'!A2"
zn2$ = "b2"
formu2 = "=If(" + zn2$ + "<'" + Mid$(Str$((valeur_cell)), 2) + posi +
",Rupture,"""")"
ActiveCell.Formula = formu2
End Sub

Chez moiça marche
A+
Jc