format texbox

[cloclo57]

Bonjour le forum

Un petit soucis de format d'un textbox
Je voudrais que la somme soit sous la forme ( 22,00 € )

Il doit y avoir une erreur dans la forme ci dessous

tarif.Value = format(tarif.Value, "# 00.## €")


Merci d'avance de la reponse

 

[wilfried_42]

Re : format texbox

bonjour

essaye ca

tarif.Value = format(val(tarif.Value), "# 00.##") & " €"

 

[Pierrot93]

Re : format texbox

Bonjour Cloclo

regarde le code ci dessous, si cela peut t'aider :

Private Sub UserForm_Initialize()
tarif.Value = "22"
tarif.Value = Format(tarif.Value, "# #0.00 €")
End Sub

bon après midi
@+

Edition : bonjour Wilfried

 

[cloclo57]

Re : format texbox

Bonjour et merci d'avoir repondu .

Il y a toujours une erreur dans le format du textbox
Si je rentre la valleur 22, il m'affiche ( 02, € )

Merci

 

[wilfried_42]

Re : format texbox

re:

excuse, j'ai simplement vu que tu cherchais à affecter un format à une valeur aphabetique plutot qu'une valeur numerique

tarif.Value = format(val(tarif.Value), "# ##0.00") & " €"

 

[Pierrot93]

Re : format texbox

Re

attention "val" n'accepte que le point en séparateur de décimale.

@+

 

[cloclo57]

Re : format texbox

Bonjour Wilfried 42
Merci de ta reponse rapide

J'ai essayé ton dernier exemple
tarif.Value = format(val(tarif.Value), "# ##0.00") & " €"

en entrant la valeur 22 il me m'affiche ( 2,00 € )

Merci de ta collaboration

 

[cloclo57]

Re : format texbox

Bonjour
Merci de ta reponse rapide

J'ai essayé ton dernier exemple
tarif.Value = Format(tarif.Value, "# #0.00 €")


en entrant la valeur 22 il me m'affiche ( 2,00 €2 )

Merci de ta collaboration

 

[Pierrot93]

Re : format texbox

Re

as tu essayé le code que j'avais proposé à 13h39 ?

 

[cloclo57]

Re : format texbox

Bonjour
J'ai essayé l'exemple ci dessous

Private Sub tarif_Change()

tarif.Value = Format(tarif.Value, "# #0.00 €")

End Sub

Merci de ta collaboration

 

[Pierrot93]

Re : format texbox

Re

si tu places le code dans un événement du textbox, place le dans l'événement "Exit" ou "afterupdate".

 

[cloclo57]

Re : format texbox

Je suis un petit debutant
Je ne vois pas trop ce que tu veux dire par la

 

[Pierrot93]

Re : format texbox

Re

essaye comme ceci :

Private Sub tarif_Exit()
tarif.Value = Format(tarif.Value, "# #0.00 €")
End Sub

l'événement change intervient à chaque fois que tu tappes un caractère, l'événement "Exit" se déclenchera quand tu quitteras le textbox.

@+

 

[cloclo57]

Re : format texbox

J'ai mis ton exemple en place et j'ai le message suivant
Private Sub tarif_Exit()
tarif.Value = Format(tarif.Value, "# #0.00 €")
End Sub

Erreur de compilation
La declaration de la procedure ne correspond pas a la description de l'evenement ou de la procedure de meme nom

 

[cbea]

Re : format texbox

Bonjour à tous,

Peux-tu essayer comme cela ?

Private Sub tarif_Exit(ByVal Cancel As MSForms.ReturnBoolean)
tarif.Value = Format(tarif.Value, "# #0.00 €")
End Sub

Merci