Transformation d'une valeur d'un TextBox en Euros Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
C
Christophe88
Jeune membre
Jeune membre
Messages : 43
Inscrit le : 17 juillet 2016
Version d'Excel : 2016

Message par Christophe88 » 20 février 2017, 22:02

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
Facture.xlsm
(47.57 Kio) Téléchargé 21 fois
Avatar du membre
curulis57
Passionné d'Excel
Passionné d'Excel
Messages : 3'752
Appréciations reçues : 221
Inscrit le : 4 janvier 2016
Version d'Excel : 2016 FR / 2019 FR

Message par curulis57 » 20 février 2017, 22:24

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! :wink:

:)
A+
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'189
Appréciations reçues : 633
Inscrit le : 27 août 2012
Version d'Excel : 365 Personnel

Message par Jean-Eric » 20 février 2017, 22:25

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
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
C
Christophe88
Jeune membre
Jeune membre
Messages : 43
Inscrit le : 17 juillet 2016
Version d'Excel : 2016

Message par Christophe88 » 21 février 2017, 21:06

C'est tout bon.
Grand merci car ça marche au poil. :D
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message