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
Daniel
Bonsoir. Essaie :
Private Sub TextBox1_Change() Select Case Asc(Right(TextBox1.Value, 1)) Case 48 To 57, 65 To 90, 97 To 122 Exit Sub Case Else MsgBox "erreur de saisie : " & Right(TextBox1.Value, 1) End Select End Sub
Cordialement. Daniel "Jean" a écrit dans le message de news: 44ad4f33$0$1028$
Bonjour,
J'ai un textbox dans un UserForm. Je veux limiter la saisie aux lettres et au chiffres (c'est le nom d'un fichier).
Comment puis-je faire ?
Jean
Bonsoir.
Essaie :
Private Sub TextBox1_Change()
Select Case Asc(Right(TextBox1.Value, 1))
Case 48 To 57, 65 To 90, 97 To 122
Exit Sub
Case Else
MsgBox "erreur de saisie : " & Right(TextBox1.Value, 1)
End Select
End Sub
Cordialement.
Daniel
"Jean" <jj@free.fr> a écrit dans le message de news:
44ad4f33$0$1028$ba4acef3@news.orange.fr...
Bonjour,
J'ai un textbox dans un UserForm.
Je veux limiter la saisie aux lettres et au chiffres (c'est le nom d'un
fichier).
Private Sub TextBox1_Change() Select Case Asc(Right(TextBox1.Value, 1)) Case 48 To 57, 65 To 90, 97 To 122 Exit Sub Case Else MsgBox "erreur de saisie : " & Right(TextBox1.Value, 1) End Select End Sub
Cordialement. Daniel "Jean" a écrit dans le message de news: 44ad4f33$0$1028$
Bonjour,
J'ai un textbox dans un UserForm. Je veux limiter la saisie aux lettres et au chiffres (c'est le nom d'un fichier).