VBA : Format monétaire

Xpsionne -  
Bonjour,

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

Merci d'avance

7 réponses

  1.  f894009
    Bonjour,
    si saisie dans textbox: 

    Private Sub TextBox1_AfterUpdate()
    TextBox1.Value = Format(TextBox1.Value, "#.## €")
End Sub
    1. Mike-31
      Salut,

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

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

      1. Xpsionne Auteur
        Les deux ne marchent pas.

        Par exemple, je saisie 47,54 et dans la cellule, ça m'affiche 47,00€
        1. Mike-31
          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
          2. Xpsionne Auteur
            Effectivement, ça marche sur un nouveau fichier Excel.

            Mais pas dans mon tableau
            1. Mike-31
              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