Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Vincent,
Voici une façon de faire :
'--------------------- Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyPress < 48 And KeyPress > 57 Then KeyPress = 0 End If
End Sub '---------------------
Salutations!
"Vincent" a écrit dans le message de news:e% J'ai un textbox. Comment faire afin qu'un utilisateur saisisse uniquement des valeurs numériques. la même chose pour des dates Merci Vincent
Bonjour Vincent,
Voici une façon de faire :
'---------------------
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyPress < 48 And KeyPress > 57 Then
KeyPress = 0
End If
End Sub
'---------------------
Salutations!
"Vincent" <V.herlat@tiscali.fr> a écrit dans le message de news:e%23ZoP8hsEHA.2948@TK2MSFTNGP12.phx.gbl...
J'ai un textbox.
Comment faire afin qu'un utilisateur saisisse uniquement
des valeurs numériques.
la même chose pour des dates
Merci
Vincent
'--------------------- Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyPress < 48 And KeyPress > 57 Then KeyPress = 0 End If
End Sub '---------------------
Salutations!
"Vincent" a écrit dans le message de news:e% J'ai un textbox. Comment faire afin qu'un utilisateur saisisse uniquement des valeurs numériques. la même chose pour des dates Merci Vincent
Vincent
Bonsoir Merci beaucoup, mais peux-tu m'expliquer cela ? Vincent
"michdenis" a écrit dans le message de news:%
Bonjour Vincent,
Voici une façon de faire :
'--------------------- Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyPress < 48 And KeyPress > 57 Then KeyPress = 0 End If
End Sub '---------------------
Salutations!
"Vincent" a écrit dans le message de news:e%
J'ai un textbox. Comment faire afin qu'un utilisateur saisisse uniquement des valeurs numériques. la même chose pour des dates Merci Vincent
Bonsoir
Merci beaucoup, mais peux-tu m'expliquer cela ?
Vincent
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:%23bbyTJisEHA.3076@TK2MSFTNGP09.phx.gbl...
Bonjour Vincent,
Voici une façon de faire :
'---------------------
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyPress < 48 And KeyPress > 57 Then
KeyPress = 0
End If
End Sub
'---------------------
Salutations!
"Vincent" <V.herlat@tiscali.fr> a écrit dans le message de
news:e%23ZoP8hsEHA.2948@TK2MSFTNGP12.phx.gbl...
J'ai un textbox.
Comment faire afin qu'un utilisateur saisisse uniquement
des valeurs numériques.
la même chose pour des dates
Merci
Vincent
Bonsoir Merci beaucoup, mais peux-tu m'expliquer cela ? Vincent
"michdenis" a écrit dans le message de news:%
Bonjour Vincent,
Voici une façon de faire :
'--------------------- Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyPress < 48 And KeyPress > 57 Then KeyPress = 0 End If
End Sub '---------------------
Salutations!
"Vincent" a écrit dans le message de news:e%
J'ai un textbox. Comment faire afin qu'un utilisateur saisisse uniquement des valeurs numériques. la même chose pour des dates Merci Vincent
michdenis
Bonjour Vincent
Keyascii représente la valeur ascii de chaque caractère que tu tapes dans le textbox.
L'événement KeyPress est associé à chacune des touches du clavier. En fait, le caractère(ta touche) est inscrite dans le textbox lors la touche revient à sa position normale . (de enfoncer à l'état normal). La petite procédure soumise intercepte la valeur du caractère, la test et s'assure que si cette valeur ne représente pas un chiffre (valeur ascii de 0 = 48 et valeur ascii de 9 = 57) c'est à dire situer entre les bornes 48 et 57, on remplace la valeur ascii de ta touche enfoncée par 0. Ainsi rien ne s'inscrit dans la cellule.
Dans l'exemple soumis, il y a une petite erreur, tu dois utiliser le OU
If KeyPress < 48 Or KeyPress > 57 Then KeyPress = 0 End If
Salutations!
"Vincent" a écrit dans le message de news: Bonsoir Merci beaucoup, mais peux-tu m'expliquer cela ? Vincent
"michdenis" a écrit dans le message de news:%
Bonjour Vincent,
Voici une façon de faire :
'--------------------- Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyPress < 48 And KeyPress > 57 Then KeyPress = 0 End If
End Sub '---------------------
Salutations!
"Vincent" a écrit dans le message de news:e%
J'ai un textbox. Comment faire afin qu'un utilisateur saisisse uniquement des valeurs numériques. la même chose pour des dates Merci Vincent
Bonjour Vincent
Keyascii représente la valeur ascii de chaque caractère que tu tapes dans le textbox.
L'événement KeyPress est associé à chacune des touches du clavier. En fait, le caractère(ta touche) est inscrite dans le
textbox lors la touche revient à sa position normale . (de enfoncer à l'état normal). La petite procédure soumise intercepte
la valeur du caractère, la test et s'assure que si cette valeur ne représente pas un chiffre (valeur ascii de 0 = 48 et
valeur ascii de 9 = 57) c'est à dire situer entre les bornes 48 et 57, on remplace la valeur ascii de ta touche enfoncée par
0. Ainsi rien ne s'inscrit dans la cellule.
Dans l'exemple soumis, il y a une petite erreur, tu dois utiliser le OU
If KeyPress < 48 Or KeyPress > 57 Then
KeyPress = 0
End If
Salutations!
"Vincent" <V.herlat@tiscali.fr> a écrit dans le message de news:e2Ky4PisEHA.2948@TK2MSFTNGP12.phx.gbl...
Bonsoir
Merci beaucoup, mais peux-tu m'expliquer cela ?
Vincent
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:%23bbyTJisEHA.3076@TK2MSFTNGP09.phx.gbl...
Bonjour Vincent,
Voici une façon de faire :
'---------------------
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyPress < 48 And KeyPress > 57 Then
KeyPress = 0
End If
End Sub
'---------------------
Salutations!
"Vincent" <V.herlat@tiscali.fr> a écrit dans le message de
news:e%23ZoP8hsEHA.2948@TK2MSFTNGP12.phx.gbl...
J'ai un textbox.
Comment faire afin qu'un utilisateur saisisse uniquement
des valeurs numériques.
la même chose pour des dates
Merci
Vincent
Keyascii représente la valeur ascii de chaque caractère que tu tapes dans le textbox.
L'événement KeyPress est associé à chacune des touches du clavier. En fait, le caractère(ta touche) est inscrite dans le textbox lors la touche revient à sa position normale . (de enfoncer à l'état normal). La petite procédure soumise intercepte la valeur du caractère, la test et s'assure que si cette valeur ne représente pas un chiffre (valeur ascii de 0 = 48 et valeur ascii de 9 = 57) c'est à dire situer entre les bornes 48 et 57, on remplace la valeur ascii de ta touche enfoncée par 0. Ainsi rien ne s'inscrit dans la cellule.
Dans l'exemple soumis, il y a une petite erreur, tu dois utiliser le OU
If KeyPress < 48 Or KeyPress > 57 Then KeyPress = 0 End If
Salutations!
"Vincent" a écrit dans le message de news: Bonsoir Merci beaucoup, mais peux-tu m'expliquer cela ? Vincent
"michdenis" a écrit dans le message de news:%
Bonjour Vincent,
Voici une façon de faire :
'--------------------- Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyPress < 48 And KeyPress > 57 Then KeyPress = 0 End If
End Sub '---------------------
Salutations!
"Vincent" a écrit dans le message de news:e%
J'ai un textbox. Comment faire afin qu'un utilisateur saisisse uniquement des valeurs numériques. la même chose pour des dates Merci Vincent
