Microsoft 365 séparer une colonne au niveau d'une série de chiffres

[noob-excel]

bonsoir a tous, j'espère que tout le monde va bien,
s'il vous plait si une personne pourrait m'indiquer comment je peux séparer la colonne avant le code postale c'est a dire une série de 5 chiffres ( ils ne sont pas parfaitement aligné donc c'est dead pour la conversion des données.

Un grand merci par avance.

 

[sylvanu]

Bonjour Noob-Excel, et bienvenu sur XLD,
Préférez toujours un fichier à une image, c'est plus exploitable directement sans avoir à ressaisir.
Un essai en PJ avec cette petite fonction perso :

Function CodPost(C$)
    For N = 1 To Len(C) - 4
        If IsNumeric(Mid(C, N, 1)) And IsNumeric(Mid(C, N, 5)) Then
            CodPost = Mid(C, N, 5)
            Exit Function
        End If
    Next N
End Function

 

[Phil69970]

Bonjour @noob-excel , Sylvain

J'ai ça dans mes cartons .....

*Merci de ton retour

@Phil69970

 

[job75]

Bonjour à tous,

@sylvanu il est plus sûr de remplacer :

If IsNumeric(Mid(C, N, 1)) And IsNumeric(Mid(C, N, 5)) Then

par :

If Mid(C, N, 5) Like "#####" Then

A+

 

[job75]

Une macro qui utilise les expressions régulières :

Sub CodePostal()
Dim o As Object, tablo, i&, a
Set o = CreateObject("vbscript.regexp")
o.Global = True
o.Pattern = "\d{5}"
With [A1].CurrentRegion.Resize(, 2)
    tablo = .Value
    For i = 1 To UBound(tablo)
        Set a = o.Execute(tablo(i, 1))
        If a.Count Then tablo(i, 2) = a(0) Else tablo(i, 2) = ""
    Next
    .Value = tablo
End With
End Sub

Le code postal est restitué en colonne B.