Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub TextBox2_Change()
Calcul
TextBox2 = Replace(TextBox2, ".", ",")
End Sub
Private Sub TextBox3_Change()
Calcul
TextBox3 = Replace(TextBox3, ".", ",")
End Sub
Private Sub TextBox4_Change()
Calcul
TextBox4 = Replace(TextBox4, ".", ",")
End Sub
Private Sub TextBox6_Change()
End Sub
Private Sub TextBox7_Change()
Calcul
TextBox7 = Replace(TextBox7, ".", ",")
End Sub
Private Sub TextBox8_Change()
Calcul
TextBox8 = Replace(TextBox8, ".", ",")
End Sub
Sub Calcul()
If Not IsNumeric(TextBox2) Or Not IsNumeric(TextBox3) Or Not IsNumeric(TextBox4) Or Not IsNumeric(TextBox7) Or Not IsNumeric(TextBox8) Then Exit Sub
TextBox6 = CDbl(TextBox2) * [0.125 + 0.875 * (0.80 * CDbl(TextBox3) / CDbl(TextBox4) + 0.20 * CDbl(TextBox7) / CDbl(TextBox8)]
End Sub
Private Sub UserForm_Click()
End Sub