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

 

[Pierrot93]

Re : format texbox

Re

aarf, oui il manque certains éléments, correction ci dessous :

Private Sub tarif_Exit(ByVal Cancel As MSForms.ReturnBoolean)

désolé

 

[cloclo57]

Re : format texbox

Merci et bien ciblé ,
Cela fonctionne tres bien


Merci encore une fois

 

[cloclo57]

Re : format texbox

Merci de ton aide

 

[wilfried_42]

Re : format texbox

bonjour à tous

erreur de lecture lol comme d'hab ((ai pas vu la virgule)

 

[Bruce68]

Re : format texbox

Bonjour à tous

Essaie ceci

Private Sub Tarif_AfterUpdate()
Tarif.Value = Format(Tarif.Value, "0.00 €")
End Sub

 

[cloclo57]

Re : format texbox

Merci a tous
Pour moi le sujet est clos et ma solution trouvée

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

Merci le Forum pour votre aide
cloclo57