Forcer la saisie chiffre

[roro69]

Bonsoir voici ma question:
Je voudrais que dans une textbox on ne puisse rentrer que des chiffres ;si je rentre du texte soit çà bloque les touches ; soit une msgbox me prévient;
Merci beaucoup pour vos réponses.

 

[jp14]

Re : Forcer la saisie chiffre

Bonjour

Deux solutions

'avec la virgule non valide (entier)
Private Sub textBox1_Change()
    On Error Resume Next
    
    If Not IsNumeric(Right(TextBox1, 1)) Then
        MsgBox "Le caractere saisi n'est pas valide"' a supprimer si nécessaire
        TextBox1 = Left(TextBox1, Len(TextBox1) - 1)' on supprime le dernier caractère
    End If
End Sub

'avec la virgule valide(décimale)
Private Sub textBox1_Change()
    On Error Resume Next
    
    If Not IsNumeric(Right(TextBox1, 1)) And Right(TextBox1, 1) <> "," Then
        MsgBox "Le caractere saisi n'est pas valide"
        TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
    End If
End Sub

A tester
JP

 

[bqtr]

Re : Forcer la saisie chiffre

Bonsoir roro69, jp14

Une autre solution :

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8) Then
        KeyAscii = 0
    End If
End Sub

Là tu ne peux saisir que des chiffres.
Si tu veux autoriser le point ou la virgule :
Le point : KeyAscii = 46
La virgule : KeyAscii = 44


Bonne soirée

 

[roro69]

Re : Forcer la saisie chiffre

Bonsoir Bqtr ,et JP14 ; merci pour vos réponses;
Je prend les deux solutions qui marchent les deux et qui me seront bien utile .
Merci beaucoup