XL 2010 Immatriculation

[oliD]

Bonjour,

J'ai des listes de plaques d'immatriculation (avec tiret, sans tiret, ancien et nouveau format d'immat') qui débute en cellule A2, j'aimerais que ce soit le même format en mettant un espace entre les caractères avec du vba.

Voici la liste avec les différents formats.

Est-ce quelqu'un pourrait m'aider?
Merci
Olivier

 

[D.D.]

Bonjour

Comment faire le même format avec l'ancienne et la nouvelle norme ?

 

[job75]

Bonjour oliD, D.D,

Je suppose que le problème est juste de séparer les chiffres des lettres :

Sub Separe()
Dim tablo, i&, x$, j%
With [A1].CurrentRegion.Columns(1)
    .Replace " ", "", xlPart
    .Replace "-", ""
    tablo = .Resize(.Rows.Count + 1) 'matrice, plus rapide, au moins 2 éléments
    For i = 1 To UBound(tablo) - 1
        x = tablo(i, 1)
        For j = Len(x) - 1 To 1 Step -1
            If IsNumeric(Mid(x, j, 1)) And Not IsNumeric(Mid(x, j + 1, 1)) Or _
                Not IsNumeric(Mid(x, j, 1)) And IsNumeric(Mid(x, j + 1, 1)) Then x = Left(x, j) & " " & Mid(x, j + 1)
        Next j
        tablo(i, 1) = x
    Next i
    .Value = tablo
End With
End Sub

la liste des immatriculations étant en colonne A, sans cellules vides intermédiaires.

A+