Afficher valeur cellule dans textbox

Fermé

max850 Messages postés 305 Date d'inscription dimanche 10 janvier 2016 Statut Membre Dernière intervention 4 janvier 2020 - 18 avril 2017 à 22:57
max850 Messages postés 305 Date d'inscription dimanche 10 janvier 2016 Statut Membre Dernière intervention 4 janvier 2020 - 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

A voir également:

Afficher texte dans textbox vba
Vba textbox date format dd/mm/yyyy - Forum VB / VBA
Afficher mot de passe wifi android - Guide
Excel cellule couleur si condition texte - Guide
Mettre un texte en majuscule - Guide
Vba format texte ✓ - Forum VB / VBA

6 réponses

Réponse 1 / 6

Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
19 avril 2017 à 15:43

Bonjour,

Pour l'exemple du TextBox15 :

 TextBox15.Value = Round(Range("E3").Value, 2)
 TextBox15.ForeColor = vbRed

A+

Réponse 2 / 6

max850 Messages postés 305 Date d'inscription dimanche 10 janvier 2016 Statut Membre Dernière intervention 4 janvier 2020 3
19 avril 2017 à 17:56

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

Réponse 3 / 6

jc80 Messages postés 4149 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 1 422
19 avril 2017 à 18:15

Bonjour

essaie ce code

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

Réponse 4 / 6

max850 Messages postés 305 Date d'inscription dimanche 10 janvier 2016 Statut Membre Dernière intervention 4 janvier 2020 3
Modifié le 19 avril 2017 à 18:43

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 4149 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 1 422
Modifié le 19 avril 2017 à 18:51

A tester

TextBox15.Value = Round(val(textbox15.value) , 2)

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 6

max850 Messages postés 305 Date d'inscription dimanche 10 janvier 2016 Statut Membre Dernière intervention 4 janvier 2020 3
Modifié le 20 avril 2017 à 00:15

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 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
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éponse 6 / 6

max850 Messages postés 305 Date d'inscription dimanche 10 janvier 2016 Statut Membre Dernière intervention 4 janvier 2020 3
21 avril 2017 à 23:20

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

Discussions similaires

Trouver le mot réellement écrit en lettres capitales PIX

programme qui n'affiche pas le mot secret

Formule Excel : "SI" une cellule contient un mot, alors ?

copie de texte

Excel si cellule contient texte alors...

Discussions similaires

Newsletters