VBA : Format monétaire [Fermé]

Signaler
Messages postés
22
Date d'inscription
dimanche 4 décembre 2011
Statut
Membre
Dernière intervention
2 mai 2016
-
Messages postés
22
Date d'inscription
dimanche 4 décembre 2011
Statut
Membre
Dernière intervention
2 mai 2016
-
Bonjour,

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

Merci d'avance

7 réponses

Messages postés
15725
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 avril 2021
1 481
Bonjour,
si saisie dans textbox:

Private Sub TextBox1_AfterUpdate()
    TextBox1.Value = Format(TextBox1.Value, "#.## €")
End Sub
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
22
Date d'inscription
dimanche 4 décembre 2011
Statut
Membre
Dernière intervention
2 mai 2016
1
Les deux ne marchent pas.

Par exemple, je saisie 47,54 et dans la cellule, ça m'affiche 47,00€
Messages postés
17302
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
9 avril 2021
4 550
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
Messages postés
22
Date d'inscription
dimanche 4 décembre 2011
Statut
Membre
Dernière intervention
2 mai 2016
1
Effectivement, ça marche sur un nouveau fichier Excel.

Mais pas dans mon tableau
Messages postés
17302
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
9 avril 2021
4 550
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
Messages postés
22
Date d'inscription
dimanche 4 décembre 2011
Statut
Membre
Dernière intervention
2 mai 2016
1
D'accord, je regarde du côté du format de cellule ?
Messages postés
17302
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
9 avril 2021
4 550
Salut,

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

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