format monétaire Texbox

soenda

XLDnaute Accro

• 27 Février 2010

• #2

Re : format monétaire Texbox

Bonjour le fil, Tourne21

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

Code:

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

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 27 Février 2010

• #3

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

 

Dernière édition: 27 Février 2010

Vote positif 0 Vote négatif

roro69

XLDnaute Impliqué

• 27 Février 2010

• #4

Re : format monétaire Texbox

Bonsoir
Essaye de changer la virgule par un point:

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

A++

 

Vote positif 0 Vote négatif

soenda

XLDnaute Accro

• 27 Février 2010

• #5

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

 

Vote positif 0 Vote négatif

T

toune21

XLDnaute Impliqué

• 27 Février 2010

• #6

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

 

Vote positif 0 Vote négatif

T

toune21

XLDnaute Impliqué

• 27 Février 2010

• #7

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 €

 

Vote positif 0 Vote négatif

soenda

XLDnaute Accro

• 27 Février 2010

• #8

Re : format monétaire Texbox

Re,

Autant pour moi, un autre essai :

Code:

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

Voir PJ

A plus

 

Pièces jointes

• Tourne21.xls

  45 KB · Affichages: 48

Vote positif 0 Vote négatif

T

toune21

XLDnaute Impliqué

• 27 Février 2010

• #9

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

 

Vote positif 0 Vote négatif

T

toune21

XLDnaute Impliqué

• 27 Février 2010

• #10

Re : format monétaire Texbox

On se croise, Merci à toi
A bientot,

 

Vote positif 0 Vote négatif