Incorporé une formule dans une cellule via VB

[N0n0.xls]

Bonjour,

Je suis conscient que ce type de sujet a déjà été ouvert et traité dans le forum, mais malgrès mes recherches je ne parvient pas à trouver une solution à mon problème.

Je souhaiterais insérer une formule dans une cellule via vb (jusque là je m'en sors), mais un message d'erreur apparait lorsque je fini de rentrer ma formule.
Petite précision, ma formule contient une variable car elle doit être insérée suite à la création d'une nouvelle ligne.

Ma ligne de code est la suivante:

Range("J" & Lin1).Value"=IF(AND(OR(NOT(OR(Dashboard!D"&lin1&"=""Done"",Dashboard!D"&lin1&"=""N/A"")),NOT(Dashboard!E"&lin1&"=""Closed / Delivered"")),NOT(Dashboard!D"&lin1"=""will not be provided"")),1,0)"

'Lin1' est ma variable.

Les parties qui posent problème sont celles en rouge. Le message d'erreur suivant apparait:

"Expected: end of statement" (désolé je fonctionne avec un Excel Anglais...).

Merci d'avance de votre aide.

 

[Efgé]

Re : Incorporé une formule dans une cellule via VB

Bonjour N0n0.xls
Essai plutot

Range("J" & Lin1).Formula ="=IF(AND(OR(NOT(OR(Dashboard!D"&lin1&"=""Done"",Dashboard!D"&lin1&"=""N/A"")),NOT(Dashboard!E"&lin1&"=""Closed / Delivered"")),NOT(Dashboard!D"&lin1"=""will not be provided"")),1,0)"

Avec le .Value tu ne mets pas une formule mais une valeur.
Cordialement

 

[Efgé]

Re : Incorporé une formule dans une cellule via VB

Re,
En plus il manque des espaces entre les & ainsi qu'un &
Version complète et testée

Range("J" & lin1).Formula = "=IF(AND(OR(NOT(OR(Dashboard!D" & lin1 & "=""Done"",Dashboard!D" & lin1 & "=""N/A"")),NOT(Dashboard!E" & lin1 & "=""Closed / Delivered"")),NOT(Dashboard!D" & lin1 & "=""will not be provided"")),1,0)"

Cordialement

 

[N0n0.xls]

Re : Incorporé une formule dans une cellule via VB

En effet ça marche.

Merci beaucoup de votre aide!