Discussion :

[pitizone]

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 :

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

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

[Fvandermeulen]

Salut,

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

Code :

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

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 :

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

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+

[pitizone]

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 :

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

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

[Fvandermeulen]

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

[pitizone]

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?

[mercatog]

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 :

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

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