Signaler

Afficher valeur cellule dans textbox

Posez votre question max850 207Messages postés dimanche 10 janvier 2016Date d'inscription 25 avril 2017 Dernière intervention - Dernière réponse le 21 avril 2017 à 23:20 par max850
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 
Utile
+0
plus moins
Bonjour,

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


A+
Donnez votre avis
Utile
+0
plus moins
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
Donnez votre avis
Utile
+0
plus moins
Bonjour

essaie ce code


TextBox15.Value = Round(Range("E3").Value,"# ###.00)
au lieu de
TextBox15.Value = Round(Range("E3").Value, 2)
Cordialement
Donnez votre avis
Utile
+0
plus moins
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 3521Messages postés mardi 5 février 2013Date d'inscription 24 avril 2017 Dernière intervention - 19 avril 2017 à 18:48
A tester

TextBox15.Value = Round(val(textbox15.value) , 2)
Répondre
Donnez votre avis
Utile
+0
plus moins
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 1732Messages postés lundi 3 mai 2010Date d'inscription 21 avril 2017 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+
Répondre
Donnez votre avis
Utile
+0
plus moins
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
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !