XL 2019 Format pourcent dans une TextBox

Electronull à dit:

Bonjour à tous,

Dans un UF, j'ai des textBox qui affichent des montants, quantité et pourcentage de remise.
si je tape un certain pourcentage (10), j'affiche à l'aide du format 10 % dans la TextBox_Remise.
Maintenant si je change la quantité, de 1 je passe à 2, j'ai une erreur de calcul, la formule est :

VB:

Me.TextBox_Remise_Euro = Format((CDbl(Me.TextBox_Prix_Unit) * Me.TextBox_Qte) * (CDbl((Me.TextBox_Remise_PourCent) / 100)), "####0.00 €")

Merci pour votre aide

Cliquez pour agrandir...

    Me.TextBox_Remise_Euro = Format((CDbl(Me.TextBox_Prix_Unit) * Me.TextBox_Qte) * (Format((Me.TextBox_Remise_PourCent), "0.0")), "####0.00 €")
    Me.TextBox_Prix_Net = Format((CDbl(Me.TextBox_Prix_Unit) * Me.TextBox_Qte) - (CDbl(Me.TextBox_Remise_Euro)), "####0.00 €")

vgendron à dit:

Bonjour

il ne te manque pas un cdbl sur la quantité?

Cliquez pour agrandir...

vgendron à dit:

après, si tu as un fichier (exempt de données personnelles) à fournir, on peut sans doute proposer un control de saisie pour mettre les % automatiquement

Cliquez pour agrandir...

vgendron à dit:

Regarde la PJ

sur le formulaire, il y a plusieurs textbox dont la saisie est controlée d'après leur tag
tout se joue dans le module de classe

pour le combo "Pourcentage"
quand tu cliques dedans, tu peux mettre une valeur, entrée,==> le signe pourcent est automatiquement ajouté
si tu recliques dedans, le % est enlevé et le nombre est selectionné, prêt à être modifié

j'ai ajouté un texbox qui calcule le produit du textbox 1 (en bas à gauche) par le textbox4

Cliquez pour agrandir...

AtTheOne à dit:

Bonsoir à toutes & à tous

Je te joins un fichier avec un exemple de formulaire pou calculé un prix remisé
Les saisies dans les 3 textbox sont limitées pour s'assurer que l'on saisie une valeur numérique.

À +

@vgendron je vais regarder ta proposition (pb rafraîchissement)

Cliquez pour agrandir...