Transformation d'une valeur d'un TextBox en Euros

J'ai créé une facture en code VBA mais je ne parviens pas à transformer mes valeurs Prix HT et Montant en Euros dès que je clique sur les boutons Ajouter puis Quitter.

Sinon tout marche impécablement.

Si une bonne âme a la réponse à ma problématique, je serai bien content.

Il faut cliquer sur le module Form_Facture pour ouvrir le code associé.

Merci d'avance

Salut Christophe,

d'abord, il faut régler le format de ta colonne "E" en format monétaire avec le symbole €.

Ensuite, en fonction des données attendues par tes TextBox, forcer la conversion de leur valeur (texte, forcément) dans un format nombre.

Par exemple :

    Range("C" & Ligne).Value = CLng(Me.PUHT)
    Range("D" & Ligne).Value = CLng(Me.Quantité)
    Range("E" & Ligne).Value = CLng(Me.TotalHT)

Du coup, ça marchera beaucoup mieux!

A+

Bonjour,

Essaie ainsi :

With Sheets("Facture")
        Range("A" & Ligne).Value = Me.Référence
        Range("B" & Ligne).Value = Me.Désignation
        Range("C" & Ligne).Value = CDbl(Me.PUHT)
        Range("D" & Ligne).Value = CDbl(Me.Quantité)
        Range("E" & Ligne).Value = CDbl(Me.TotalHT)
    End With

C'est tout bon.

Grand merci car ça marche au poil.