Formule de calcule

Bsr comment faire un code de calcule automatique sur useform

TextBox5 =X

TextBox1 = A

TextBox2 =B

TextBox3 =c

TextBox4 =Y

TextBox4= (A-B)-((0.5*x)-C)

Merci

Bonjour

A tester

Dim X As Double, A As Double, B As Double, C As Double

  X = Val(Replace(Me.TextBox5, ",", "."))
  A = Val(Replace(Me.TextBox1, ",", "."))
  B = Val(Replace(Me.TextBox2, ",", "."))
  C = Val(Replace(Me.TextBox3, ",", "."))
  Me.TextBox4 = (A - B) - ((0.5 * X) - C)

Merci Banzai64 mais une erreur de compilation afficher

je te donne un exemple

merci

9mark-test.xlsm (13.09 Ko)

Bonjour,

sur qu'elle ligne l'erreur de compilation ?

dans La ligne 2

imag

Pour l'erreur de compilation elle est du au fait que tu utilise Me au mauvais endroit... dans ton cas tu dois placer ton code dans la page associée à ton userform ..

Merci pour explication mais tu n'a pas corriger cette erreur suis débutant dans vba.

ok, c'est pas le problème auquel je pensais ...

tu ne peu pas mettre de code en vracs.... il faut mettre celui-ci dans une procédure (sub..) .. puis appeler cette procédure ... par exemple :

Sub MajTextBox4()
Dim X As Double, A As Double, B As Double, C As Double

  X = Val(Replace(Me.TextBox5, ",", "."))
  A = Val(Replace(Me.TextBox1, ",", "."))
  B = Val(Replace(Me.TextBox2, ",", "."))
  C = Val(Replace(Me.TextBox3, ",", "."))
  Me.TextBox4 = (A - B) - ((0.5 * X) - C)

End Sub

Private Sub TextBox1_Change()
 MajTextBox4
End Sub

Private Sub TextBox2_Change()
 MajTextBox4
End Sub
Private Sub TextBox3_Change()
 MajTextBox4
End Sub
Private Sub TextBox5_Change()
 MajTextBox4
End Sub
Rechercher des sujets similaires à "formule calcule"