TextBox : Nombre et type de caractères imposés
Emilie288
-
Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention -
Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Pour ma TextBox1 je veux que l'on renseigne un numéro de SS, donc 15 chiffres.
Actuellement j'ai ce code :
Private Sub textBox1_Change()
On Error Resume Next
If Not IsNumeric(Right(TextBox1, 1)) Then
MsgBox "Saisir des caractères numériques uniquement"
TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
End If
End Sub
Mais donc on peut renseigner 3 chiffres comme 18.
Est-il possible d'imposer la saisie de 15 chiffres ?
Pour ma TextBox1 je veux que l'on renseigne un numéro de SS, donc 15 chiffres.
Actuellement j'ai ce code :
Private Sub textBox1_Change()
On Error Resume Next
If Not IsNumeric(Right(TextBox1, 1)) Then
MsgBox "Saisir des caractères numériques uniquement"
TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
End If
End Sub
Mais donc on peut renseigner 3 chiffres comme 18.
Est-il possible d'imposer la saisie de 15 chiffres ?
A voir également:
- TextBox : Nombre et type de caractères imposés
- Comment concatener plusieurs textbox ✓ - Forum Excel
- Colorer textbox sélectionné ✓ - Forum VB / VBA
- Focus TextBox WPF ✓ - Forum C#
- Erreur sur isdate textbox ✓ - Forum VB / VBA
- Vba textbox date format dd/mm/yyyy ✓ - Forum Excel
3 réponses
Bonjour
ou
Cdlt
Private Sub TextBox1_Change()
On Error Resume Next
If Len(TextBox1) >= 15 Then
TextBox1 = Left(TextBox1, 15)
Exit Sub
End If
If Not IsNumeric(Right(TextBox1, 1)) Then
MsgBox "Saisir des caractères numériques uniquement"
TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
End If
End Sub
ou
Private Sub TextBox1_Change()
On Error Resume Next
TextBox1.MaxLength = 15
If Not IsNumeric(Right(TextBox1, 1)) Then
MsgBox "Saisir des caractères numériques uniquement"
TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
End If
End Sub
Cdlt
Merci pour la réponse.
Ca délimite bien à 15 chiffres, mais je peux aussi n'en mettre que 2,3 ca fonctionne quand même
Ca délimite bien à 15 chiffres, mais je peux aussi n'en mettre que 2,3 ca fonctionne quand même
Re
A copier dans le module de la feuille,
Si la textbox n'est pas complète, le fait de cliquer ailleurs renverra dans la textbox jusqu'au remplissage des 15 chiffres, sauf si on fait un double-clic sur une même cellule, mais à la validation de celle-ci, la textbox sera à nouveau sélectionnée en attente du remplissage complet.
cdlt
A copier dans le module de la feuille,
Private Sub Worksheet_SelectionChange(ByVal sel As Range)
If Len(TextBox1) > 0 And Len(TextBox1) < 15 Then TextBox1.Activate
End Sub
Si la textbox n'est pas complète, le fait de cliquer ailleurs renverra dans la textbox jusqu'au remplissage des 15 chiffres, sauf si on fait un double-clic sur une même cellule, mais à la validation de celle-ci, la textbox sera à nouveau sélectionnée en attente du remplissage complet.
cdlt
