Calculer la valeur basée sur 0,0 %

Bonjour tout le monde
J'ai un problème, c'est-à-dire que lorsque je saisis des données et des valeurs lorsque je clique sur Calculatrice, il ne répond pas. Quel est le problème auquel je suis confronté ? S'il vous plaît, aidez-moi à le résoudre.

Bonjour Mody,

Avez-vous regardé correctement votre code

TextBox6.Value = Val(TextBox4.Value) * Val(TextBox4.Value) * Val(TextBox11.Value)

A+

Comme j'ai à peu près la certitude qu'il y aura une 2e question après la 1ère et une 3e après la deuxième, je crois que vous devriez :
1) Expliquer votre titre bizarre ;
2) joindre ici le fichier qui coince ;
3) Expliquer les 3 options du haut de votre UF (pourcentages).

Bonjour

Tout d'abord, je tiens à remercier les responsables de ce merveilleux et grand édifice sur ce site, leur rapidité de réponse et leur patience à répondre à ces questions.

J'ai trois options OptionButton1, OptionButton2 et OptionButton3 (Remise %) et affiche la remise en fonction du code produit et affiche la remise dans TextBox11

Veuillez afficher la valeur de remise dans la zone de texte6 avec la différence OptionButton

Afficher la valeur du total après remise dans textbox89

Et merci beaucoup

Bonjour

Private Sub TextBox11_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

'Handle if they entered a % sign already

If Not Right(Me.TextBox11.Value, 1) = "%" Then

If Me.TextBox11.Value >= 1 Then

Me.TextBox11.Value = Format(Me.TextBox3.Value / 100, "0.00%")

Else

Me.TextBox11.Value = Format(Me.TextBox3.Value, "0.00%")

End If

End If

End Sub

Private Sub CommandButton1_Click()
Dim qty As Long 'Quantity
Dim discPct As Single 'Discount Percentage
Dim unitPrice As Single 'Single Normal Price
Dim discPrice As Single 'Single Price After Discount
Dim total As Single 'Total Qty * Discounted Single Price

qty = CSng(TextBox4.Text)
unitPrice = CSng(TextBox5.Text)
discPct = CSng(Replace(TextBox11.Text, "%", "")) / 100
discPrice = (qty * discPct * unitPrice)
TextBox6.Value = discPrice
Me.TextBox6.Text = Format(Me.TextBox6.Text, "#,###,###.00")
TextBox89.Value = val(TextBox4.Value) * val(TextBox5.Value) - CDbl(val(TextBox6.Value))
End Sub

Dans votre UF il y avait trop de choses à nettoyer et/ou à corriger (par exemple des Textbox utilisées comme des Label, ce qui est risqué). Je l'ai donc refait comme si c'était pour moi. Si a peut vous aider (on commence par sélectionner un taux de remise dans les 3 proposés).

Merci beaucoup Optimix

Cela fonctionne très bien