format monétaire Texbox

[toune21]

Bonjour à tous,

J'ai beaucoup progressé avec vous.
Userform c'est le deuxième que je fais, avec de l'aide bien sur, vous.

​

Une petite question pour un format monétaire Texbox, ?
J'ai trouvé pour les numéros de téléphone,
çà !
Private Sub txtTélécopie_Change()
txtTélécopie.Value = Format(txtTélécopie.Value, "0#"" ""##"" ""##"" ""##"" ""##")
End Sub

mais pour 140.00 € j'ai pas trouvé.
j'ai ça :

Private Sub txtTarif_Change()
txtTarif.Value = Format(txtTarif.Value, "#"0,00 €")
End Sub
mais ça ne fonctionne pas,

Je pense qu'une bonne âme va pouvoir m'aider
Merci à tous

 

[soenda]

Re : format monétaire Texbox

Bonjour le fil, Tourne21

Peut-être en utilisant l'évènement Exit de ton textBox

Private Sub txtTélécopie_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    txtTélécopie.Value = Format(txtTélécopie.Value, "# ##0.00 €")
End Sub

Met à jour le format du TextBox en cliquant sur ENTER (par exemple), pour peu qu'il y est au moins un autre contrôle sur l'USF.

A plus

 

[youky(BJ)]

Re : format monétaire Texbox

Bonjour tourne21,
Il est bon de changer le point en virgule, donc...

txtTarif.Value=Replace(txtTarif.value, ".", ",")
txtTarif.Value = Format(txtTarif.Value, "#"0,00 €")

Bruno

 

[roro69]

Re : format monétaire Texbox

Bonsoir
Essaye de changer la virgule par un point:

txtTarif.Value = Format(txtTarif.Value, "#"0,00 €")

A++

 

[soenda]

Re : format monétaire Texbox

Bonjour le fil, youky(BJ), roro69, Creolia

Le problème vient du fait (dans l'évènement Change),
que le n° de téléphone à une longueur fixe (zéro en début de chaine),
alors que ce n'est pas le cas d'un montant (zéro et '.' en fin de chaine).

Mais je peux me tromper.

A plus

 

[toune21]

Re : format monétaire Texbox

Bonsoir, Soenda, Youki, Roro
J'ai essayé toutes vos formules pas une fonctionne.
J'ai remplacé la virgule par le point.
J'ai tout fait comme il faut.
Eh bien rien, toujours rouge ma ligne.
A+ Marie

 

[toune21]

Re : format monétaire Texbox

Coucou à tous,
Youky,
ta formule
txtTarif.Value=Replace(txtTarif.value, ".", ",")
txtTarif.Value = Format(txtTarif.Value, "#"0,00 €")

Cette fonction fonctionne pour la valeur 100 € ... 200 ..

Mais pour 15 ou 40 ou 60 € il affiche 015 €

 

[soenda]

Re : format monétaire Texbox

Re,

Autant pour moi, un autre essai :

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

Voir PJ

A plus

 

[toune21]

Re : format monétaire Texbox

Re à tous les trois,Soenda, YoukY, Roro
ERK la voila .......
Private Sub txtTarif_Change()
txtTarif.Value = Replace(txtTarif.Value, ".", ",")
txtTarif.Value = Format(txtTarif.Value, "0#.00 €")
End Sub
Merci, Merci
Bon Wek End
MM

 

[toune21]

Re : format monétaire Texbox

On se croise, Merci à toi
A bientot,