Réorganiser une adresse en 2 ou 3 colonnes

[Mel BF]

Bonjour,

J'ai extrait de ma base de données un champ adresse. Je voudrais réorganiser ce champ en 2 colonnes ou 3 colonnes distinctes (Rue, CP Ville ou Rue, CP, Ville).

Cependant, le code postal est collé au nom de rue (pas d'espace).

Exemples : 10 RUE AGAR75016 PARIS, 16 bis rue Floreal93170 BAGNOLET, ...

Je cherche depuis ce matin , j'ai essayé pas mal de formules : DROITE, GAUCHE, STXT, CHERCHE ... mais rien ne fonctionne.

Help please !!!

Merci d'avance
😀

 

[pierrejean]

Re : Réorganiser une adresse en 2 ou 3 colonnes

Bonjour Mel BF

Un essai

 

[Mel BF]

Re : Réorganiser une adresse en 2 ou 3 colonnes

Oh super !!! Vous êtes merveilleux 😀
Merci Merci

 

[david84]

Re : Réorganiser une adresse en 2 ou 3 colonnes

Bonjour, salut pierrejean,
ci-joint une fonction basée sur l'utilisation d'une expression rationnelle à tester :

Function MelBF$(c$, r As Byte)
Dim oRegExp As Object, oMatches As Object
Set oRegExp = CreateObject("vbscript.regexp")
oRegExp.Pattern = "(.+)(\d{5}.*)"
If oRegExp.Test(c) = True Then _
Set oMatches = oRegExp.Execute(c): MelBF = oMatches.Item(0).submatches(r - 1)
End Function

Utilisation de la fonction : 2 arguments (la chaîne à tester et le rang à préciser)
En B2 rentrer

=MelBF($A2;COLONNES($A:A))

et tirer la fonction vers la colonne C et vers le bas.
A+