Comment créer un format de cellule immatriculation

Bonjour,

Bonjour,

J’ai un tableau Excel dans lequel je souhaite une colonnes dédiée aux immatriculation au format AA-111-AA.

Malheureusement, je ne parviens pas à renseigner ce format dans la personnalisation du format des cellules.

Quelqu’un pourrait-il m’aider s’il vous plaît.

par avance merci beaucoup .

Bonjour,

L'immatriculation de quoi ?

Que vas-tu taper dans la cellule ?

Cordialement

Bonjour,

Les immatriculations véhicules type AA-111AA.

Impossible de mettre le fichier via mon téléphone désolée .

Bonjour Alexe645698, R@chid, le forum,

Bienvenue Alexe645698. Voici une tentative par macro si vous n'êtes pas réfractaire.

Testez le classeur ci-joint ou vous trouverez un "guide" pour placer le code dans votre classeur.

Bien sûr, vous devez accepter les macros pour que cela fonctionne.

Cordialement.

AL 22

Bonsoir le forum, Alexe645698, R@chid, AL 22,

Trouvé sur un autre forum par macro, car au format de cellule ce n'est pas possible.

Mettre les immatriculations à partir de B2 au format aa111aa transformation automatique.

Dans un module standard

Public Function PLAQUE(x As String)

Dim V As New Collection
x = Replace(x, " ", "")
For i = 1 To Len(x)
    y = Mid(x, i, 1)
    If Not IsNumeric(y) Then
        V.Add CStr(y)
        Else
        V.Add CInt(y)
    End If
Next
For j = 1 To V.Count
    If TypeName(V.Item(j)) <> TypeName(V.Item(j + 1)) Then
        V.Add "-", , , j
        j = j + 1
    End If
Next
For k = 1 To V.Count
    z = z & V.Item(k)
Next
PLAQUE = UCase(z)

End Function

Puis dans le module de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Anc As String, Nouv As String
If Target.Column = 2 And Target.Row > 1 And Target.Count = 1 Then
    Anc = Target
    Nouv = PLAQUE(Anc)
    Application.EnableEvents = False
    Target = Nouv
End If
    Application.EnableEvents = True

End Sub

Ci joint un fichier exemple:

Cordialement.

Bonsoir,

Si le format est toujours le même : [2 caractères] - [3 caractères] - [2 caractères]

Vous pouvez tester cette formule :

=GAUCHE(A1;2)&"-"&GAUCHE(DROITE(A1;5);3)&"-"&DROITE(A1;2)

en supposant que la plaque d'immatriculation est dans la cellule A1

Cordialement

Bonsoir,

Merci à tous/toutes pour votre aide, je teste cela sur ordi demain et je reviens vers vous.