Autres Textbox et format currency

[FOUQUET Yves]

Bonjour à toutes et tous,

Quelle est l'instruction qui transforme String en nombre décimal en conservant les chiffres après la virgule?

Merci de votre explication.
Yves

Dim solde As string
Dim solde_format As Long
Dim result_banq As Long

'-----
    solde = Sheets("En cours").Range("E" & 628)
    TextBox12.Value = Format(solde, "currency")             '--- Solde du compte OK avec décimale ---
    
    solde_format = CDec(solde)                                       '---  j'ai essayé CDbl mais idem
    result_banq = solde_format
    TextBox14.Value = Format(result_banq, "currency")   '--- là pas OK je perds les décimales --

'------

 

[Dranreb]

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@

 

[FOUQUET Yves]

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

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")

 

[Dranreb]

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.

 

[ChTi160]

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 :

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

merci
jean marie

 

[Dranreb]

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.

 

[ChTi160]

Merci Bernard !

 

[ChTi160]

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