Discussion :

[dylan.blasi]

Bonjour à tous,

Je rencontre un problème dans le développement de mon application en Vb.Net. Cette application fait du post traitement dans excel suite à différents relevés. Dans ce post-traitement j'utilise la fonction Cubic_Spline qui a été installée depuis ce site :

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

.

j'ai effectué plusieurs tests dans Excel directement en entrant la formule à la main et cela fonctionne parfaitement.

Mais lorsque j'essaye de le faire depuis mon application

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

impossible une exception est générée.

Exception from HRESULT: 0x800A03EC

cependant, si je decide d'enlever le "=" de ma formule et donc écrire le reste sous forme de texte cela fonctionne.

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

Merci d'avance.

[Shennong]

Bonjour,

J'ai déjà eu besoin d'entrer des formules dans des cellules Excel à partir VB.Net.
Pour effectuer cette opération j'ai procédé ainsi :

Code :

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

1
2
3
4
5
6
Imports EXCEL = Microsoft.Office.Interop.Excel
 
Dim xlrange As EXCEL.Range
 
xlrange = CType(worksheet.Cells(Compteur, 5), EXCEL.Range)
xlrange.Formula = "=IF(AND(ISNUMBER($D$" & Compteur & "),ISNUMBER($B$" & Compteur & ")),(($D$" & Compteur & "*$B$" & Compteur & ")/(1000)),"""")"

Dans cet extrait de code, sur cet exemple de formule, la variable "Compteur" est un Integer qui me servait à incrémenter le numéro de ligne du fichier Excel dans une boucle.
Cela devrait prendre en compte l'utilisation de ton "Cubic_Spline" je pense.

Une chose utile à savoir est que lorsque l'on entre une formule dans Excel depuis VB.Net, il faut impérativement mettre les mots clés de cette formule en anglais. Tu remarqueras l'utilisation de "IF" ou "ISNUMBER".

Voilà, il n'y a plus qu'à adapter pour ton besoin je pense.

Bon courage pour ton code.

Cordialement-

[dylan.blasi]

Bonjour
Merci pour ta réponse. Mais j'ai vraiment essayé beaucoup de choses et cela ne fonctionne toujours pas. Pourtant je rentre d'autre formule sans soucis ailleurs dans mon programme. Je continue de chercher.
Cordialement.