bonjour,
dans un userform, j'ai une zone de texte qui doit contenir du texte
seulement.
j'utilise la formule dans la sub txtPrenom_Change()
If IsNumeric(txtPrenom.Value) Then SendKeys "{BACKSPACE}"
Mais voilà, si je saisi en premier un caractère texte, rien ne m'empêche de
saisir un numérique ensuite !...
Comment vérifier toutes les frappes pour éviter cela ??
Casse-tête ??
Merci bcp.
Cordialement.
Eliot.
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
EliotNaiss
RE, j'ai trouvé en écrivant ceci : If IsNumeric(Right(txtPrenom.Value, 1)) Then SendKeys "{BACKSPACE}" je suppose qu'il n'y pas mieux ? Eliot "EliotNaiss" a écrit dans le message de news:
bonjour, dans un userform, j'ai une zone de texte qui doit contenir du texte seulement. j'utilise la formule dans la sub txtPrenom_Change() If IsNumeric(txtPrenom.Value) Then SendKeys "{BACKSPACE}" Mais voilà, si je saisi en premier un caractère texte, rien ne m'empêche de saisir un numérique ensuite !... Comment vérifier toutes les frappes pour éviter cela ?? Casse-tête ?? Merci bcp. Cordialement. Eliot.
RE,
j'ai trouvé en écrivant ceci :
If IsNumeric(Right(txtPrenom.Value, 1)) Then SendKeys "{BACKSPACE}"
je suppose qu'il n'y pas mieux ?
Eliot
"EliotNaiss" <personne@microsoft.com> a écrit dans le message de news:
ujV7opA4FHA.3000@TK2MSFTNGP12.phx.gbl...
bonjour,
dans un userform, j'ai une zone de texte qui doit contenir du texte
seulement.
j'utilise la formule dans la sub txtPrenom_Change()
If IsNumeric(txtPrenom.Value) Then SendKeys "{BACKSPACE}"
Mais voilà, si je saisi en premier un caractère texte, rien ne m'empêche
de saisir un numérique ensuite !...
Comment vérifier toutes les frappes pour éviter cela ??
Casse-tête ??
Merci bcp.
Cordialement.
Eliot.
RE, j'ai trouvé en écrivant ceci : If IsNumeric(Right(txtPrenom.Value, 1)) Then SendKeys "{BACKSPACE}" je suppose qu'il n'y pas mieux ? Eliot "EliotNaiss" a écrit dans le message de news:
bonjour, dans un userform, j'ai une zone de texte qui doit contenir du texte seulement. j'utilise la formule dans la sub txtPrenom_Change() If IsNumeric(txtPrenom.Value) Then SendKeys "{BACKSPACE}" Mais voilà, si je saisi en premier un caractère texte, rien ne m'empêche de saisir un numérique ensuite !... Comment vérifier toutes les frappes pour éviter cela ?? Casse-tête ?? Merci bcp. Cordialement. Eliot.
Jacques93
Bjour EliotNaiss,
Essaie :
Private Sub txtPrenom_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case 48 To 57 ' 0 à 9 KeyAscii = 0 Beep End Select End Sub
bonjour, dans un userform, j'ai une zone de texte qui doit contenir du texte seulement. j'utilise la formule dans la sub txtPrenom_Change() If IsNumeric(txtPrenom.Value) Then SendKeys "{BACKSPACE}" Mais voilà, si je saisi en premier un caractère texte, rien ne m'empêche de saisir un numérique ensuite !... Comment vérifier toutes les frappes pour éviter cela ?? Casse-tête ?? Merci bcp. Cordialement. Eliot.
-- Cordialement,
Jacques.
Bjour EliotNaiss,
Essaie :
Private Sub txtPrenom_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57 ' 0 à 9
KeyAscii = 0
Beep
End Select
End Sub
bonjour,
dans un userform, j'ai une zone de texte qui doit contenir du texte
seulement.
j'utilise la formule dans la sub txtPrenom_Change()
If IsNumeric(txtPrenom.Value) Then SendKeys "{BACKSPACE}"
Mais voilà, si je saisi en premier un caractère texte, rien ne m'empêche de
saisir un numérique ensuite !...
Comment vérifier toutes les frappes pour éviter cela ??
Casse-tête ??
Merci bcp.
Cordialement.
Eliot.
Private Sub txtPrenom_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case 48 To 57 ' 0 à 9 KeyAscii = 0 Beep End Select End Sub
bonjour, dans un userform, j'ai une zone de texte qui doit contenir du texte seulement. j'utilise la formule dans la sub txtPrenom_Change() If IsNumeric(txtPrenom.Value) Then SendKeys "{BACKSPACE}" Mais voilà, si je saisi en premier un caractère texte, rien ne m'empêche de saisir un numérique ensuite !... Comment vérifier toutes les frappes pour éviter cela ?? Casse-tête ?? Merci bcp. Cordialement. Eliot.
-- Cordialement,
Jacques.
EliotNaiss
bsoir Jacques93, cette soluce est bonne aussi, je vais voir. merci Eliot "Jacques93" a écrit dans le message de news:
Bjour EliotNaiss,
Essaie :
Private Sub txtPrenom_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case 48 To 57 ' 0 à 9 KeyAscii = 0 Beep End Select End Sub
bonjour, dans un userform, j'ai une zone de texte qui doit contenir du texte seulement. j'utilise la formule dans la sub txtPrenom_Change() If IsNumeric(txtPrenom.Value) Then SendKeys "{BACKSPACE}" Mais voilà, si je saisi en premier un caractère texte, rien ne m'empêche de saisir un numérique ensuite !... Comment vérifier toutes les frappes pour éviter cela ?? Casse-tête ?? Merci bcp. Cordialement. Eliot.
-- Cordialement,
Jacques.
bsoir Jacques93,
cette soluce est bonne aussi, je vais voir.
merci
Eliot
"Jacques93" <jacques@NoSpam> a écrit dans le message de news:
uF0iStA4FHA.1148@tk2msftngp13.phx.gbl...
Bjour EliotNaiss,
Essaie :
Private Sub txtPrenom_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57 ' 0 à 9
KeyAscii = 0
Beep
End Select
End Sub
bonjour,
dans un userform, j'ai une zone de texte qui doit contenir du texte
seulement.
j'utilise la formule dans la sub txtPrenom_Change()
If IsNumeric(txtPrenom.Value) Then SendKeys "{BACKSPACE}"
Mais voilà, si je saisi en premier un caractère texte, rien ne m'empêche
de saisir un numérique ensuite !...
Comment vérifier toutes les frappes pour éviter cela ??
Casse-tête ??
Merci bcp.
Cordialement.
Eliot.
bsoir Jacques93, cette soluce est bonne aussi, je vais voir. merci Eliot "Jacques93" a écrit dans le message de news:
Bjour EliotNaiss,
Essaie :
Private Sub txtPrenom_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case 48 To 57 ' 0 à 9 KeyAscii = 0 Beep End Select End Sub
bonjour, dans un userform, j'ai une zone de texte qui doit contenir du texte seulement. j'utilise la formule dans la sub txtPrenom_Change() If IsNumeric(txtPrenom.Value) Then SendKeys "{BACKSPACE}" Mais voilà, si je saisi en premier un caractère texte, rien ne m'empêche de saisir un numérique ensuite !... Comment vérifier toutes les frappes pour éviter cela ?? Casse-tête ?? Merci bcp. Cordialement. Eliot.
