Format dans textbox ou label

[Marc]

Bonsoir le Forum,
Voilà mon petit problème : J'aimerais mettre un format monétaire dans un label ou textbox.

En fait, dans un userform j'ai 3 labels dans lesquels apparaissent des montants et j'aimerais pouvoir mettre ces montants en Euros et bein sûr avec 2 chiffres après la virgule.

Merci de votre aide parce que je bloque.


Marc

 

[_Thierry]

Bonsoir Marc

Tu peux facilement envoyer dans un Label le Format que tu veux... Mais attention, tu n'auras que du Texte dans ces Labels ensuite (en cas de ré-utilisation des valeurs numériques, il faut passer par des Variables)

Private Sub UserForm_Initialize()
Dim MySumm As Double

MySumm = 25000.25

Label1.Caption = Format(MySumm + MySumm, '€ # ### ###.#0')
Label2.Caption = Format(MySumm, '€ # ### ###.#0')


End Sub

Bonne Soirée
[ol]@+Thierry[/ol]

 

[Marc]

Salut Thierry, le forum,
J'ai arrangé un peu à ma sauce grace à ta réponse mais sans variables.

En fait, ça donne ça :

Private Sub UserForm_Activate()
Label1.Caption = Format(Range('A1').Value, '# ### ###.#0 €')

Ta réponse m'a bien aidé

Merci et A+