nombres dans textbox

Version imprimable

04/11/2007, 03h58
casefayere

nombres dans textbox
Bonsoir à tous
Comme je cherche encore beaucoup les solutions à mes problèmes et qu'on m'aide à chaque fois, j'ai envie de vous communiquer une macro que je viens de trouver afin d'eviter les erreurs dans la saisie de décimales dans les textbox
Code:

1 2 3 4 Private Sub nomdutextbox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If Chr(KeyAscii) = "." Then KeyAscii = Asc(",") End Sub
j'espere que ça aidera quelqu'un mais si il y a mieux, n'hesitez pas à me le dire

à+

Remplacement d'un . par une ,
Impossibilité de saisir un 2eme séparateur décimal ainsi qu'autre chose que des chiffres

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Option Explicit
 
Const entrees_decimales_permises = ".,0123456789" & vbCr & vbBack
Const entrees_entieres_permises = "0123456789" & vbCr & vbBack
Const Point = "."
Const Virgule = ","
 
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = Asc(Point) Then
        If InStr(TextBox1, Virgule) = 0 Then
            KeyAscii = Asc(Virgule)
        Else
            KeyAscii = 0
        End If
    ElseIf InStr(entrees_decimales_permises, Chr(KeyAscii)) = 0 Then
        KeyAscii = 0
    ElseIf InStr(TextBox1, Virgule) > 0 And KeyAscii = Asc(Virgule) Then
        KeyAscii = 0
    End If
 
    If KeyAscii = 13 Then SendKeys "{TAB}": KeyAscii = 0
End Sub
 
'	Saisie entière dans une TextBox
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr(entrees_entieres_permises, Chr(KeyAscii)) = 0 Then KeyAscii = 0
    If KeyAscii = 13 Then SendKeys "{TAB}": KeyAscii = 0
End Sub

Bonsoir casefayere et kiki,
Pour corriger en cours de saisie je propose...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim ok As Boolean
    If KeyCode = 9 Or KeyCode = 13 Or TextBox1 = "" Then Exit Sub
    ok = Right(TextBox1, 1) Like "#" Or Right(TextBox1, 1) Like ","
    If Not ok Then
        If KeyCode = 110 Or KeyCode = 188 Then
          Else
            TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
        End If
    End If
 
    'juste pour suivre l'évolution de la saisie dans la feuille
    Range("A1") = Val(TextBox1) 
End Sub