afficher valeur cellule dans textbox Fermé

Question

Bonsoir les gens

j'ai un petit soucis

je n'arrive pas à afficher les valeurs des cellules telles qu'elles sont (avec les décimales, texte en vert ou rouge)dans les textboxes correspondantes 

les valeurs s'affichent sans les décimales 
et dans la textbox15 la valeur s'affiche sans les decimales, en noir et sans le signe moins 
j'ai essayé comme ci-dessous mais cela ne fonctionne pas

pouvez vous m'aider s'il vous plait 
merci

  '*** Résultat dans la ligne 3 et textbox13 - 14 - 15
    
     Range("C3").Value = (Range("D5").Value) + (Range("F5").Value)
     Range("C3").NumberFormat = "0.00"
     TextBox13.Value = Range("C3").Value
     Range("D3").Value = (Range("C5").Value) + (Range("E5").Value)
     Range("D3").Font.ColorIndex = 3 'Rouge
     Range("D3").NumberFormat = "0.00"
     TextBox14.Value = Range("D3").Value
     Range("E3").Value = (Range("D3").Value) - (Range("C3").Value)
        If Range("E3").Value < 0 Then
          Range("E3").NumberFormat = "0.00_ ;[Red]-0.00 "
          TextBox15.Value = Range("E3").Value
        Else
          Range("E3").NumberFormat = "0.00"
          Range("E3").Font.ColorIndex = 4 'vert
          TextBox15.Value = Range("E3").Value
        End If



Configuration: Windows / Chrome 57.0.2987.133

Zoul67 · Answer

Bonjour,

Pour l'exemple du TextBox15 :
 TextBox15.Value = Round(Range("E3").Value, 2)
 TextBox15.ForeColor = vbRed

A+

max850 · Answer

Bonsoir Zoul67
merci pour ta réponse

pour la couleur pas de problème : c'est ok

mais pour la valeur je n'ai toujours pas les deux décimales en entrant ton exemple

jc80 · Answer

Bonjour

essaie ce code


TextBox15.Value = Round(Range("E3").Value,"# ###.00)
au lieu de
TextBox15.Value = Round(Range("E3").Value, 2)
Cordialement

max850 · Answer

bonsoir jc80
ai essayé avec ta formule en ajoutant un " avant la dernière parenthèse toujours rien 
ai également essayé en mettant ...Value, "#,##0.00")
toujours rien

max850 · Answer

jc80 toujours le même resultat.
Après avoir fait quelques essais 
si la valeur de la cellule est egale disons 2012.12 cette valeur est bien copiée dans la textbox
si elle est egale à 2012.20 la valeur 2012.2 sans dernier zéro est recopiée dans la textbox
si la valeur est 2012.00 la valeur 2012 sans zéro après le point est copiée dans la textbox 
est ce que cela pourrait être une piste pour régler le problème ?

max850 · Answer

Bonsoir Zoul67

j'avais essayé ce format mais cela ne fonctionnait pas.(dans la réponse à jc80 post 4 ..ai également essayé en mettant ...Value, "#,##0.00")
j'ai pris la tienne et tout fonctionne comme je l'espérais
Après revérification de ma formule il me manquait bien un #
c'était si gros que j'en étais aveuglé
comme quoi certain soir il vaudrait mieux aller se coucher plutôt
que s'obstiner

merci beaucoup Zoul67 pour ton aide
merci également à jc80

Afficher valeur cellule dans textbox

6 réponses

Discussions similaires