Recherche en vba pour inserer une formule dans une cellule

Bonjour à tous,

Je cherche actuellement à copier la formule suivante dans une cellule A1 en vba :

Code:

---

=SI('[Toto.xls]LISTE COMPLETE'!AM2="";"0";SI('[Toto.xls]LISTE COMPLETE'!AM2<>"";'[Toto.xls]LISTE COMPLETE'!AM2;A1))

---

J'ai donc écrit dans mon code :

Code:

---

Cells(1, 1) = "=SI('[Toto.xls]LISTE COMPLETE'!AM2="";"0";SI('[Toto.xls]LISTE COMPLETE'!AM2<>"";'[Toto.xls]LISTE COMPLETE'!AM2;A1))"

---

Cependant ca me marque erreur de synthaxe

Je ne comprend pas pourquoi ...
Pouvez vous m'aider svp ?

Merci d'avance

Bonsoir,
avant tout, tu dis :

Citation:

---

enfin il n'y a pas les [code] avant et après ma formule dans mon vba bien sur

---

tu as oublié un crochet sinon tu n'aurais aucun problème "CODE]" => "[code]"
pour éviter ça, apprends à manier les #, juste au dessus de tes posts.

Pour en revenir au sujet qui te préoccupe, le fichier "toto.xls" est'il le fichier sur lequel tu dois copier la formule, c'est a dire même fichier que la destination ?

si oui, une solution parmi d'autres :

Code:

---

1 2	Cells(1, 1).FormulaLocal = _ "=SI(ESTVIDE('LISTE COMPLETE'!AM2);" & "0;SI(ESTVIDE('LISTE COMPLETE'!AM2)=FAUX;'LISTE COMPLETE'!AM2;A1))"

---

Bonjour,
avec l'enregistreur de macro:

Code:

---

1 2 3 4 5

Range("A1").Select ActiveCell.FormulaR1C1 = _ "=IF('LISTE COMPLETE'!R[1]C[38]="""",""0"",IF('LISTE COMPLETE'!R[1]C[38]<>"""",'LISTE COMPLETE'!R[1]C[38],RC))"

---

Bonsoir chyanon

C'est bien d'apprendre avec l'enregistreur, je l'ai fait et ça m'a aidé mais il faut savoir enlever ce qui est inutile et risque de ralentir un code (suivant la taille)

Code:

---

1 2 3

Range("A1").Select ActiveCell.FormulaR1C1 = _ "=IF('LISTE COMPLETE'!R[1]C[38]="""",""0"",IF('LISTE COMPLETE'!R[1]C[38]<>"""",'LISTE COMPLETE'!R[1]C[38],RC))"

---

devient

Code:

---

1 2	Range("A1").FormulaR1C1 = _ "=IF('LISTE COMPLETE'!R[1]C[38]="""",""0"",IF('LISTE COMPLETE'!R[1]C[38]<>"""",'LISTE COMPLETE'!R[1]C[38],RC))"

---