XL 2019 Chiffre avec décimale dans textbox

ChTi160

XLDnaute Barbatruc

• 17 Septembre 2022

• #2

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

VB:

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 17 Septembre 2022

• #3

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

 

Pièces jointes

• Format Textbox (Chti160).xlsm

  19.5 KB · Affichages: 3

Vote positif 0 Vote négatif

B

Bruce68

XLDnaute Impliqué

• 17 Septembre 2022

• #4

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.

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 17 Septembre 2022

• #5

Re
une variante (perfectible)

VB:

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

 

Dernière édition: 17 Septembre 2022

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 17 Septembre 2022

• #6

Re
une vidéo
Jean marie

 

Pièces jointes

• Bruce_1.gif

  59.6 KB · Affichages: 20

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 17 Septembre 2022

• #7

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

 

Pièces jointes

• Bruce68- Format Textbox- v1.xlsm

  27.7 KB · Affichages: 18

Vote positif 0 Vote négatif

B

Bruce68

XLDnaute Impliqué

• 18 Septembre 2022

• #8

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

 

Vote positif 0 Vote négatif