Private Sub TextBox181_Change()
Calcul
End Sub
Private Sub TextBox182_Change()
Calcul
End Sub
Private Sub TextBox183_Change()
Calcul
End Sub
Sub Calcul()
Dim v1, v2, v3
v1 = Val(Replace(TextBox181, ",", "."))
v2 = Val(Replace(TextBox182, ",", "."))
v3 = Val(Replace(TextBox183, ",", "."))
TextBox211 = Format(v1 + v2 + v3, "#,##0.00")
End Sub