XL 2010 Restriction Textbox nombre

[TheProdigy]

Bonjour tout le monde,

J'ai trouvé un code sur Net pour restreindre la saisie à nombre dans un textbox

Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii > Asc("9") Or KeyAscii < Asc("0") Then
        If KeyAscii = Asc("-") Then
            If InStr(1, Me.TextBox3.Text, "-") > 0 Or _
               Me.TextBox4.SelStart > 0 Then KeyAscii = 0
        ElseIf KeyAscii = Asc(".") Then
            If InStr(1, Me.TextBox4.Text, ".") > 0 Then KeyAscii = 0
        Else
            KeyAscii = 0
        End If
    End If
End Sub

Ma question est comment adapter ce code pour qu'il

1. N'accepte pas la virgule du chiffre le (.) sur mon clavier
2. N'accepte pas le chiffre négatif, le signe moins (-)

Merci beaucoup

 

[Robert]

Bonjour Adilprodigy, bonjour le forum,

Peut-être comme ça :

Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 47 Or KeyAscii > 57 Then KeyAscii = 8
End Sub

 

[youky(BJ)]

Bonjour,
que de 0 à 9 et la virgule, le point est transformé en virgule.
Bruno

Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("0123456789,.", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

Private Sub TextBox4_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
TextBox4.Value = Replace(TextBox4, ".", ",")
End Sub

 

[TheProdigy]

Bonjour Adilprodigy, bonjour le forum,

Peut-être comme ça :

Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 47 Or KeyAscii > 57 Then KeyAscii = 8
End Sub

Merci @Robert, Merci @youky(BJ) vos codes fonctionnent parfaitement
Merci le forum

 

[TheProdigy]

Bonjour,
que de 0 à 9 et la virgule, le point est transformé en virgule.
Bruno

Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("0123456789,.", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

Private Sub TextBox4_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
TextBox4.Value = Replace(TextBox4, ".", ",")
End Sub

Bonjour @youky(BJ), bonjour le forum,
Ton code accepte plusieurs virgule genre 212.23.25.2..... Comment faire?

Merci

 

[youky(BJ)]

Hello, donc voici plus simple
Bruno

Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 And Not TextBox4 Like "*,*" Then KeyAscii = 44: Exit Sub
If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub