VBA variables dans FormulaLocal

Bonjour,

J'ai un petit problème avec des variables dans ma macro.

Je définis 2 variables f1 et f2 qui sont les deux morceaux de ma formule car j'utilise cette formule plusieurs fois.

f1 ="=SIERREUR(SI(DATE(INDEX(4:4;1;EQUIV(""ANNEE DEBUT"";$3:$3;0))+"

f2 = ";INDEX(4:4;1;EQUIV(""MOIS DEBUT"";$3...

j'ai donc f1 et f2, ensuite j'écris Cells(...,...).formulalocal = f1 & "3" & f2

Je change donc seulement mon numéro mais ça ne fonctionne pas.

Si quelqu'un peut m'aider merci.

Bonjour,

Il faut peut être utiliser EVALUATE...

@ bientôt

LouReeD

Merci mais ça ne fonctionne pas...

bonjour,

difficile de t'aider avec si peu d'infos.

"ça ne fonctionne pas" ...

pas de code complet

pas de fichier

pas d'indication sur ce qui ne marche pas (message d'erreur ? pas le résultat attendu, quel est-il ?)

merci de nous aider à t'aider.

Dim f1 As String, f2 As String
f1 = "=SIERREUR(SI(DATE(INDEX(4:4;1;EQUIV(""ANNEE DEBUT"";$3:$3;0))+"
f2 = ";INDEX(4:4;1;EQUIV(""MOIS DEBUT"";$3:$3;0))-INDEX(4:4;1;EQUIV(""*délai préavis*"";$3:$3;0));INDEX(4:4;1;EQUIV(""JOUR DEBUT"";$3:$3;0))-1)<$F$1;"""";DATE(ANNEE(INDEX(4:4;1;EQUIV(""*fin de 1ère période"";$3:$3;0));MOIS(INDEX(4:4;1;EQUIV(""*fin de 1ère période"";$3:$3;0)))-INDEX(4:4;1;EQUIV(""*délai préavis*"";$3:$3;0));JOUR(INDEX(4:4;1;EQUIV(""*fin de 1ère période"";$3:$3;0)))));"""")"

Cells(4, 4).FormulaLocal = f1 & "3" & f2

voici mes deux variables qui contiennent ma formule

je veux seulement changer à chaque fois le numéro "3"

mais j'ai une erreur '1004' sur le formulalocal

Je ne comprend pas d'où vient l'erreur et si je supprime le signe "=" au début de ma formule elle s'écrit très bien dans ma cellule avec le chiffre au milieu...

J'espère avoir été plus clair, merci...

J'ai trouvé le problème, c'était seulement une erreur dans ma formule Merci !

Bravo @ vous !

N'hésitez pas à revenir !

@ bientôt

LouReeD