XL 2019 Format textbox pour immatriculation voiture

[natorp]

Bonjour à toutes et tous

J'aimerais tester la saisie de l'immatriculation du Textbox1
Si le premier caractère saisi est un chiffre alors le format sera : ####-##-##
Si le premier caractère saisi est une lettre alors le format sera : ##-###-##

Est-ce possible, s'il vous plait ?

Cordialement, Gérard

 

[natorp]

J'ai testé ça mais ça ne fonctionne pas :

Private Sub TextBox1_Change()
If Not TextBox1 Like "[A-Z][A-Z][0-9][0-9][0-9][A-Z][A-Z]" Then
Me.TextBox1.Value = Format(TextBox1.Value, "####""-""##""-""##")
Else
Me.TextBox1.Value = Format(TextBox1.Value, "##""-""###""-""##")
End If
End Sub

 

[job75]

Bonjour natorp,

Teste cette macro dans l'UserForm :

Private Sub TextBox1_Change()
Dim x$
x = TextBox1
x = Replace(x, "-", "")
If IsNumeric(Left(x, 1)) Then
    If Len(x) >= 4 Then x = Application.Replace(x, 5, 0, "-")
    If Len(x) >= 7 Then x = Application.Replace(x, 8, 0, "-")
    x = Left(x, 10)
Else
    If Len(x) >= 2 Then x = Application.Replace(x, 3, 0, "-")
    If Len(x) >= 6 Then x = Application.Replace(x, 7, 0, "-")
    x = Left(x, 9)
End If
TextBox1 = UCase(x)
End Sub

A+

 

[natorp]

Bonjour natorp,

Teste cette macro dans l'UserForm :

Private Sub TextBox1_Change()
Dim x$
x = TextBox1
x = Replace(x, "-", "")
If IsNumeric(Left(x, 1)) Then
    If Len(x) >= 4 Then x = Application.Replace(x, 5, 0, "-")
    If Len(x) >= 7 Then x = Application.Replace(x, 8, 0, "-")
    x = Left(x, 10)
Else
    If Len(x) >= 2 Then x = Application.Replace(x, 3, 0, "-")
    If Len(x) >= 6 Then x = Application.Replace(x, 7, 0, "-")
    x = Left(x, 9)
End If
TextBox1 = UCase(x)
End Sub

A+

C'est parfait ! merci beaucoup
Bonne journée, Gérard

 

[job75]

Teste aussi ce code avec une MsgBox si la succession des chiffres et des lettres est incorrecte :

Private Sub TextBox1_Change()
Dim x$, mes
x = TextBox1
x = Replace(x, "-", "")
If IsNumeric(Left(x, 1)) Then
    If Len(x) > 4 Then x = Application.Replace(x, 5, 0, "-")
    If Len(x) > 7 Then x = Application.Replace(x, 8, 0, "-")
    x = UCase(Left(x, 10))
    If Len(x) = 10 Then If Not x Like "####-[A-Z][A-Z]-##" Then mes = "Le format doit être 0000-AA-00"
Else
    If Len(x) > 2 Then x = Application.Replace(x, 3, 0, "-")
    If Len(x) > 6 Then x = Application.Replace(x, 7, 0, "-")
    x = UCase(Left(x, 9))
    If Len(x) = 9 Then If Not x Like "[A-Z][A-Z]-###-[A-Z][A-Z]" Then mes = "Le format doit être AA-000-AA"
End If
TextBox1 = x
If mes <> "" Then MsgBox mes
End Sub

 

[natorp]

Teste aussi ce code avec une MsgBox si la succession des chiffres et des lettres est incorrecte :

Private Sub TextBox1_Change()
Dim x$, mes
x = TextBox1
x = Replace(x, "-", "")
If IsNumeric(Left(x, 1)) Then
    If Len(x) > 4 Then x = Application.Replace(x, 5, 0, "-")
    If Len(x) > 7 Then x = Application.Replace(x, 8, 0, "-")
    x = UCase(Left(x, 10))
    If Len(x) = 10 Then If Not x Like "####-[A-Z][A-Z]-##" Then mes = "Le format doit être 0000-AA-00"
Else
    If Len(x) > 2 Then x = Application.Replace(x, 3, 0, "-")
    If Len(x) > 6 Then x = Application.Replace(x, 7, 0, "-")
    x = UCase(Left(x, 9))
    If Len(x) = 9 Then If Not x Like "[A-Z][A-Z]-###-[A-Z][A-Z]" Then mes = "Le format doit être AA-000-AA"
End If
TextBox1 = x
If mes <> "" Then MsgBox mes
End Sub

Merci

 

[natorp]

Teste aussi ce code avec une MsgBox si la succession des chiffres et des lettres est incorrecte :

Private Sub TextBox1_Change()
Dim x$, mes
x = TextBox1
x = Replace(x, "-", "")
If IsNumeric(Left(x, 1)) Then
    If Len(x) > 4 Then x = Application.Replace(x, 5, 0, "-")
    If Len(x) > 7 Then x = Application.Replace(x, 8, 0, "-")
    x = UCase(Left(x, 10))
    If Len(x) = 10 Then If Not x Like "####-[A-Z][A-Z]-##" Then mes = "Le format doit être 0000-AA-00"
Else
    If Len(x) > 2 Then x = Application.Replace(x, 3, 0, "-")
    If Len(x) > 6 Then x = Application.Replace(x, 7, 0, "-")
    x = UCase(Left(x, 9))
    If Len(x) = 9 Then If Not x Like "[A-Z][A-Z]-###-[A-Z][A-Z]" Then mes = "Le format doit être AA-000-AA"
End If
TextBox1 = x
If mes <> "" Then MsgBox mes
End Sub

Je vais abuser :
Est-il possible de prévoir une immatriculation avec 2, 3 ou 4 chiffres en premier tronçon (anicenne immatriculation) ?
1-AS-80
12-AS-80
123-AS-80
Merci, cordialement, Gérard

 

[job75]

Est-il possible de prévoir une immatriculation avec 2, 3 ou 4 chiffres en premier tronçon (anicenne immatriculation) ?

Oui mais dans ce cas le 1er tiret devra être entré manuellement.

 

[natorp]

Oui mais dans ce cas le 1er tiret devra être entré manuellement.

Merci pour ta réponse, je préfère mettre un (ou des zéros) en commençant la saisie
Comme-ça la saisie reste l'enchaînement de l'immatriculation sans se poser de questions
Merci pour ton aide, cordialement, Gérard