Excel - Écrire une formule dans une cellule

Bonjour à tous,

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

Citation:

---

Exception from HRESULT: 0x800A03EC

---

quand j'affecte une formule à une cellule.

Voici le code :

Code:

---

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 !

Formule invalide

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

Code:

---

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

---

et Excel me la refuse

Quelle formule veux-tu mettre ?

Bonjour,

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

Code:

---

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

Bonjour,
test qui fonctionne sous excel 2010 culture française:

Code:

---

formul = "=SI(Feuil1!L(13)C1="""";"""";Feuil1!L(13)C1)"

---

La ligne est relative et la colonne fixe.
En culture anglaise ça donnerait :

Code:

---

formul = "=IF(Sheet1!R(13)C1="""","""",Sheet1!R(13)C1)"

---

A tester...

Salut !

Merci de ta réponse ca marche super!

Mais je trouve bizare quand même de devoir traduire le code par rapport à la macro Oo

Re,
il n'est peut être pas nécessaire de traduire, ceci en changeant le style de référence des formules.
Dans Excel 2010, allez dans fichier puis options, choisir formules et activer la ligne "Style de références L1C1".
Dans Excel 2007, on doit cliquer sur le petit signe déroulant tout en haut, puis choisir autres commandes
ainsi la macro devrait donner la syntaxe reconnue par vb.net.
A voir.

Bonjour à tous, J'obtient la même exception que dans le Post de départ à savoir :

Citation:

---

Exception from HRESULT: 0x800A03EC

---

Lorsque j'écris la formule Sans le signe égale et que je le rajoute à la main dans la cellule du fichier excel en début de formule cela fonctionne ma formule est reconnu.

Code:

---

1 2 3 4 5 6 7 8

While feuillet_Dest.Cells(Row, Last_Colon_Sheet - 4).value IsNot Nothing   Dim Addresse3 As String = feuillet_Dest.Cells(Row, Last_Colon_Sheet - 1).Address(False, False) Dim pv As Char = ";" Dim Formul As String = "Cubic_Spline(" & Addresse1 & ":" & Addresse12 & pv & Addresse2 & ":" & Addresse22 & pv & Addresse3 & ")" feuillet_Dest.Cells(Row, Last_Colon_Sheet).Formula = Formul Row += 1 End While

---

SI jamais je rajoute le signe "=" devant "Cubic_Splane" l’exception est générée. J'ai déjà essayé pas mal de chose mais la je sèche un peu. Merci d'avance.

Salut

Ta ligne de code:
Dim Formul As String = "Cubic_Spline(" & Addresse1 & ":" & Addresse12 & pv & Addresse2 & ":" & Addresse22 & pv & Addresse3 & ")".
As tu essayé :
Dim Formul As String = Chr(61) & "Cubic_Spline(" & Addresse1 & ":" & Addresse12 & pv & Addresse2 & ":" & Addresse22 & pv & Addresse3 & ")".
ou encore :
Dim Formul As String = "=(Cubic_Spline(" & Addresse1 & ":" & Addresse12 & pv & Addresse2 & ":" & Addresse22 & pv & Addresse3 & "))".

Bonjour, D'abord merci beaucoup pour ta réponse et ton aide,

Je n'avais pas essayé mais c'est chose fait et les deux génère l’exception :/ J'ai peut être oublié de préciser certaine chose qui pourrait en être la cause et aux quelles je n'ai pas pensé:
Je travaille sous visual studio 2019 en Vb avec le framework .Net
la Fonction

Citation:

---

Cubic_Spline

---

a été installée via ce site

Citation:

---

http://www.srs1software.com/SRS1Cubi...eForExcel.aspx

---

et je pense que le problème peut venir de la ?


cordialement et encore merci.