Format sans virgule dune textbox

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:

---

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

Salut phal2ip et joyeux Noël à tous
Je vais encore me faire attraper par les modos :mouarf:
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:

---

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:

---

Me.TextBox1 = Int([I15])

---

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

Code:

---

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

---

donnera 1550. Etc...
A+