Formatage textbox en €

GADENSEB

XLDnaute Impliqué
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 !!!!

Code:
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

XLDnaute Junior
Re : Formatage textbox en €

Bonjour,

peut etre :

Code:
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
 

Paf

XLDnaute Barbatruc
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 :

Code:
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

XLDnaute Impliqué
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

XLDnaute Accro
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

XLDnaute Barbatruc
Re : Formatage textbox en €

re, trouvé

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

à adapter ...
 

GADENSEB

XLDnaute Impliqué
Re : Formatage textbox en €

Hello,

Merci à tous, cela marche nikel avec

Code:
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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas