Autres (RESOLU) TextBox format Numérique

tbft

XLDnaute Accro

• 23 Décembre 2020

• #2

Bonjour

Je crois que tout est la:

Fonction format (Visual Basic pour applications)

Référence de langage VBA pour Office

docs.microsoft.com

MyStr = Format(5459.4, "## ##0.00")

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 23 Décembre 2020

• #3

Bonjour à vous tous

Ici on récupère la valeur de la cellule A1
TextBox1.Text = Format([A1], "## ##0.00 $")

Et là, Les valeurs rentrés dans la textbox seront au format==> ## ##0.00 $
TextBox1.Text = Format(TextBox1, "## ##0.00 $")

Donc suivant ce que tu veux faire tu as le choix...
@Phil69970

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Décembre 2020

• #4

Bonjour,

En VBA le séparateur de milliers est la virgule qui donne l'espace insécable de code 160 :

VB:

Dim t$
t = TextBox1
t = Val(Replace(Replace(t, ",", "."), Chr(160), ""))
TextBox1 = Format(t, "#,##0.00 $")

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Décembre 2020

• #5

@chaelie2015 vous mettez des Likes partout mais on ne sait jamais ce que vous faites au juste.

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 23 Décembre 2020

• #6

Bonsoir JOB
Désolé, je suis en route je n'ai pas encore tester définitivement.

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 23 Décembre 2020

• #7

Bonsoir Phil69970 , Job
ci rattaché le fichier avec le code, mais ça n'a pas fonctionné?
a+

 

Pièces jointes

• charlie textbox format numérique.xlsm

  12.7 KB · Affichages: 13

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 23 Décembre 2020

• #8

Bonjour à vous tous

Essaye avec le fichier joint
Edit : Fichier modifié (j'ai rajouté un bouton de commande pour ouvrir USF)

@Phil69970

 

Pièces jointes

• charlie textbox format numérique v2.xlsm

  20.4 KB · Affichages: 9

Dernière édition: 23 Décembre 2020

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 23 Décembre 2020

• #9

Bonsoir Phil69970
ça fonctionne parfaitement merci (sauf que si je saisi "." ne fonctionne pas le code)
merci

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 23 Décembre 2020

• #10

Re
Avec la virgule "," ça fonctionne chez moi
Sur mon micro c'est la virgule qui correspond aux chiffres après la virgule
==> 123,25 € et non le "." 125.05 €
C'est peut-être comment est configurer ton ordi paramètre local de windows


*PS : @chaelie2015 : Comme Job te l'as dit avec tous les "like" que tu as mis à tout le monde si une personne vient regarder ta question elle n'aura absolument aucune idée de la/les solutions qui ont fonctionné et/ou que tu as retenue.

@Phil69970

 

Dernière édition: 23 Décembre 2020

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 23 Décembre 2020

• #11

Phil69970 à dit:

Re
Avec la virgule "," ça fonctionne chez moi
Sur mon micro c'est la virgule qui correspond aux chiffres après la virgule
==> 123,25 € et non le "." 125.05 €
C'est peut-être comment est configurer ton ordi paramètre local de windows
Regarde la pièce jointe 1089806

*PS : @chaelie2015 : Comme Job te l'as dit avec tous les "like" que tu as mis à tout le monde si une personne vient regarder ta question elle n'aura absolument aucune idée de la/les solutions qui ont fonctionné et/ou que tu as retenue.

@Phil69970

Cliquez pour agrandir...

Re
merci pour la réponse.
a+

 

Vote positif 0 Vote négatif