Discussion :

[LANGAZOU]

Bonjour,

J'ai créé un textbox dans lequel je saisie uniquement des valeurs numériques. j'ai ajouté récemment sous l'événement textbox change () le séparateur de millier. par conséquent je ne pourrais plus taper la virgule ! ci dessous mon code:

Code :

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

1
2
3
Private Sub TextBox1_Change()
 TextBox1 = Format(TextBox1, "# ### ##0")
End Sub

Code :

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

1
2
3
4
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("1234567890,-", Chr(KeyAscii)) = 0 Then
KeyAscii = 0: Beep
End If

Merci pour votre aide.

[Docmarti]

Bonjour LANGAZOU

C'est parce que la virgule dans textbox1 n'est pas une virgule
Essaie avec

Code :

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

If InStr("1234567890.-", Chr(KeyAscii)) = 0 Then

au lieu de

Code :

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

If InStr("1234567890,-", Chr(KeyAscii)) = 0 Then

[kiki29]

Salut, voir Obliger une saisie numérique dans une TextBox

[LANGAZOU]

Bonjour,

je vous remercie pour votre réponse.

bonne journée

[Docmarti]

Bonjour LANGAZOU

Voici comment affichier les séparateurs de milliers dans un Textbox :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("1234567890.-e", Chr(KeyAscii)) = 0 Then
 KeyAscii = 0: Beep
End If
End Sub
 
Private Sub TextBox1_Change()
 
If Val(TextBox1) < 1000 Then
 
Else
 
 TextBox1 = Trim(Format(TextBox1, "# ### ### ### ### ### ### ### ### ### ##0"))
 
End If
 
Cells(2, 2) = Val(TextBox1)
 
 
End Sub