Séparation chiffre et lettre d'une adresse dans la même cellule

david84 à dit:

Re
@Ralph45 : sympa que tu t'essaie aux expressions rationnelles ! Le motif initial répondait expressément aux exemples fournis dans le fichier. Maintenant, si tu veux prendre en compte les BIS, TER,... cela donnerait plutôt :

Code:

Function Séparer(Chaine As String) As String
Dim oRegExp As Object
Set oRegExp = CreateObject("vbscript.regexp")


With oRegExp
    .ignorecase = True
    .Pattern = "^(\d+)([A-Z]+\s)(.+)"
    If .test(Chaine) = True Then
        Séparer = .Replace(Chaine, "$1 $2$3")
    Else
        Séparer = Chaine
    End If
End With
End Function

Si tu veux des explications, n'hésite pas à poser des questions.
A+

Cliquez pour agrandir...