XL 2019 Chiffre avec décimale dans textbox

[Bruce68]

Bonsoir à tous
Dans le fichier ci-joint je n'arrive pas à entrer plus de chiffre dans la textxbox Suppl et le calcul se fait, je voudrais pouvoir ,écrire 2 chiffres avant la virgule et 2 chiffres après la virgule.
Je vous remercie de votre aide

 

[ChTi160]

Bonsoir Bruce
Peut-être en changeant de procédure événementielle !

Private Sub Texsupp_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Texsupp.Value = Format(Texsupp.Value, "# ##0.00 €") 'Supplement
TexTarif = Format(TexTarif.Value, "# ##0.00 €") 'Tarif
Me.LabTotal = Val(Me.Texsupp) + Val(Me.TexTarif)
LabTotal = Format((LabTotal), "# ##0.00 €") 'Total
End Sub

Jean marie

 

[ChTi160]

Re
Ton fichier modifié à voir !
j'ai changé la Fonction Val() par Ccur() (Val() ne conserve que la partie entière de la saisie)
Jean marie

 

[Bruce68]

Bonsoir ChTi160 merci pour la réponse mais cela ne fonctionne pas, pour que cela fonctionne il faut rentrer un chiffre sans virgule et la somme se fait correctement autrement il y a erreur.
Je vous remercie de votre aide.

 

[ChTi160]

Re
une variante (perfectible)

Private Sub TexSupp_change()     'AfterUpdate() 'Ajoute un Supplement
Texsupp.Value = IIf(Trim(Texsupp.Value) = "", 0, Trim(Texsupp.Value)) 'Supplement
Me.LabTotal = Format(CCur(Texsupp.Value) + CCur(Me.TexTarif), "# ##0.00")
End Sub

Private Sub Texsupp_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Texsupp.Value = Format(Texsupp.Value, "# ##0.00") 'Supplement
TexTarif = Format(TexTarif.Value, "# ##0.00")  'Tarif
End Sub

Jean marie

 

[ChTi160]

Re
une vidéo
Jean marie

 

[mapomme]

Bonsoir @Bruce68 🙂, @ChTi160 😉

Une piste dans le fichier joint:

• Saisir un nombre dans une des deux TextBox (ou dans les deux)
• Validez à chaque fois la saisie par la touche entrée ou tabulation

nota 1 : on tronque les nombres à deux chiffres après la virgule
nota 2 : les séparateurs décimaux acceptés sont le point et la virgule.


Remarques:

• Tous les contrôles de UserForm1 ont la propriété TabStop à False sauf les TextBox "Texsupp" et "TexTarif"
• La propriété EnterFilldBehaviour des deux TextBox "Texsupp" et "TexTarif" a été mise à 1

 

[Bruce68]

Bonjour mapomme et le forum
Un grand merci mapomme pour la ma macro elle fonctionne nickel.