Chiffres dans TextBox
Bonjour,
Dans une TextBox, je souhaite que l'utilisateur ne puisse saisir que des chiffres.
J'utilise donc le code suivant qui fonctionne bien "à moitié".
Private Sub TextBox_chiffre_Change()
If Not IsNumeric(TextBox_chiffre) Then
MsgBox "Vous ne pouvez saisir que des chiffres", vbExclamation, "Erreur"
Exit Sub
End If
End Sub
En effet lorsque j'efface la mauvaise saisie et que la TextBox se retrouve vide le message d'erreur revient.
Je souhaiterai que cette TextBox accepte donc d'être vide et de n'accepter que les chiffres.
Auriez-vous un bout de code à ajouter au mien pour accepter que la TextBox soit vide ?
En vous remerciant par avance.
Bonne journée.
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("1234567890,", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End SubBonjour,
Dans une TextBox, je souhaite que l'utilisateur ne puisse saisir que des chiffres.
J'utilise donc le code suivant qui fonctionne bien "à moitié".
Private Sub TextBox_chiffre_Change()
If Not IsNumeric(TextBox_chiffre) Then
MsgBox "Vous ne pouvez saisir que des chiffres", vbExclamation, "Erreur"
Exit Sub
End If
End Sub
En effet lorsque j'efface la mauvaise saisie et que la TextBox se retrouve vide le message d'erreur revient.
Je souhaiterai que cette TextBox accepte donc d'être vide et de n'accepter que les chiffres.
Auriez-vous un bout de code à ajouter au mien pour accepter que la TextBox soit vide ?
En vous remerciant par avance.
Bonne journée.
En effet c'est toujours enbêtant de lancer une vérification de textbox pendant la frappe ou la modification de la saisie.
Personnellement la vérification du contenu des textbox je préfère la lancer avec le bouton Valider saisie juste avant que les
données ne soient validées dans la feuilles excel.
au mieux quand la personne qui saisie passe à une autre textbox.
Private Sub TextBox_chiffre_afterupdate()