Opération entre plusieurs textbox (addition et multiplication)

[davidp]

Bonjour le forum,

merci d'avance à celui ou celle qui pourra m'aider à cette heure matinale.


je cherche à réaliser l'opération suivante entre différentes TEXTBOX.

TEXTBOX6=CDbl(TextBox1.Value) + CDbl(TextBox2.Value) * 100 / CDbl(TextBox3.Value) + CDbl(TextBox4.Value)

Pour exemple le résultat devrait être :

ex: Textbox6= (10 + 10)*100 / (50 + 50 ) = 20

Il doit y avoir une subtilité.

Merci d'avance pour votre aide

Bonne journée

DAVIDP

 

[JNP]

Re : Opération entre plusieurs textbox (addition et multiplication)

Bonjour DavidP 🙂,
Effectivement, il y a plusieurs subtilités :
1) Les textboxs vides ne sont pas assimilés à 0
2) Tu divises par 0 si 3 et 4 sont vides
Teste ce code à adapter, et tu comprendras mieux

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TEXTBOX6 = CDbl(TextBox1.Value) + CDbl(TextBox2.Value) * 100 / (CDbl(TextBox3.Value) + CDbl(TextBox4.Value))
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TEXTBOX6 = CDbl(TextBox1.Value) + CDbl(TextBox2.Value) * 100 / (CDbl(TextBox3.Value) + CDbl(TextBox4.Value))
End Sub
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TEXTBOX6 = CDbl(TextBox1.Value) + CDbl(TextBox2.Value) * 100 / (CDbl(TextBox3.Value) + CDbl(TextBox4.Value))
End Sub
Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TEXTBOX6 = CDbl(TextBox1.Value) + CDbl(TextBox2.Value) * 100 / (CDbl(TextBox3.Value) + CDbl(TextBox4.Value))
End Sub
Private Sub UserForm_Initialize()
TextBox1 = 0
TextBox2 = 0
TextBox3 = 1
TextBox4 = 1
End Sub

D'un autre côté, tu as intérêt à vérifier que tes textbox sont des nombres, et bien avec une "," et non un "."... Quelques tests en perspective 😛! Utilise par exemple un Replace sur l'événement Change pour remplacer les ".".
Bonne journée 🙂

 

[job75]

Re : Opération entre plusieurs textbox (addition et multiplication)

Bonjour davidp, JNP 🙂

Comme ça, le matin ça réveille :

Private Sub CommandButton1_Click()
Dim d As Double
d = Val(Replace(TextBox3, ",", ".")) + Val(Replace(TextBox4, ",", "."))
If d = 0 Then d = 1
TextBox6 = (Val(Replace(TextBox1, ",", ".")) + Val(Replace(TextBox2, ",", "."))) * 100 / d
End Sub

3 subtilités :

- remplacer les virgules dans les TextBox par un point et utiliser Val, on obtient ainsi toujours des nombres

- quand le dénominateur est nul, le remplacer par 1 pour éviter la division par 0 (VBA n'aime pas)

- mettre des parenthèses au bon endroit.

A+

 

[davidp]

Re : Opération entre plusieurs textbox (addition et multiplication)

Bonjour Job75 et JNP,

Tout d'abord un Grand Merci car je ne risquais pas de trouver la solution tout seul.

je suis maintenant au travail , et je vais tester ce soir .

Je vous tiens au courant

A ce soir

Un GRAND MERCI .....
DAVID P

 

[job75]

Re : Opération entre plusieurs textbox (addition et multiplication)

Bonjour davidp, le fil, le forum,

Un petit complément pour obliger l'entrée d'une valeur numérique dans une TextBox :

Private Sub TextBox1_Change()
If Not (IsNumeric(Replace(TextBox1, ",", ".")) _
  Or IsNumeric(Replace(TextBox1, ".", ","))) Then TextBox1 = ""
End Sub

Fonctionne quel que soit le séparateur décimal utilisé par l'ordi.

A+

 

[davidp]

Re : Opération entre plusieurs textbox (addition et multiplication)

Bonjour Job75,JNP ,le forum

Désolé pour le retard, un Grand Merci, j'ai adapté tout ceci dans mon programme.

Tout fonctionne à merveille.

Dommage que je ne dispose de pas + de temps car on apprend énormément grace à ce forum.

A Bientôt et Merci

DavidP

 

[justine]

Re : Opération entre plusieurs textbox (addition et multiplication)

bonsoir a tous
pour revenir aux petits probleme de math il est normal que tu ne trouves pas le bon resultat
tu ecris:
TEXTBOX6=CDbl(TextBox1.Value) + CDbl(TextBox2.Value) * 100 / CDbl(TextBox3.Value) + CDbl(TextBox4.Value)

Pour exemple le résultat devrait être :

ex: Textbox6= (10 + 10)*100 / (50 + 50 ) = 20
or ta combinaison permet de trouver le resultat 60.002

il faut penser a respecter les priorités arithmetiques
si je me fie a ton exemple, pense a mettre des parentheses

TEXTBOX6=(CDbl(TextBox1.Value) + CDbl(TextBox2.Value)) * 100 / (CDbl(TextBox3.Value) + CDbl(TextBox4.Value))

bonne continuation

 

[job75]

Re : Opération entre plusieurs textbox (addition et multiplication)

Bonjour le fil, le forum,

@ justine 🙂 eh oui, j'ai bien dit :

3 subtilités :

(...)

- mettre des parenthèses au bon endroit.

Mais je pense que chez David c'était un simple oubli, faut pas en faire tout un plat...

A+

 

[davidp]

Re : Opération entre plusieurs textbox (addition et multiplication)

Bonsoir le forum,

merci pour l'info , j'ai encore appris

A bientôt

DAVIDO