[RESOLU] : Divers calculs dans userform

Option Explicit

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger): TchPress TextBox1, KeyAscii: End Sub
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger): TchPress TextBox1, KeyAscii: End Sub
Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger): TchPress TextBox1, KeyAscii: End Sub

Private Sub TextBox1_Change(): Calculer: End Sub
Private Sub TextBox2_Change(): Calculer: End Sub
Private Sub TextBox3_Change(): Calculer: End Sub

Sub TchPress(ByVal TBx As MSForms.TextBox, ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = Asc(".") Then KeyAscii = Asc(",")
End Sub

Sub Calculer()
ValTbx(TextBox4) = ValTbx(TextBox1) + ValTbx(TextBox2) + ValTbx(TextBox3)
ValTbx(TextBox5) = ValTbx(TextBox4) * 0.06
ValTbx(TextBox6) = ValTbx(TextBox1) * 0.03
ValTbx(TextBox7) = ValTbx(TextBox4) + ValTbx(TextBox5) - ValTbx(TextBox6)
End Sub

Property Let ValTbx(ByVal TBx As MSForms.TextBox, ByVal Valeur As Currency)
TBx.Text = Format(Valeur, "0.00")
End Property
Property Get ValTbx(ByVal TBx As MSForms.TextBox) As Currency
On Error Resume Next
ValTbx = CCur(TBx.Text)
End Property