XL 2019 Format textbox pour immatriculation voiture

natorp · 8 Octobre 2024

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

job75 · 8 Octobre 2024

Bonjour natorp,

Teste cette macro dans l'UserForm :

VB:

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 · 8 Octobre 2024

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

VB:

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 · 8 Octobre 2024

Bonjour natorp,

Teste cette macro dans l'UserForm :

VB:

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 · 8 Octobre 2024

job75 à dit:

Bonjour natorp,

Teste cette macro dans l'UserForm :

VB:

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 · 8 Octobre 2024

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

VB:

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 · 8 Octobre 2024

job75 à dit:

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

VB:

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 · 8 Octobre 2024

job75 à dit:

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

VB:

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 · 8 Octobre 2024

natorp à dit:
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 · 8 Octobre 2024

job75 à dit:
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

XL 2019 Format textbox pour immatriculation voiture

natorp

XLDnaute Barbatruc

Pièces jointes

job75

natorp

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

natorp

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

natorp

XLDnaute Barbatruc

natorp

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

natorp

XLDnaute Barbatruc

Discussions similaires