Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Un séparateur de milleirs qui déconne

GeoTrouvePas

XLDnaute Impliqué
Bonjour tout le monde !

Je viens une fois de plus vous embêter avec une énième question mais là franchement, je bloque complètement sur le problème.

J'ai créé un userform comportant quelques textbox dans lesquels seront saisies des sommes d'argent. Afin de fiabiliser la saisie, j'ai verrouillé au maximum mes textbox. Jusque là, pas de problème. Mon soucis est que, à la sortie du textbox, je voudrais que son contenu soit affiché en format numérique avec séparateur de milliers (mais sans le symbole € parce que je sens qu'il va m'emmerder plus tard ^^). J'ai donc utilisé ce code :

Code:
Private Sub Textbox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
     TextBox1.Text = VBA.Format(TextBox1.Text, "# ##0.00")
End sub

Tout allait bien jusqu'à ce que je teste des valeurs supérieures à un million. En effet, ce format s'occupe de la séparation des milliers mais devient fénéant quand il faut séparer les millions.

Auriez vous une solution ?

A toute fin utile, je vous joint un petit fichier exemple.

Merci à tous et bonne journée
 

Pièces jointes

  • test.xls
    23 KB · Affichages: 43
  • test.xls
    23 KB · Affichages: 47
  • test.xls
    23 KB · Affichages: 48
Dernière édition:

camarchepas

XLDnaute Barbatruc
Re : Un séparateur de milleirs qui déconne

Bonjour,

Voilà une petite mise en format :
 

Pièces jointes

  • Séparateur.xls
    25.5 KB · Affichages: 71
  • Séparateur.xls
    25.5 KB · Affichages: 76
  • Séparateur.xls
    25.5 KB · Affichages: 75

GeoTrouvePas

XLDnaute Impliqué
Re : Un séparateur de milleirs qui déconne

Code:
"###,##0.00"

Bon sang mais c'est bien sur !
J'ai essayé pas mal de choses dans le genre mais il me manquait la "," entre les #.

Merci de ton aide et bonne journée
 

hbenalia

XLDnaute Occasionnel
Re : Un séparateur de milleirs qui déconne

Bonjour le forum,

Un essai avec le format dans le code suivant:

Code:
Private Sub Textbox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
     TextBox1.Text = VBA.Format(TextBox1.Text, "# ##0 ##0.00")
End sub


Cordialement
 
Dernière édition:

GeoTrouvePas

XLDnaute Impliqué
Re : Un séparateur de milleirs qui déconne

Merci Hbenalia mais ça ne fonctionne pas.
Quand on tape "15" ça affiche "0 015,00" à la sortie du Textbox.
Le format proposé par Camarchepas fonctionne impec et affiche bien "15,00"mise à part qu'il me place 2 espaces juste avant cette valeur. Mais bon, ça m'empèche pas de me reservir des valeurs après.
Merci à vous deux
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…