[VBA] Conversion de texte en formule

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

La fonction Evaluate devrait te convenir

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

Bonjour,

Code:

---

1 2 3 4 5 6

Private Sub Command1_Click() Dim toto toto = Val((400 - 1) / 50) MsgBox toto End Sub

---

jpleroisse

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

P.R