Discussion :

[phal2ip]

Bonjour,
j'ai un petit souci de format dans une textbox.
Je voudrais afficher dans une textbox une valeur récupéré dans une cellule.
EN mettant le format sans virgule dans la cellule et en récupérant la valeur voir même le Text de la cellule dans la Textbox cela ne change rien. Le résultat s'affiche toujours avec la virgule dans la Textbox.
Je voulais donc simplement savoir s'il était possible d'afficher une valeur récupérée dans une Textbox sans virgule.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
TextBox13.Text = Range("I15").Value
' ou
TextBox13.Text = Range("I15").Text
' ou
TextBox13 = Range("I15").Text
' tout cela ne change rien

Merci pour votre aide

[Gorfael]

Salut phal2ip et joyeux Noël à tous
Je vais encore me faire attraper par les modos
On n'est ni magicien (quoique), ni devin! Et comme tu es devant l'écran, tu caches!!!
Si tu as dans la cellule I15 une valeur numérique avec des décimale, Excel te renvoie une valeur avec décimale : ça semble logique non ?
L'affichage est une mise en forme de la cellule, pas la valeur de son contenu!
Mais comme on n'a rien d'autre que ton sujet, et qu'on ne sait pas quelle est la valeur réelle et quelle est celle que tu veux afficher, c'est d'une facilité...
TextBox13 = [I15] affichera la valeur contenue dans I15, décimale comprises. Mais si tu veux supprimer les décimales, il faut l'expliquer à Excel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim x As Integer 'ou Long
x = [I15]
Me.TextBox1 = x

donnera le même affichage que si tu as mis tes cellules en affichage sans décimale (A1=15,5 donnera 16)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.TextBox1 = Int([I15])

Voir aussi Fix() donnera 15.
Après, on peut tout imaginer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.TextBox1 = Int([I15]*100)

donnera 1550. Etc...
A+