Formatage textbox en €

[GADENSEB]

Bonjour le Forum,

Je cherche à formater des textbox dans un USF de saisie
Voici mon code

Quand je veux taper 50 j'obtiens 5,00 €0 !!!!

Private Sub CREDIT_Change()
If CREDIT.Value > 0 Then
DEBIT.Value = ""
CREDIT.Value = Format(CREDIT.Value, "#,##0.00 €")
End If
End Sub

Private Sub DEBIT_Change()
If DEBIT.Value > 0 Then
CREDIT.Value = ""
DEBIT.Value = Format(DEBIT.Value, "#,##0.00 €")
End If
End Sub

QQn aurait une idée sachant que je souhaite obtenir pour 50€, par exemple : 50.00 €

Bonne am


Seb

 

[BigDaddy154]

Re : Formatage textbox en €

Bonjour,

peut etre :

Private Sub CREDIT_Change()
If CREDIT.Value > 0 Then
DEBIT.Value = ""
CREDIT.Value = Format(CREDIT.Value, "#,##00 €")
End If
End Sub

Private Sub DEBIT_Change()
If DEBIT.Value > 0 Then
CREDIT.Value = ""
DEBIT.Value = Format(DEBIT.Value, "#,##00 €")
End If
End Sub

Cordialement

 

[mutzik]

Re : Formatage textbox en €

bonjour,

essayer
CREDIT.Value = Format(CREDIT.Value, "# ##0.00 €")

 

[Paf]

Re : Formatage textbox en €

Bonjour GADENSEB, BigDaddy154, mutzik

La sub Private Sub CREDIT_Change() se déclenche dès la saisie du premier caractère et donc le format est appliqué sur ce caractère.

Une solution, n'appliquer ce format qu'en sortie de cette textbox :

Private Sub CREDIT_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 If CREDIT.Value > 0 Then
    DEBIT.Value = ""
    CREDIT.Value = Format(CREDIT.Value, "#,##00 €")
 End If
End Sub

ce qui oblige à cliquer hors textbox pour déclencher le code

A+

 

[GADENSEB]

Re : Formatage textbox en €

Hello,
Merci à tous les deux ...

J'ai essayé les 2 codes et cela ne change rien ....

J'essaye le code de PAF dans l'am


Thanks

 

[13GIBE59]

Re : Formatage textbox en €

Bonjour tout le monde, bonjour Gadenseb.

Tu écris :

Je cherche à formater des textbox dans un USF de saisie

Ta formule me semble bonne. Ne peux-tu pas forcer ce format à la fermeture du userform, souvent par le bouton OK ou Valider ou un truc de ce genre ? (et pas par un Private Sub Change)

 

[mutzik]

Re : Formatage textbox en €

re, trouvé

Private Sub TextBox1_AfterUpdate()
Me.TextBox1 = Format(CDbl(Me.TextBox1), "# ##0.00€")
End Sub

à adapter ...

 

[GADENSEB]

Re : Formatage textbox en €

Hello,

Merci à tous, cela marche nikel avec

Private Sub CREDIT_AfterUpdate()
If CREDIT.Value > 0 Then
DEBIT.Value = ""
Me.CREDIT = Format(CDbl(Me.CREDIT), "# ##0.00€")
End If
End Sub

Private Sub DEBIT_AfterUpdate()
If DEBIT.Value > 0 Then
CREDIT.Value = ""
Me.DEBIT = Format(CDbl(Me.DEBIT), "# ##0.00€")
End If
End Sub

Bon We

Seb