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
Jacques93
Bonjour Florian,
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case 48 To 57, 45 Exit Sub Case Else Beep KeyAscii = 0 End Select End Sub
'Asc("-") = 45
'Asc("0") = 48 'Asc("1") = 49 '... 'Asc("9") = 57
Bonsoir Je souhaite autoriser la saisie dans un textbox sur un userform uniquement de chiffres ainsi que de tirets - Merci beaucoup Flo riant
-- Cordialement,
Jacques.
Bonjour Florian,
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57, 45
Exit Sub
Case Else
Beep
KeyAscii = 0
End Select
End Sub
'Asc("-") = 45
'Asc("0") = 48
'Asc("1") = 49
'...
'Asc("9") = 57
Bonsoir
Je souhaite autoriser la saisie dans un textbox sur un userform
uniquement de chiffres ainsi que de tirets -
Merci beaucoup
Flo riant
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case 48 To 57, 45 Exit Sub Case Else Beep KeyAscii = 0 End Select End Sub
'Asc("-") = 45
'Asc("0") = 48 'Asc("1") = 49 '... 'Asc("9") = 57
Bonsoir Je souhaite autoriser la saisie dans un textbox sur un userform uniquement de chiffres ainsi que de tirets - Merci beaucoup Flo riant
-- Cordialement,
Jacques.
Florian
Merci beaucoup Jacques93 c'est vraiment très sympa de ta part Flo riant
"Jacques93" a écrit dans le message de news:
Bonjour Florian,
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case 48 To 57, 45 Exit Sub Case Else Beep KeyAscii = 0 End Select End Sub
'Asc("-") = 45
'Asc("0") = 48 'Asc("1") = 49 '... 'Asc("9") = 57
Bonsoir Je souhaite autoriser la saisie dans un textbox sur un userform uniquement de chiffres ainsi que de tirets - Merci beaucoup Flo riant
-- Cordialement,
Jacques.
Merci beaucoup Jacques93
c'est vraiment très sympa de ta part
Flo riant
"Jacques93" <jacques.le-gocNO@PUBwouanadoo.fr> a écrit dans le message de
news: eUe9vvmfFHA.3936@TK2MSFTNGP14.phx.gbl...
Bonjour Florian,
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57, 45
Exit Sub
Case Else
Beep
KeyAscii = 0
End Select
End Sub
'Asc("-") = 45
'Asc("0") = 48
'Asc("1") = 49
'...
'Asc("9") = 57
Bonsoir
Je souhaite autoriser la saisie dans un textbox sur un userform
uniquement de chiffres ainsi que de tirets -
Merci beaucoup
Flo riant
Merci beaucoup Jacques93 c'est vraiment très sympa de ta part Flo riant
"Jacques93" a écrit dans le message de news:
Bonjour Florian,
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case 48 To 57, 45 Exit Sub Case Else Beep KeyAscii = 0 End Select End Sub
'Asc("-") = 45
'Asc("0") = 48 'Asc("1") = 49 '... 'Asc("9") = 57
Bonsoir Je souhaite autoriser la saisie dans un textbox sur un userform uniquement de chiffres ainsi que de tirets - Merci beaucoup Flo riant
