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 !