Format de nombre décimaux dans TextBox feuille

Bonsoir à tous,

Je rencontre un problème qui me parassait simple à résoudre mais je ne parviens pas à trouver la solution et l'explication sur ce forum.

Je possède une feuille Excel dans laquelle apparait des Textbox. Mon problème est que je ne peux pas entrer des nombres décimaux .

Je m'explique: Pour entrer "3.3", je tape "3" + "." + "3" et il m'affiche "33".

Je me suis rendu compte que cela venait de ma ligne de commande:

Code:

---

1 2 3

Private Sub D_tb_Change() Worksheets("INPUT_DATA").Cells(31, 5) = (D_tb.Value) End Sub

---

avec D_tb = Nom de ma textbox


Comment l'expliquez vous et comment résoudre ce problème?

Merci d'avance

Salut,

Commence par formater ton Textbox à l'initialisation de ton userform:

Code:

---

1 2 3

Private Sub UserForm_Initialize() Me.D_tb = Format(Me.D_tb, "#,00") End Sub

---

Tu peux recommencer cette action lors du change, et pour t'assurer qu'il le place bien en tant que nombre tu multiplie par 1 (c'est une astuce comme une autre)

Code:

---

1 2 3

Private Sub D_tb_Change() Worksheets("INPUT_DATA").Cells(31, 5) = format(D_tb.Value,"#,00")*1 End Sub

---

Vérifie quand même que la virgule soit bien ton séparateur de décimal, sinon adapte par #.00

A+

Merci de ta réponse mais le problème persiste toujours.

Petite précision qui pourra peut être vous aider: En fait, il y a deux fonctions pour ma Textbox:

1) Lorsque je rentre une valeur dans ma Textbox, cette valeur est copiée dans ma cellule cells(31,5) par l'intermédiare de:

Code:

---

1 2 3

Private Sub D_tb_Change() Worksheets("INPUT_DATA").Cells(31, 5) = (D_tb.Value) End Sub

---

2) Lorsque je rentre une valeur dans ma cellule cells(31,5), cette valeur est copiée dans ma Textbox par l'intermédiaire de la propriété Linkedcell = INPUT_DATA!E31

Or je me suis rendu compte que lorsque je supprime une de ces deux fonctions, le problème disparait.

Merci d'avance :D

Donc ta textbox est dans la feuille et pas un userform, faut que je teste alors...

c'est exact, ma Textbox est dans une feuille mais pas dans une userform...

Quelqu'un a t il une idée pour résoudre ce pb?

C'est logique à cause de l'interférence entre LinckedCell et le Change du Textbox
ci-joint une roue de secours (mon textbox est appelé TextBox1, à adapter)

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub TextBox1_Change() Dim Pos As Byte   Pos = InStr(TextBox1.Text, ".") If Pos > 0 And Val(Mid(TextBox1.Text, Pos + 1)) = 0 Then TextBox1.LinkedCell = "" Else Range("E31").Value = TextBox1.Value TextBox1.LinkedCell = "E31" End If End Sub

---

Merci beaucoup. ça à l'air de fonctionner correctement. :ccool: