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