OVH Cloud OVH Cloud

Inputbox pour faire un calcul

2 réponses
Avatar
jd
Bonjour,

J'ai un programme dans lequel l'utilisateur saisie des factures. Il y a donc
un champ montant
Parfois, le montant est le résultat d'une opération (ex : addition de 3
nombres ou soustraction)

j'ai créé une petite fonction pour faire ceci :
dans la case montant l'opérateur peut appuyer qur la touche F9 et une
INPUTBOX S'ouvre
dans l'input box il saisit par exemple : 10+5-6 et clique sur OK
je voudrais que la case montant soit automatiquement remplie avec 9.

Mon problème c'est que j'ai une variable STRING "10+5-6" à convertir en
chaîne de calcul pour obtenir le résultat

Quelqu'un a t'il une idée ?

Merci

2 réponses

Avatar
Raymond [mvp]
bonjour.
tu devrais pouvoir utiliser la fonction Eval.
exemple:
dim X a Long
dim Z as string
Z = InputBox ........
X = Eval(Z)
msgbox X
si tu compose 5+ 6-2+3
X sera égal à 12
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"jd" a écrit dans le message de
news:%
Bonjour,

J'ai un programme dans lequel l'utilisateur saisie des factures. Il y a
donc

un champ montant
Parfois, le montant est le résultat d'une opération (ex : addition de 3
nombres ou soustraction)

j'ai créé une petite fonction pour faire ceci :
dans la case montant l'opérateur peut appuyer qur la touche F9 et une
INPUTBOX S'ouvre
dans l'input box il saisit par exemple : 10+5-6 et clique sur OK
je voudrais que la case montant soit automatiquement remplie avec 9.

Mon problème c'est que j'ai une variable STRING "10+5-6" à convertir en
chaîne de calcul pour obtenir le résultat

Quelqu'un a t'il une idée ?

Merci




Avatar
jd
C'est exactement ce qu'il me fallait,

merci



"Raymond [mvp]" a écrit dans le message de
news:
bonjour.
tu devrais pouvoir utiliser la fonction Eval.
exemple:
dim X a Long
dim Z as string
Z = InputBox ........
X = Eval(Z)
msgbox X
si tu compose 5+ 6-2+3
X sera égal à 12
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"jd" a écrit dans le message de
news:%
Bonjour,

J'ai un programme dans lequel l'utilisateur saisie des factures. Il y a
donc

un champ montant
Parfois, le montant est le résultat d'une opération (ex : addition de 3
nombres ou soustraction)

j'ai créé une petite fonction pour faire ceci :
dans la case montant l'opérateur peut appuyer qur la touche F9 et une
INPUTBOX S'ouvre
dans l'input box il saisit par exemple : 10+5-6 et clique sur OK
je voudrais que la case montant soit automatiquement remplie avec 9.

Mon problème c'est que j'ai une variable STRING "10+5-6" à convertir en
chaîne de calcul pour obtenir le résultat

Quelqu'un a t'il une idée ?

Merci