Et encore soucis de Calcul

[MuscatMimi]

Bonsoir a tout le Forum

st-il possible de faire, dans des TextBox( placées dans un Usf)
le Calcul suivant

Tbx1 370,00 € (données entrées)
Tbx2 400 (données entrées)
Tbx3 90 (données entrées)

Tbx4 = Tbx 2 / Tbx3
Format Tbx 4 23%, la Ok je sais faire

Aprés je désire Multiplier Tbx4 par Tbx1, la j'ai un soucis

Y a t'il une solution??

Cordialement

 

[Compte Supprimé 979]

Re : Et encore soucis de Calcul

Bonsoir Vaucluse immo,

Peut-être comme ça

Result = CStr(Replace(Me.TBx1.Value, " €", "")) * (CStr(Replace(Me.TBx4.Value, "%", "")) / 100)

A+

 

[kjin]

Re : Et encore soucis de Calcul

Bonsoir,

TextBox4 = FormatPercent(TextBox3 / TextBox2, 2)
x = TextBox1 * Format(TextBox4, "0.00")

A+
kjin

 

[MuscatMimi]

Re : Et encore soucis de Calcul

Bonjour Bruno,le forum, et mon voisin de région


Merci a tout les deux

avec votre aide voici ce que j'ai réalisé,et en plus tout fonctionne

Code

'---------------------------------------------------------------------------------------
' 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

A bientôt et bonne journée

Cordialement