Sub TextBox27_Change()
CalculSomme
CalculMulti
End Sub
Sub TextBox28_Change()
CalculSomme
End Sub
Sub CalculSomme()
Me.TextBox44.Value = Val(Replace(Me.TextBox27, ",", ".")) + Val(Replace(Me.TextBox28, ",", "."))
End Sub
Sub TextBox45_Change()
CalculMulti
End Sub
Sub CalculMulti()
Me.TextBox48.Value = Val(Replace(Me.TextBox27, ",", ".")) / Val(Replace(Me.TextBox45, ",", "."))
End Sub