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

[chrismonoye]

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

Code :

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

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

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

Code :

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

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

A tester...

[Fanta1090]

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

[chrismonoye]

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.

[dylan.blasi]

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

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 :

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

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.

[ProgElecT]

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

[dylan.blasi]

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

Cubic_Spline

a été installée via ce site

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

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


cordialement et encore merci.