Effacer intelligemment?

[MarMoussa]

Bonjour à tous,

J'ai une liste d'adresse complète assez conséquente et je voudrais n'en garder que le nom de la voie. Par exemple:

135 Rue de Marseille ==> de Marseille
212 Impasse Charles-Petit ==> Charles-Petit
206 Square Marcel-Rajman ==> Marcel-Rajman
422 Rue de l'Arbre-Sec ==> de l'Arbre-Sec

La difficulté est que je ne peux pas me référer au espace puisque pour "135 Rue de Marseille" je doit garder le "de" suivi de l'espace avant "Marseille".

Par contre je sais que mes valeurs commencent toujours par un numéro, et sont suivies du type de voie (exemple: 'avenue' ou 'square') qui ne comporte jamais d'espace (au pire un - comme dans : 'lieu-dit' ou 'rond-point').

Donc en toute logique la consigne est la suivante :
"En partant de la gauche effacer les chiffres, puis l'espace, puis le mot (ou mot-composé), puis l'espace."

Seulement je ne sais pas comment écrire tout ça dans une formule, encore moins dans une macro.

Quelqu'un aurait il une solution à me proposer?

 

[CB60]

Re : Effacer intelligemment?

Bonjour
Test cela

=STXT(A1;TROUVE(" ";A1;5)+1;NBCAR(A1))

avec ton adresse en A1

 

[MarMoussa]

Re : Effacer intelligemment?

Woua!

Ce fut rapide 😀

En effet ça fonctionne parfaitement, merci beaucoup.

 

[MarMoussa]

Re : Effacer intelligemment?

Woua!

Ce fut rapide 😀

En effet ça fonctionne parfaitement, merci beaucoup.

ps : par contre je n'en comprends pas le sens :-/

 

[CB60]

Re : Effacer intelligemment?

re
stxt vas prendre le texte de la cellule A1 a partir de deuxieme espace grace à "TROUVE(" ";A1;5)"
le trouve recherche l'espace de A1 en commençant à la cellule 5.
et aprés le nbcar permet de prendre en compte les caracteres restant

 

[MarMoussa]

Re : Effacer intelligemment?

Ok! Par contre après un examen approfondi je découvre que la formule ne fonctionne pas à tous les coups.

Exemple après traitement:

des Invalides
de l''Élysée
des Ursins
Place Octave-Chanute
Pierre-Le-Grand
des Guillemites
Daviel
Rue du Marché-des-Patriarches

C'est étrange...

- Edit : il y a des doubles espaces parfois entre le numéro et le type de voie, ceci explique cela. Est-ce que je peux corriger cette erreur?

 

[CB60]

Re : Effacer intelligemment?

re
Pas facile sans voir le fichier, la j'ai fais les tests avec comme objectif deux espaces avant les info que nous souhaitions.
Un petit fichier exemple pourrais peut être nous aider.

 

[hoerwind]

Re : Effacer intelligemment?

Bonjour,

Peux-tu préciser ce qu'il y avait avant Place et Rue ?

Il parait évident qu'avec des 125 bte 14 ou une autre chaine contenant plus de quatre caractères le problème va se corser.

 

[MarMoussa]

Re : Effacer intelligemment?

ok voici mon fichier.

- Edit : hum apparemment je ne sais pas joindre un fichier au message, il y a une astuce?
- Edit 2 : non pas de batiment ou de bis, juste des doubles espaces qui se sont glissés là.

 

[hoerwind]

Re : Effacer intelligemment?

Re,

Vois un peu bas sous ta réponse "gérer les pièces jointes".
Le fichier ne peut excéder les 50Ko, mais tu peux le zipper.
Pour donner un exemple du problème, 50 Ko doivent amplement suffire.

 

[MarMoussa]

Re : Effacer intelligemment?

Voilà cette fois j'ai trouvé: il fallait zipper 😉

- Edit : le test de la macro se fait en feuille 2

 

[MarMoussa]

Re : Effacer intelligemment?

J'ai trouvé la solution!

sur la formule : =STXT(A1;TROUVE(" ";A1;5)+1;NBCAR(A1)) il suffit de changer le 5 en 6.

Donc avec

=STXT(A1;TROUVE(" ";A1;6)+1;NBCAR(A1))

Ca fonctionne parfaitement.

Merci du temps que vous m'avez consacré 😛