Extraire ville d'adresse

[nonifel]

Bonjour le forum,

Je cherche à extraire la ville d'une adresse :

Exemple 1 :
5 cours Mirabeau Paris 12ème
10 Rue Michel Marseille
Lyon 15 cours sextius

Exemple 2 :
Autoroute Paris >> Lyon
Je souhaite extraire les deux villes sur 2 cellules différentes.

Un exemple sur un fichier excel ça serait génial.

Merci bcp

 

[zebanx]

Bonsoir Nonifel,

Un exemple de recherche.

Sinon, comment retrouver l'information ? Tu as dans ton exemple une ville qui se situe soit en dernière position soit l'avant-dernière et parfois en en-tête.
Peut-être avec une liste et un find.
Solution ici simple et surement temporaire.

++

 

[nonifel]

Mercii bcp Zebanx

Je met un fichier avec un exemple, et s'il y a un moyen d'extraire les villes

Merci bcp

 

[zebanx]

Bonsoir,

Après recherche, un autre moyen. J'ai essayé avec une macro mais je n'y arrive pas sur la deuxième occurence dans la meme cellule.

Cdlt

 

[gosselien]

Bonjour,

un essai ici

P.

 

[zebanx]

Bonjour Gosselien.

Encore une merveille de code à conserver.
J'ai essayé de repartir du code "find" que tu avais donné sur un sujet il y a quelques jours mais cela ne me sortait que la première occurence sur la liste.
Je suis content que tu aies répondu à ce poste, c'est une autre approche, super !

Par contre, peux-tu stp m'expliquer le passage non compris sur :
sText = UCase(Trim(Replace(.Cells(I, 1), "µ", vbNullString)))

Merci pour ta réponse. Bonne journée
thierry

 

[pierrejean]

Bonjour à tous

Un essai

 

[gosselien]

re,

Meilleur essai pierrejean

Intéressant @zebanx !!!

Dans une ligne, je ne trouvais pas Marseille collé à un "-"
P.

 

[nonifel]

Génial,

Merciiiii bcp :
zebanx
Gosselien
Pierrejean

 

[zebanx]

Bonjour Pierre-Jean, Re-bonjour Gosselien, Bonjour Nonifel

Ce n'est pas mon fil mais il est agréable de lire deux codes courts, différents et qui font parfaitement le travail demandé.
A conserver pour ma part.

Bonne journée.
thierry

 

[nonifel]

Bonjour à tous

Un essai

Bonjour PierreJean,

J'ai essayé en mettant toutes les données, et j'ai ce message d'erreur sur la macro

Merci pour votre aide, sachant que j'ai 80 000 lignes et j'ai presque 200 villes.

Merci bcp

 

[gosselien]

Tu ne sais pas essayer en faisant 2 onglets avec 40.000 lignes chacun ?

edit: J'ai encore dit une bétise, tu n'est pas en XL2003 limite à 65000 lignes !

 

[pierrejean]

Re

En ce qui concerne les 200 villes il faut évidemment qu'elles figurent dans la feuille ville
Par ailleurs l'erreur semble signifier qu'il y a plus de 3 villes dans une ligne
si c'est le cas on peut modifier la ligne
tablo1 = Sheets("recherche mot").Range("A2" & Sheets("recherche mot").Range("A" & Rows.Count).End(xlUp).Row)
en
tablo1 = Sheets("recherche mot").Range("A2:G" & Sheets("recherche mot").Range("A" & Rows.Count).End(xlUp).Row)

 

[nonifel]

Un grand merciiiiiii
ça marche super bien !!!!