Discussion :

[preverse]

Bonjour,

Je cherche à convertir une formule sous forme de texte (ex : "(400-1)/50") en sa valeur numérique.

Par exemple j'ai une variable toto qui est un String :
toto="(400-1)/50"

Je voudrais qu'une variable titi de type Integer me donne le résultat de la formule de toto.
Un titi=CInt(toto) qui fonctionnerait.

Merci pour votre aide.

P.R

[AlainTech]

La fonction Evaluate devrait te convenir

[preverse]

Merci, ça marche...presque.

Cerise sur la gateau,
Ma formule est : (400-1)\50 pour avoir la valeur entière de la division.
Si je pose la formule titi = (400-1)\50, ça fonctionne.
Par contre Evaluate() retourne une erreur, il ne comprend que : (400-1)/ 50
Est-ce qu'on sait pourquoi ?

P.R

[leroissejp]

Bonjour,

Code :

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

1
2
3
4
5
6
 
Private Sub Command1_Click()
Dim toto
toto = Val((400 - 1) / 50)
MsgBox toto
End Sub

jpleroisse

[preverse]

Désolé, ça ne fonctionne pas quand la formule est du texte. :-(

P.R