XL 2016 Problème format nombre à la sortie Textbox

dg62

XLDnaute Barbatruc

• 16 Avril 2020

• #2

Bonjour,
il semblerait qu'Excel ait interprété 10.5 comme une heure. 24*0.45... donne 10.5.

 

Vote positif 0 Vote négatif

B

barbin

XLDnaute Junior

• 16 Avril 2020

• #3

dg62 à dit:

Bonjour,
il semblerait qu'Excel ait interprété 10.5 comme une heure. 24*0.45... donne 10.5.

Cliquez pour agrandir...

Merci ta réponse. Mais comment puis je résoudre ce problème.?

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 16 Avril 2020

• #4

re,
j'ai testé, le retour est conforme à la saisie. Le problème vient peut-être d'ailleurs.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Avril 2020

• #5

Bonjour.
Chez moi Format("10.50", "# ##0.00") vaut aussi "0,45"
Il manque à mon avis la seule chose importante dans la _KeyPressed :

VB:

Private Sub TextBox15_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
   If Chr$(KeyAscii) = "." Then KeyAscii = Asc(",")
   End Sub

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 16 Avril 2020

• #6

BONJOUR
tu peux taper ce que tu veux dans un textbox
si tu l'envoie comme tel dans une cellule
OU!!
si tu envoie format(Textbox15,"....")
résultat
tu injecte en string et donc force excel a évaluer dans un format

par contre si tu envoie Val(Textbox15) et!!!!!! que tu format ta cellule la oui tu aura le bon format
exemple
cells(1,1)=val(textbox15)
SI!!! pour toi il est important d'avoir le séparateur de millier dans le textbox
du dois reformater avant d'injecter
exemple
cells(1,1)=val(replace(Textbox15," ",""))

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 16 Avril 2020

• #7

re
il y a une question qui me chagrine
si le format attendu est "# ##0.00" que vient faire le tiret(6) dans les Autorized (charcode)

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 16 Avril 2020

• #8

re
tiens je l'ai retrouvé
formater un textbox +suffixe monétaire
on gère les touches del et suppr en prime
il n'est pas possible d'inserer entre deux
2 décimales après la virgule

VB:

Private Sub TextBox15_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    With TextBox15
         x = Trim(Replace(.Value, " €", ""))
        Select Case KeyCode
        Case 96 To 105
        If Right(x, 3) Like ",*" Then KeyCode = 0
          x = x & Chr(KeyCode + IIf(KeyCode < 96, 32, -48))
        Case 110, 188: If Not x Like "*,*" Then x = x & ","
        Case 8: x = Left(x, Len(x) - IIf(x <> "", 1, 0))
        Case 46: x = Left(x, .SelStart)
        Case Else: KeyCode = 0
        End Select
        x = IIf(Not x Like "*,*", Format(x, Right("### ### ### ### ### ### ### ###", Len(x))), x)
        .Value = x
        If .Value <> "" Then .Value = .Value & " €"
        .SelStart = Len(x)
    End With
    KeyCode = 0
End Sub

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 16 Avril 2020

• #9

Bonjour le fil
j'ai testé en créant un textbox et j'ai essayé cela

VB:

Private Sub TextBox15_Exit(ByVal Cancel As MSForms.ReturnBoolean)
MsgBox Format(TextBox15.Value, "# ##0.00")
End Sub

et j'ai 10.5 en retour. c'est pour cela que j'avais dit que cela était conforme à la saisie.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Avril 2020

• #10

Correct si suite à la saisie TextBox15.Text = "10,50" mais pas si TextBox15.Text = "10.50".

 

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 16 Avril 2020

• #11

Bonjour à tous
Une textbox contient du texte (type string)
Si le séparateur décimal utilisé est le ".", on convertit en numérique, avant formatage

VB:

MsgBox Format(Val(textbox1.value), "# ##0.00") ' affichera en utilisant le séparateur décimal de la version.

 

Vote positif 0 Vote négatif

B

barbin

XLDnaute Junior

• 17 Avril 2020

• #12

Bonjours à tous.
merci beaucoup.
Private Sub TextBox15_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox15.Value = Format(TextBox15.Value, "# ##0.00")
End Sub

Cela fonctionne très bien.

 

Vote positif 0 Vote négatif