Séparer l'adresse, le code postal et la ville ?

[abouam]

Bonjour et BONNE et HEUREUSE ANNÉE à vous tous !

je possède un tabelau qui contient des lignes comme suit :

rue de Siam 07100 Brest

Je souhaite avoir 3 colonnes qui auront comme titre :
Adresse
Code postale
Ville

Donc une extraction de données.
Voici mon fichier exemple
Merci

 

[ROGER2327]

Re : Séparer l'adresse, le code postal et la ville ?

Re…

Bonjour à tous, bonjour Roger2327

Pour notre culture, pourquoi ce "décervelage" en bas de ton post ?

Merci

@ plus

Tibo a répondu ce qu'il faut. Esprit fin et perspicace, il a saisi qu'il s'agit d'un affaire très-sérieuse, et je l'en félicite.​

Bonne soirée.

ROGER2327
#4874

Mardi 17 Décervelage 138 (Saint Mandrin, poète et philosophe, SQ)
25 Nivôse An CCXIX
2011-W02-5T15:41:06Z

 

[CISCO]

Re : Séparer l'adresse, le code postal et la ville ?

Bonsoir

Merci Tibo et Roger2327.

Je ne savais pas qu'il y avait un calendrier 'pataphysique.

@ plus

 

[ROGER2327]

Re : Séparer l'adresse, le code postal et la ville ?

Re…

Bonsoir

Merci Tibo et Roger2327.

Je ne savais pas qu'il y avait un calendrier 'pataphysique.

@ plus

Voyez, par exemple,

ROGER2327
#4876

Mardi 17 Décervelage 138 (Saint Mandrin, poète et philosophe, SQ)
25 Nivôse An CCXIX
2011-W02-5T18:15:12Z

 

[JNP]

Re : Séparer l'adresse, le code postal et la ville ?

Bonsoir le fil ,
Avec beaucoup de retard et seulement pour le fun (étonné que david84 n'ai pas essayé ...).
Une possibilité RegExp

Dim Match, Matches
Function ExtractionCP(Cellule As Range) As String
Application.Volatile
With CreateObject("vbscript.regexp")
.Global = True
.Pattern = " \d{5} "
Set Matches = .Execute(Cellule.Text)
If Matches.Count >= 1 Then ExtractionCP = Trim(Matches(0))
End With
End Function
Function ExtractionRue(Cellule As Range) As String
Application.Volatile
With CreateObject("vbscript.regexp")
.Global = True
.Pattern = "^.* \d{5} "
Set Matches = .Execute(Cellule.Text)
If Matches.Count >= 1 Then ExtractionRue = Left(Matches(0), Len(Matches(0)) - 7)
End With
End Function
Function ExtractionVille(Cellule As Range) As String
Application.Volatile
With CreateObject("vbscript.regexp")
.Global = True
.Pattern = " \d{5} .*$"
Set Matches = .Execute(Cellule.Text)
If Matches.Count >= 1 Then ExtractionVille = Right(Matches(0), Len(Matches(0)) - 7)
End With
End Function

Voir PJ .
Bonne soirée

 

[JNP]

Re : Séparer l'adresse, le code postal et la ville ?

Bonjour le fil ,
Encore pour le fun, je me suis dit : et si y en a un qui habite "Rue des 50000 Totos 13000 Marseille" ...
J'ai donc réétudié mes RegExp et vous propose une version qui le supporte correctement :

Dim Match, Matches
Function ExtractionCP(Cellule As Range) As String
Application.Volatile
With CreateObject("vbscript.regexp")
.Global = True
.Pattern = " \d{5} "
Set Matches = .Execute(Cellule.Text)
If Matches.Count >= 1 Then ExtractionCP = Trim(Matches(Matches.Count - 1))
End With
End Function
Function ExtractionRue(Cellule As Range) As String
Application.Volatile
With CreateObject("vbscript.regexp")
.Global = True
.Pattern = "^.* \d{5} "
Set Matches = .Execute(Cellule.Text)
If Matches.Count >= 1 Then ExtractionRue = Left(Matches(0), Len(Matches(0)) - 7)
End With
End Function
Function ExtractionVille(Cellule As Range) As String
Application.Volatile
With CreateObject("vbscript.regexp")
.Global = True
.Pattern = " \d{5} [^0-9]*$"
Set Matches = .Execute(Cellule.Text)
If Matches.Count >= 1 Then ExtractionVille = Right(Matches(0), Len(Matches(0)) - 7)
End With
End Function

Bonne journée

 

[enaivlys]

Re : Séparer l'adresse, le code postal et la ville ?

Bonsoir,
cf. fichiers. Formules adaptées du site de JB

=> chaînes de caractères
A+

Edit : bonsoir à Cisco et Softmama

Bonjour,
Je n'ai pas compris ce que je faisais (dommage) mais j'avais besoin d'extraire un code postal d'une celllule où l'adresse était mise à la suite et ça a marché. Merci