TextBox : Nombre et type de caractères imposés

Fermé

Emilie288 - 19 avril 2016 à 11:40
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 - 19 avril 2016 à 14:24

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 ?

A voir également:

TextBox : Nombre et type de caractères imposés
Vba textbox date format dd/mm/yyyy ✓ - Forum Excel
Textbox date ✓ - Forum VB / VBA
Format textbox vba ✓ - Forum VB / VBA
Textbox backcolor - Forum VB / VBA
Vba textbox ✓ - Forum VB / VBA

3 réponses

Réponse 1 / 3

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
Modifié par Frenchie83 le 19/04/2016 à 11:55

Bonjour

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

 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

Réponse 2 / 3

Linoa85
19 avril 2016 à 11:57

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

Réponse 3 / 3

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
19 avril 2016 à 14:24

Re
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

Discussions similaires

[VBA] format de date dans textbox

Récupérer la valeur d'un textbox a partir d'un formulaire différ

TextBox au format date

[Excel-VBA] format date

propriété du textbox en VB

Discussions similaires

Newsletters