Private Sub TextBox1_exit(ByVal cancel As MSForms.ReturnBoolean)
If TextBox1.Value = "" Then
Exit Sub
Else
TextBox1.Value = Format(Evaluate(TextBox1.Value), "#########")
TextBox1 = CDbl(TextBox1.Value)
End If
End Sub
Private Sub TextBox9_exit(ByVal cancel As MSForms.ReturnBoolean) ' ecart au mini
If TextBox9.Value = "" Then
Exit Sub
Else
TextBox9.Value = Format(Evaluate(TextBox9.Value), "#########")
TextBox1 = CDbl(TextBox1.Value)
TextBox10.Text = Val(TextBox1.Text) - Val(TextBox9.Text) ' ecart
End If
End Sub
Private Sub TextBox10_exit(ByVal cancel As MSForms.ReturnBoolean)
If TextBox10.Value = "" Then
Exit Sub
Else
TextBox10.Value = Format(Evaluate(TextBox10.Value), "#########")
TextBox10 = CDbl(TextBox10.Value)
End If
End Sub
Private Sub TextBox11_Exit(ByVal cancel As MSForms.ReturnBoolean)
If TextBox11.Value = "" Then
Exit Sub
Else
TextBox11.Value = Replace(TextBox11.Value, ".", ",")
TextBox11 = Format(Evaluate(TextBox11.Value), "#,####0.0000 €")
TextBox11.Value = CDbl(TextBox11.Value)
TextBox12 = Format(CLng(TextBox1) * CCur(TextBox11), "#,####0.0000 €")
TextBox12 = CDbl(TextBox12.Value)
End If
End Sub
Private Sub TextBox12_Change()
End Sub