Extraite dernier mot d'une cellule

[matthieu2701]

Bonjour,

Dans une cellule je note l'adresse complète du client. Je peux pas faire différente cellule pour les différents critères (numéro de rue, rue, code postal et ville)

Prenons un exemple :
212 chemin Jean Édouard 13001Marseille

Je souhaite extraire Marseille.

Pouvez vous m'aider svp ?

Merci par avance.

 

[bruno66]

Re : Extraite dernier mot d'une cellule

bonjour , avant toute chose il faudrait aussi et par ailleurs que tes codes postales soit séparé d'un intervalle afin d'extraire le dernier mot de l'adresse complet ensuite avec une formule extraire droite caractère près espace
c'est cela que tu veux faire exactement
a moins aussi de trouver juste les lettres droites aaprès les derniers chiffres

 

[matthieu2701]

Re : Extraite dernier mot d'une cellule

Le code postal est bien séparé du nom de la ville. Donc oui je souhaite extraire le mot qui est à droite du code postal et qui est le dernier.

 

[pierrejean]

Re : Extraite dernier mot d'une cellule

Bonjour à tous

Un essai avec fonction personnalisée

 

[Modeste geedee]

Re : Extraite dernier mot d'une cellule

Bonsour®

=STXT(A1;1+TROUVE(CAR(124);SUBSTITUE(A1;" ";CAR(124);NBCAR(A1)-NBCAR(SUBSTITUE(A1;" ";""))));2^9)

ne prend que le dernier mot !!

sinon pour détecter la position du code postal (à mon avis la solution la plus fiable), passage par VBA requis via fonction personnalisée.

🙄 coucou PierreJean

 

[Modeste geedee]

Re : Extraite dernier mot d'une cellule

Bonsour®

je souhaite extraire le mot qui est à droite du code postal et qui est le dernier.

je trouve quelque ambiguité ... 😎

s'il n'y a pas de code postal que faire ???

Function Apres_CP(target)
For i = 1 To Len(target)
    If Mid(target, i, 5) Like ("#####") Then
           Apres_CP = Mid(target, i + 6, 2 ^ 9)
           Exit For
    End If
Next
End Function

 

[matthieu2701]

Re : Extraite dernier mot d'une cellule

Bonsour®

je trouve quelque ambiguité ... 😎

s'il n'y a pas de code postal que faire ???

Function Apres_CP(target)
For i = 1 To Len(target)
    If Mid(target, i, 5) Like ("#####") Then
           Apres_CP = Mid(target, i + 6, 2 ^ 9)
           Exit For
    End If
Next
End Function

Le code postal est toujours renseigné. Merci de ta solution. Je la conserve au cas ou j'en ai besoin

 

[BOISGONTIER]

Re : Extraite dernier mot d'une cellule

Bonjour,

Il faut prendre ce qui est à droite du CP (et non pas le dernier mot)

=STXT(A1;NBCAR(A1)-EQUIV(VRAI;ESTNUM(--(STXT(A1;NBCAR(A1)-LIGNE($1:$255);1)));0)+2;99)
Valider avec maj+ctrl+entrée

JB