Discussion :

[Fanta1090]

Bonjour à tous,

Voila mon problème c'est que j'obtiens une erreur :

Exception from HRESULT: 0x800A03EC

quand j'affecte une formule à une cellule.

Voici le code :

Code :

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

1
2
3
4
Dim formul As String
 
formul = "=IF(Feuil1!$A14=" & Chr(34) & Chr(34) & Chr(34) & Chr(34) & "," & Chr(34) & Chr(34) & Chr(34) & Chr(34) & ",Feuil1!$A14)"
sh1.Cells(6, 1).FormulaR1C1 = formul

Je vois pas ce que je fais de "mal" donc si quelqu'un a une idée ou une solution merci d'avance !

[Arnard]

Formule invalide

De ton code, j'en tire la formule suivante :

Code :

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

=IF(Feuil1!$A14="""","""",Feuil1!$A14)

et Excel me la refuse

Quelle formule veux-tu mettre ?

[Fanta1090]

Bonjour,

Bah justement je veux écrire ce que tu as mis.

Code :

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

=IF(Feuil1!$A14="";"";Feuil1!$A14)

Les doubles "" ont été mis par une macro, et j'ai juste copié le code de celle-ci.

Edit : Je viens de voir qu'il y avait des "," au lieu de ";". J'ai donc changé mais j'ai toujours la même erreur...