Supprimer apostrophe et tiret dans une adresse et copier le dernier mot (excel VBA)

[exene]

Bonsoir,

J'ai une liste d'adresse à partir de B2 ou il peut y avoir des apostrophes ou des tirets. Je souhaiterais les supprimer et les remplacer par un blanc pour ensuite copier le dernier mot de cette adresse et le copier dans la colonne K. Par exemple impasse Saint-Joseph deviendrait impasse Saint Joseph puis en colonne K je voudrais trouver Joseph. Ci- joint un exemple dans le fichier attaché.

Merci de votre aide.

 

[tototiti2008]

Re : Supprimer apostrophe et tiret dans une adresse et copier le dernier mot (excel V

Bonsoir exene,

un essai

=STXT(SUBSTITUE(SUBSTITUE(SUBSTITUE(B2;"-";" ");"'";" ");" ";"$";NBCAR(SUBSTITUE(SUBSTITUE(B2;"-";" ");"'";" "))-NBCAR(SUBSTITUE(SUBSTITUE(SUBSTITUE(B2;"-";" ");"'";" ");" ";"")));CHERCHE("$";SUBSTITUE(SUBSTITUE(SUBSTITUE(B2;"-";" ");"'";" ");" ";"$";NBCAR(SUBSTITUE(SUBSTITUE(B2;"-";" ");"'";" "))-NBCAR(SUBSTITUE(SUBSTITUE(SUBSTITUE(B2;"-";" ");"'";" ");" ";""))))+1;1000)

à recopier vers le bas

 

[exene]

Re : Supprimer apostrophe et tiret dans une adresse et copier le dernier mot (excel V

Bonsoir,

La formule fonctionne parfaitement sur le fichier exemple. Pourrais tu me dire ce que signifie le 1000 à la fin de la formule ?

@+

 

[tototiti2008]

Re : Supprimer apostrophe et tiret dans une adresse et copier le dernier mot (excel V

Re,

J'avais pas vu en VBA, désolé

Function DernMot(Adr As String) As String
    DernMot = Replace(Adr, "-", " ")
    DernMot = Replace(DernMot, "'", " ")
    DernMot = Mid(DernMot, InStrRev(DernMot, " ") + 1)
End Function

 

[tototiti2008]

Re : Supprimer apostrophe et tiret dans une adresse et copier le dernier mot (excel V

Re,

1000 signifie 1000 caractères à partir du dernier espace
la formule était assez longue pour éviter de compter le nombre de caractères à extraire, s'il y en a moins de 1000, il ne prend que les existants évidemment

 

[exene]

Re : Supprimer apostrophe et tiret dans une adresse et copier le dernier mot (excel V

Re,

Impeccable, cela fonctionne très bien.

Merci de ton aide

@+