Réorganiser une adresse en 2 ou 3 colonnes

Mel BF

XLDnaute Nouveau
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
:D
 

Pièces jointes

  • Réorganiser Adr.xlsx
    9.5 KB · Affichages: 41

david84

XLDnaute Barbatruc
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 :
Code:
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
Code:
=MelBF($A2;COLONNES($A:A))
et tirer la fonction vers la colonne C et vers le bas.
A+
 

Statistiques des forums

Discussions
315 097
Messages
2 116 186
Membres
112 679
dernier inscrit
Yupanki