Dim sommeTB As Double, valTB As Double, result As Double
Private Sub TextBox1_Change()
If TextBox1 > 0 Then
calcul
End If
End Sub
Private Sub TextBox2_Change()
calcul
End Sub
Private Sub TextBox3_Change()
calcul
End Sub
Private Sub TextBox4_Change()
calcul
End Sub
Private Sub calcul()
sommeTB = Val(TextBox2) + Val(TextBox3) + Val(TextBox4)
valTB = Val(TextBox1)
result = valTB - sommeTB
TextBox5 = result
End Sub