VBA : Format monétaire

Xpsionne Messages postés 22 Date d'inscription   Statut Membre Dernière intervention   -  
Xpsionne Messages postés 22 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

j'aimerais savoir comment on peut mettre un TextBox au format monétaire du type 4,58€.

Merci d'avance
A voir également:

7 réponses

Réponse 1 / 7
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,
si saisie dans textbox: 

Private Sub TextBox1_AfterUpdate()
    TextBox1.Value = Format(TextBox1.Value, "#.## €")
End Sub
5
Réponse 2 / 7
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Salut,

en supposant que la valeur affichée est issue de la cellule A1

TextBox1.Value = Format(Range("A1").Value, "0.00" & " €")

0
Réponse 3 / 7
Xpsionne Messages postés 22 Date d'inscription   Statut Membre Dernière intervention   1
 
Les deux ne marchent pas.

Par exemple, je saisie 47,54 et dans la cellule, ça m'affiche 47,00€
0
Réponse 4 / 7
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Re,

avant de donner un code je le teste, pour tester mon code tu as bien saisi une valeur en A1 et ton textbox est bien nommé Textbox1

Au passage le code de f894009 fonctionne également
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 7
Xpsionne Messages postés 22 Date d'inscription   Statut Membre Dernière intervention   1
 
Effectivement, ça marche sur un nouveau fichier Excel.

Mais pas dans mon tableau
0
Réponse 6 / 7
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Re,

Il faut peut être regarder du côté du format de tes valeurs qu'elles ne soit pas considérées comme du texte
0
Réponse 7 / 7
Xpsionne Messages postés 22 Date d'inscription   Statut Membre Dernière intervention   1
 
D'accord, je regarde du côté du format de cellule ?
0