Discussion :

[jerem1]

Bonjour à tous,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casefayere]

Bonsoir,
avant tout, tu dis :

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[chyanon]

Bonjour,
avec l'enregistreur de macro:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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))"

[casefayere]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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))"