Extraire des caractères d'une cellule

Grand Chaman Excel

XLDnaute Impliqué

• 11 Mai 2011

• #2

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")

Code:

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+

 

Pièces jointes

• Classeur2(1).xls

  31 KB · Affichages: 104
• Classeur2(1).xls

  31 KB · Affichages: 109
• Classeur2(1).xls

  31 KB · Affichages: 117

Vote positif 0 Vote négatif

G

gregistar

Guest

• 11 Mai 2011

• #3

Re : Extraire des caractères d'une cellule

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

 

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 11 Mai 2011

• #4

Re : Extraire des caractères d'une cellule

Bonsoir

Regardes si la formule suivante fonctionne à tous les coups

Code:

=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

 

Dernière édition: 11 Mai 2011

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 11 Mai 2011

• #5

Re : Extraire des caractères d'une cellule

Rebonsoir

Défaut corrigé, il me semble, avec

Code:

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

@ plus

 

Vote positif 0 Vote négatif