Autres Textbox et format currency

Dranreb

XLDnaute Barbatruc

• 20 Juin 2019

• #2

Bonjour.
C'est l'affectation de ce String à une variable du type numérique souhaité, ou, si c'est pour un Variant, de sa conversion par CCur ou CDbl en le type de donne souhaité.
Dans l'extrait de code qui n'a rien à voir avec ça faites simplement TextBox12.Text = Sheets("En cours").Cells(629, "E").Value + 10.25@

 

Vote positif 0 Vote négatif

F

FOUQUET Yves

XLDnaute Occasionnel

• 20 Juin 2019

• #3

En j'ai trouvé: toutes mes variables déclarées en Currency et ce code.

VB:

solde = Sheets("En cours").Range("E" & 628)
    TextBox12.Value = Format(solde, "currency") '-- Solde du compte OK avec décimale ---
    solde_format = solde
    result_banq = solde - non_pointe
    TextBox14.Value = Format(result_banq, "currency")

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 20 Juin 2019

• #4

Je pense que si l'expression numérique est de type Currency sa conversion en String est automatiquement assumée Format(LExpression, "currency")
Édition: Eh bien non, je me trompais. Le "€" n'est pas affiché. Cela dit je trouve "0.00 €" plus clair que "currency" comme spécification de format.

 

Dernière édition: 20 Juin 2019

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 20 Juin 2019

• #5

Bonjour Yves ,Bernard
Question :
Si je mets un TextBox1 au format "0.00 €" , je récupére un Currency ou un String lors de la Copie dans Feuille Excel
Aurais je une erreur si je fais ex :

VB:

Cells(1,1)=Ccur(TextBox1.value)

merci
jean marie

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 20 Juin 2019

• #6

Boujour Chti160
Normalement c'est bon, on envoie un Currency à Excel. Lui après il garde ça comme Double en réalité mais ça c'est autre chose.

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 20 Juin 2019

• #7

Merci Bernard !

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 20 Juin 2019

• #8

Re
Effectivement !
mais , si tu ne mets pas Ccur(TextBox1) il te retourne un String.
merci
jean marie

 

Vote positif 0 Vote négatif