Extraire ville d'adresse

zebanx

XLDnaute Accro

• 7 Août 2017

• #2

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.

++

 

Pièces jointes

• recherche mot.xls

  18.5 KB · Affichages: 30

Vote positif 0 Vote négatif

nonifel

XLDnaute Junior

• 7 Août 2017

• #3

Mercii bcp Zebanx

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

Merci bcp

 

Pièces jointes

• recherche mot.xlsx

  16.7 KB · Affichages: 34

Vote positif 0 Vote négatif

zebanx

XLDnaute Accro

• 7 Août 2017

• #4

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

 

Pièces jointes

• rech. mots_2.xls

  328.5 KB · Affichages: 33

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 8 Août 2017

• #5

Bonjour,

un essai ici 🙂

P.

 

Pièces jointes

• recherche mot.xlsm

  27.2 KB · Affichages: 35

Vote positif 0 Vote négatif

zebanx

XLDnaute Accro

• 8 Août 2017

• #6

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 8 Août 2017

• #7

Bonjour à tous

Un essai

 

Pièces jointes

• recherche mot.xlsm

  29.9 KB · Affichages: 40

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 8 Août 2017

• #8

re,

Meilleur essai pierrejean 🙂

Intéressant @zebanx !!! 🙂

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

 

Dernière édition: 8 Août 2017

Vote positif 0 Vote négatif

nonifel

XLDnaute Junior

• 8 Août 2017

• #9

Génial,

Merciiiii bcp :
zebanx
Gosselien
Pierrejean

 

Vote positif 0 Vote négatif

zebanx

XLDnaute Accro

• 8 Août 2017

• #10

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

 

Vote positif 0 Vote négatif

nonifel

XLDnaute Junior

• 8 Août 2017

• #11

pierrejean à dit:

Bonjour à tous

Un essai

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 8 Août 2017

• #12

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 !

 

Dernière édition: 8 Août 2017

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 8 Août 2017

• #13

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)

 

Vote positif 0 Vote négatif

nonifel

XLDnaute Junior

• 9 Août 2017

• #14

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

 

Vote positif 0 Vote négatif