Afficher valeur cellule dans textbox [Fermé]

Signaler
Messages postés
305
Date d'inscription
dimanche 10 janvier 2016
Statut
Membre
Dernière intervention
4 janvier 2020
-
max850
Messages postés
305
Date d'inscription
dimanche 10 janvier 2016
Statut
Membre
Dernière intervention
4 janvier 2020
-
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



6 réponses

Messages postés
1932
Date d'inscription
lundi 3 mai 2010
Statut
Membre
Dernière intervention
24 février 2020
130
Bonjour,

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


A+
Messages postés
305
Date d'inscription
dimanche 10 janvier 2016
Statut
Membre
Dernière intervention
4 janvier 2020
2
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
Messages postés
4278
Date d'inscription
mardi 5 février 2013
Statut
Membre
Dernière intervention
25 février 2019
1 143
Bonjour

essaie ce code


TextBox15.Value = Round(Range("E3").Value,"# ###.00)
au lieu de
TextBox15.Value = Round(Range("E3").Value, 2)
Cordialement
Messages postés
305
Date d'inscription
dimanche 10 janvier 2016
Statut
Membre
Dernière intervention
4 janvier 2020
2
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
Messages postés
4278
Date d'inscription
mardi 5 février 2013
Statut
Membre
Dernière intervention
25 février 2019
1 143
A tester

TextBox15.Value = Round(val(textbox15.value) , 2)
Messages postés
305
Date d'inscription
dimanche 10 janvier 2016
Statut
Membre
Dernière intervention
4 janvier 2020
2
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
Messages postés
1932
Date d'inscription
lundi 3 mai 2010
Statut
Membre
Dernière intervention
24 février 2020
130
Bonjour,

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

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

A+
Messages postés
305
Date d'inscription
dimanche 10 janvier 2016
Statut
Membre
Dernière intervention
4 janvier 2020
2
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