Discussion :

[souma86]

Bonjours,
Je veux utiliser la fonction "evaluate" dans le vb.net.

j'utilise cette code:

Code :

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

1
2
3
4
5
6
7
8
9
Imports Microsoft.Office.Interop.Excel
Private Sub SimpleButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpleButton4.Click
Dim dc As New Microsoft.Office.Interop.Excel.Worksheet
Dim apexel As Microsoft.Office.Interop.Excel.Application
apexel = New Microsoft.Office.Interop.Excel.Application
Dim a As Integer
a = 4
MsgBox(apexel.Evaluate("si(" & a & ">10;'test';'test2')").ToString())
End Sub

Mais ca marche pas , il n'affiche pas le string "test2" ,il m'affiche un numero comme"-17445...", et je ne sais pas pourquoi!!
Est ce que vous pouvez m'aider?
Merci d'avance

[Skalp]

Essaye comme ça :

Code :

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

"=SI(" & a & ">10;""test"";""test2"")"

(avec ou sans le signe égal, les deux fonctionnent apparement)

[souma86]

ca marche bien

Merci beaucoup Skalp

[souma86]

bonjours,

Mais quand je fais comme ca:

Code:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Imports Microsoft.Office.Interop.Excel
Private Sub SimpleButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpleButton4.Click
 
Dim apexel As Application
MsgBox(apexel.Evaluate("si(7>1>2;""oui"";""non"")").ToString())
MsgBox(apexel.Evaluate("si(7>8>2;""oui"";""non"")").ToString())
MsgBox(apexel.Evaluate("si(7>5>2;""oui"";""non"")").ToString())
 
End Sub

Il m'afiche toujours le string"oui",ce qui est faux!!!
car normalement il m'affiche "non" puis "non" puis "oui"

Est ce que vous pouvez m'aider?
Merci d'avance

[souma86]

Bonjour,

Je trouve la solution.