XL 2010 Immatriculation

oliD · 31 Juillet 2019

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. · 31 Juillet 2019

Bonjour

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

job75 · 31 Juillet 2019

Bonjour oliD, D.D,

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

VB:

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+

XL 2010 Immatriculation

oliD

XLDnaute Nouveau

D.D.

XLDnaute Impliqué

job75

XLDnaute Barbatruc

Discussions similaires