'---------------------------------------------------------------------------------------
' Procedure : CommandButton3_Click
' Author : Christian avec l'aide de Kjin et BrunoM45 de ExcelDownloads
' Date : 11/08/2010
' Purpose : calcul
'---------------------------------------------------------------------------------------
'
Private Sub CommandButton3_Click()
Dim x As Integer
TextBox4 = (TextBox3.Value) / (TextBox2.Value)
TextBox4 = Format(TextBox4, "0.00 %")
result = CStr(Replace(Me.TextBox1.Value, " €", "")) * (CStr(Replace(Me.TextBox4.Value, "%", "")) / 100)
TextBox5 = result
TextBox6 = Format((TextBox5.Value / 12), "# ##0.00 €")
TextBox6 = Format(TextBox6, "# ##0.00 €")
End Sub