Extraire des caractères d'une cellule

[gregistar]

Je souhaite n'extraire que la rue dans une cellule en prenant compte que la position de départ n'est pas toujours la même.

Merci d'avance pour votre aide

 

[Grand Chaman Excel]

Re : Extraire des caractères d'une cellule

Bonjour gregistar,

Une façon de faire serait avec une Fonction personnalisée codée en VBA.
(On suppose que ça commence par "Rue")

Function ExtraireRue(Adresse As String) As String
Dim i As Integer, j As Integer

i = InStr(1, Adresse, "Rue", vbTextCompare)
j = InStr(i, Adresse, ",", vbTextCompare)

ExtraireRue = Mid(Adresse, i, j - i)

End Function

A+

 

[gregistar]

Re : Extraire des caractères d'une cellule

Merci pour la réponse mais je souhaite le faire sans VBA....

 

[CISCO]

Re : Extraire des caractères d'une cellule

Bonsoir

Regardes si la formule suivante fonctionne à tous les coups

=STXT(A3;CHERCHE(" Rue ";A3)+1;CHERCHE(",";A3;CHERCHE(" Rue ";A3)+1)-CHERCHE(" Rue ";A3)-1)

La formule semble fonctionner, sauf dans le cas ou il y aurait le terme Rue, avec un espace devant et derrière, dans le nom de famille (Jeanne Rue d'Arc, Rue de Rémiremont 5, à Nancy, par exemple). Ca doit être assez rare !

@ plus

 

[CISCO]

Re : Extraire des caractères d'une cellule

Rebonsoir

Défaut corrigé, il me semble, avec

STXT(A3;CHERCHE(", Rue ";A3)+2;CHERCHE(",";A3;CHERCHE(", Rue ";A3)+1)-CHERCHE(", Rue ";A3)-2)

@ plus