(RESOLU par PIERROT) format personalisée

[chaelie2015]

Bonjour Forum

Private Sub TextBox6_Change()
TextBox6.Value = Format(TextBox6.Value, "# ##0,00")
End Sub

je souhaite afficher un chiffre de format normalisée exemple
203125.23 => 203 125,23 dans un TextBox
mais le code que j'ai ci dessus
il n'affiche pas bien si je saisie un nombre de 09 chiffre
123456789 =>123 4 56 789 ????? alors qu'il doit affiché 123 456 789
merci

 

[Pierrot93]

Re : format personalisée

Re bonjour,

essaye avec un point :

TextBox6.Value = Format(TextBox6.Value, "# ##0.00")

bon après midi
@+

 

[chaelie2015]

Re : format personalisée

Re

TextBox6.Value = Format(TextBox6.Value, "# ##0.00")

non ça n'a pas fonctionné
j'ai une valeur fixe 1,00 ???
a+

 

[Pierrot93]

Re : format personalisée

Re,

peut être ceci :

TextBox6.Value = Format( CDbl(TextBox6.Value), "# ##0.00")

 

[Pierrot93]

Re : format personalisée

Re,

aussi ceci :

TextBox6.Value = Format(Val(Replace(TextBox6.Value, ",", ".")), "# ##0.00")

 

[chaelie2015]

Re : format personalisée

Re
encore une fois merci mais ça n'a rien donnée
ci joint un fichier
merci

 

[Pierrot93]

Re : format personalisée

Re,

tu as essayé les 2 dernières propositions ? post #4 et #5

 

[chaelie2015]

Re : format personalisée

Re,

tu as essayé les 2 dernières propositions ? post #4 et #5

Re,
Yes, les deux
a+

 

[Pierrot93]

Re : format personalisée

Re,

modifie comme suit, mais préférable de placer ce code sur l'événement exit de l'objet :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = Format(Val(Replace(TextBox1.Value, ",", ".")), "#,##0.00")
End Sub

 

[chaelie2015]

Re : format personalisée

Re
encore une fois
merci Pierrot
mon souci est réglé
SALUTATIONS