Menu

Afficher valeur cellule dans textbox [Fermé]

max850 249 Messages postés dimanche 10 janvier 2016Date d'inscription 24 mars 2018 Dernière intervention - 18 avril 2017 à 22:57 - Dernière réponse : max850 249 Messages postés dimanche 10 janvier 2016Date d'inscription 24 mars 2018 Dernière intervention
- 21 avril 2017 à 23:20
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



Afficher la suite 

8 réponses

Zoul67 1767 Messages postés lundi 3 mai 2010Date d'inscription 17 avril 2018 Dernière intervention - 19 avril 2017 à 15:43
0
Utile
Bonjour,

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


A+
max850 249 Messages postés dimanche 10 janvier 2016Date d'inscription 24 mars 2018 Dernière intervention - 19 avril 2017 à 17:56
0
Utile
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 4085 Messages postés mardi 5 février 2013Date d'inscription 23 avril 2018 Dernière intervention - 19 avril 2017 à 18:15
0
Utile
Bonjour

essaie ce code


TextBox15.Value = Round(Range("E3").Value,"# ###.00)
au lieu de
TextBox15.Value = Round(Range("E3").Value, 2)
Cordialement
max850 249 Messages postés dimanche 10 janvier 2016Date d'inscription 24 mars 2018 Dernière intervention - Modifié par max850 le 19/04/2017 à 18:43
0
Utile
1
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
jc80 4085 Messages postés mardi 5 février 2013Date d'inscription 23 avril 2018 Dernière intervention - 19 avril 2017 à 18:48
A tester

TextBox15.Value = Round(val(textbox15.value) , 2)
max850 249 Messages postés dimanche 10 janvier 2016Date d'inscription 24 mars 2018 Dernière intervention - Modifié par max850 le 20/04/2017 à 00:15
0
Utile
1
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 ?
Zoul67 1767 Messages postés lundi 3 mai 2010Date d'inscription 17 avril 2018 Dernière intervention - 21 avril 2017 à 14:09
Bonjour,

.Value = Format(Range("E3").Value, "##,##0.00")

Je n'avais pas compris qu'il fallait indiquer ".00" pour un nombre entier.

A+
max850 249 Messages postés dimanche 10 janvier 2016Date d'inscription 24 mars 2018 Dernière intervention - 21 avril 2017 à 23:20
0
Utile
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