XL 2019 controler le nombre de caracteres

[Bruce68]

Private Sub TexVit_exit(ByVal cancel As MSForms.ReturnBoolean)
TexVit.Text = Format(TexVit.Text, "#""-""##""-""##""-""##""-""###""-""###")
        ActiveSheet.Range("H2").Select
     Do Until ActiveCell = Me.ComNom Or ActiveCell = ""
        ActiveCell.Offset(1, 0).Select
     Loop
        If ActiveCell = Me.ComNom.Value Then

        Else
    ActiveSheet.Range("N2").Select
    Do Until ActiveCell = Me.TexVit Or ActiveCell = ""
        ActiveCell.Offset(1, 0).Select
    Loop
    If ActiveCell = Me.TexVit.Value Then
       MsgBox " Le N° carte vitale   " & ActiveCell & "   Existe déjàdans la base"
       Me.TexVit = ""
       Me.TexVit.SetFocus
       Exit Sub
    End If
    End If
End Sub

Dans cette macro je voudrais contrôler si il y a 18 caravctères (1-52-07-67-254-387) pour éviter les erreurs de frappe
Je vous remercie de votre aide

 

[Compte Supprimé 979]

Bonsoir

@Bruce68 Ca vous écorcherais le palais de dire BONJOUR 😡

 

[Bruce68]

Avec toutes mes excuses bonsoir à tous

 

[youky(BJ)]

Bonsoir Bruce,
Voici qlq solutions pour faire des Verifs
Pour compter le nbre de caractères si pas 18 caractères
If len(Texvit)<> 18 then msgbox "Pas bon"
Pour connaitre le caractère placé en 2ème position
if mid(Texvit,2,1)<> "-" then msgbox"Pas bon"
ci-dessus 2 est la position du caractère et 1 combien de caractères
et pour connaitre si "-" est en position 5
if mid(Texvit,5,1)<> "-" then msgbox"Pas bon"
Bruno

 

[Bruce68]

Bonsoir Bruno
La solution 1 me convient très bien.
Merci et bonne soirée à tous

 

[patricktoulon]

Bonjour
je te propose même l'aide a la saisie avec mask de saisie
tu n'a qu'a taper les chiffres (tu t'occupe de rien d'autre)
ci joint quelques exemples
secubox
datebox
phonebox
etc....