Formule mathématique dans des textbox

[Laurent313131]

Bonsoir,

J'ai crée un USF très simple et j'aimerais avoir un code qui calcule une valeur (RM estimée en Kg : textbox4) à partir d'une formule mathématique :

(Charge utilisée/(1,0278-0,0278*(Nb de répétitions))).

Charge utilisée = Text box 2
Nb de répétitions = Text box 3

Le but serait donc de remplir les textbox 2 et 3 et que la 4 se remplisse toute seule (grâce à la formule ci-dessus).

Est ce possible ?

Mon classeur Excel est en fichier joint.
Merci !

 

[BERRACHED said]

Re : Formule mathématique dans des textbox

Bonsoir

Essayé ce code :

Private Sub TextBox3_Change()
TextBox4 = Val(TextBox2.Value) / (1.0278 - 0.0278) * (TextBox3.Value)
End Sub

Cordialement

 

[Lii]

Re : Formule mathématique dans des textbox

Bonsoir,

CDbl(...) pour des nombres à virgule, Val(...) pour des entiers !

...
TextBox4 = CDbl(TextBox2) / (1.0278 - 0.0278) * Val(TextBox3)
...

S'il y a une valeur numérique dans Textbox3, Val est inutile.
Attention au . ou à la , dans Textbox2 !

 

[Laurent313131]

Re : Formule mathématique dans des textbox

Bonjour,

Merci pour votre aide. J'ai modifié un peu le code et ça marche parfaitement bien (il y'avait juste un petit soucis au niveau des parenthèses...)

Le code calcule la valeur de ma textbox4 (RM estimée en Kg) et l'affiche avec 13 décimales ! comment faire pour que uniquement 1 seule décimale soit affichée ?

Encore merci.

 

[Laurent313131]

Re : Formule mathématique dans des textbox

Je fais remonter le sujet ...

 

[Pierrot93]

Re : Formule mathématique dans des textbox

Bonsoir,

peut être comme ceci :

textbox4.Value = Format(tonExpression, "0.0")

bonne soirée
@+

 

[Laurent313131]

Re : Formule mathématique dans des textbox

Je suis de retour !!!

J'ai crée un nouvel USF qui comporte un multipage (Force_bas_haltero). Dans ce multipage, j'aimerais pouvoir calculer la valeur RM (RM estimée en Kg : textbox6) à partir d'une formule mathématique :

(Charge utilisée/(1,0278-0,0278*(Nb de répétitions))).

Charge utilisée = Text box 4
Nb de répétitions = Text box 5

Le but serait donc de remplir les textbox 4 et 5 et que la 6 se remplisse toute seule (grâce à la formule ci-dessus) lorsque je clique sur mon bouton de commande 5.

Voici mon code mais il ne marche pas !

Private Sub CommandButton5_Click()
Force_bas_haltero.TextBox6.Value = CDbl((Force_bas_haltero.TextBox4) / (1.0278 - (0.0278 * (Force_bas_haltero.TextBox5)))
End Sub

Si quelqu'un pouvait m'aider ...