Extraction de texte entre 2 valeurs numériques

Résolu
nihcoc -  
Bonjour, serait-il possible que quelqu'un me dise comment extraire d'un adresse la partie se trouvant entre le N° de la rue et le code postal.
EXPL. Mr Dupont henri 13 rue montesquieu 56238 lorient.

ce qui devrait renvoyer rue montesquieu

D'avance merçi

10 réponses

Résumé de la discussion

Extraction de la partie d'une adresse entre le numéro et le code postal, tel que l'exemple 'Mr Dupont Henri 13 rue Montesquieu 56238 Lorient' le montre, pour obtenir 'rue Montesquieu'. Plusieurs échanges évoquent l’utilisation de formules ou de cellules intermédiaires pour isoler le segment entre le numéro et le code postal, mais la solution dépend surtout de la structure et de la ponctuation des adresses. Certains rappellent qu'il n'existe pas de formule magique et proposent de donner 4 à 5 exemples concrets pour adapter la solution à des chaînes variées. D'autres évoquent les difficultés lorsque les adresses contiennent des éléments additionnels ou des abréviations et suggèrent d'évaluer la présence de séparateurs tels que des espaces simples ou multiples.

Bobot (l’IA à votre service)
  1. pijaku Modérateur
    Bonjour,

    Par macro avec une fonction personnalisée.

    Création :
    Depuis le classeur concerné, tapez Alt + F11, Insertion/Module, copiez-collez y ce code : 
    Function Extrait_Adresse(Cel As Range) As String
Dim i As Integer, deb As Integer, fin As Integer
i = 0
deb = 0
Do While i < Len(Cel.Value)
    i = i + 1
    If IsNumeric(Mid(Cel.Value, i, 1)) And deb = 0 Then
        Do While IsNumeric(Mid(Cel.Value, i, 1))
            i = i + 1
        Loop
        deb = i
    ElseIf IsNumeric(Mid(Cel.Value, i, 1)) And deb > 0 Then
        fin = i
        Exit Do
    End If
Loop
Extrait_Adresse = Trim(Mid(Cel.Value, deb, fin - deb))
End Function


    Utilisation :
    Dans la feuille concernée, tapez la formule :
    =Extrait_Adresse(A1)
    où A1 = Mr Dupont henri 13 rue montesquieu 56238 lorient.
    0
    1. nihcoc Auteur
      Bonjour

      Je suis désolé mais la fonction me renvoie ça #NOM? ,
      ou est le problème ,je n'en sait rien.
      0
    2. pijaku Modérateur
      Classeur exemple.

      Je suis désolé mais la fonction me renvoie ça #NOM? ,
      Pas chez moi.

      ou est le problème ,je n'en sait rien.
      Soit dans tes données, soit dans l'énoncé de ton problème.
      0
    3. nihcoc Auteur
      Tant pis ! et merçi quand même pour ton aide
      0
  2. nihcoc Auteur
    Bonjour !

    Je te remercie pour la macro,mais j'utilise une vieille version et ça ne marche pas.

    j'aurais préféré une formule.

    Merçi
    0
    1. pijaku Modérateur
      Cela me semble infaisable par formule. En tout cas ce n'est pas de mon niveau...
      ,mais j'utilise une vieille version et ça ne marche pas.
      Vieille version ou pas, je ne vois rien qui pourrait ne pas fonctionner...
      Dire « Ça ne marche pas » ou « Il y a une erreur », cela n'avance en rien.
      Donnez le comportement observé et/ou le message d'erreur !
      0
  3. michel_m Contributeur
    Bonjour,

    Cette formule de Jacques Boisgontier te renvoie "Monstesqieu"
    http://boisgontierjacques.free.fr/ 

    =GAUCHE(STXT(A1;EQUIV(VRAI;ESTNUM(CNUM(STXT(A1;LIGNE($1:$255);1)));0)+7;999);CHERCHE(" ";STXT(A1;EQUIV(VRAI;ESTNUM(CNUM(STXT(A1;LIGNE($1:$255);1)));0)+7;999))-1)

    Formule matricielle à valider par « ctrl+maj+entrée » (et non directement par « entrée »), le curseur clignotant dans la barre de formule

    A mon avis avec une formule comme ça, il vaut mieux employer une macro comme te l'a proposé Pijaku et je te laisse le soin de retrouver "rue montesqieu" ;o)
    0
    1. pijaku Modérateur
      Salut,

      Les formules "paracétamol" de Jacques Boisgontier...

      Il vaut peut être mieux utiliser une macro, notamment pour le temps d'exécution sur de nombreuses lignes...
      A voir.

      A+
      0
  4. Raymond PENTIER Contributeur
    Dis-nous, nihcoc, qui saisit ces adresses ? toi-même ? un collège ? elles sont extraites d'une base de données ? elles sont téléchargées sur internet ?
    En effet je pense que la solution à ton problème passe par la structure et la syntaxe de tes données, parce que si toutes tes adresses se présentent ainsi sans ponctuations, il n'existe pas de formule magique, qui pourra traiter à la fois 
      Mr Dupont henri 13 rue montesquieu 56238 lorient
      Mr Dupont jean impasse montesquieu 56238 lorient
      Mr Dupont henri 13 rue du 18 juin 56238 lorient
      Mr Dupont henri 13 arsenal militaire de lorient
      Mr Dupont BP 854 56238 lorient

    0
    1. Raymond PENTIER Contributeur
      Je voulais dire un "collègue", bien entendu ! pas un "collège" ...
      0
  6. nihcoc Auteur
    Bonjour

    La structure n'a rien a voir, ce que je cherche en résumé c'est a extraire la partie qui se trouve entre 2 bornes numériques,en l'occurrence dans l'adresse que j'ai mis la partie qui se trouve entre le N° de la rue et le code postal.
    soit " rue Montesquieu "
    ceci est un exemple.
    Merçi
    0
    1. pijaku Modérateur
      Salut,

      Raymond a entièrement raison dans le cas énoncé de ton sujet.
      Si ce n'est qu'un exemple, tu aurais du nous dire ce que tu cherches à faire dès le début.

      Donc, tu peux reformuler ta question en nous donnant 4-5 exemples, ce serait bienvenu.
      0
    2. nihcoc Auteur
      bonjour

      Je m'excuse si la question n'était pas claire,

      je cherche a récupérer par formule la partie qui se trouve entre 2 bornes numériques,en l'occurrence dans l'adresse que j'ai mis la partie qui se trouve entre le N° de la rue et le code postal.

      Mr Dupont jean 43 rue léon blum 44635 nancy = rue léon blum
      ou
      0012 Pradelles (Haute loire-43) = Pradelles (Haute loire-
      ou
      le 12 du mois je travaille a 15 heures = du mois je travaille a

      J'espère avoir été clair.
      Merçi
      0
    3. pijaku Modérateur
      Donc, et pour être parfaitement complet, dans tes chaines de caractères, il n'y a jamais plus de deux "bornes" numériques?
      0
    4. nihcoc Auteur
      bonjour
      il n'y a jamais plus de deux "bornes" numériques?

      exact
      0
  7. pijaku Modérateur
    Extraction de la chaine de caractères comprise entre les deux premières bornes numériques :
    Suivant la formule de Boisgontier donnée précédemment par Michel_m...

    Merci de suivre toutes les étapes de construction de ladite formule pour pas que ducroq y se soit...

    Nota : toutes ces formules sont à valider par Ctrl+Shift+Entrée (formules matricielles)

    Soit la chaîne de caractères en A2

    1- trouver la première occurrence numérique dans la chaîne :
    =EQUIV(VRAI;ESTNUM(CNUM(STXT(A2;LIGNE($1:$255);1)));0)

    2- recherche de l'espace suivant ce caractère :
    ===> Cette étape est indispensable pour déterminer le nombre de caractères numériques constituant la première borne. Si nous n'avons pas ici un point commun à toutes les chaînes (espace ou autre), c'est fichu!
    =CHERCHE(" ";STXT(A2;EQUIV(VRAI;ESTNUM(CNUM(STXT(A2;LIGNE($1:$255);1)));0);999))-1

    3- Emplacement de cet espace dans la chaine initiale :
    =EQUIV(VRAI;ESTNUM(CNUM(STXT(A2;LIGNE($1:$255);1)));0)+CHERCHE(" ";STXT(A2;EQUIV(VRAI;ESTNUM(CNUM(STXT(A2;LIGNE($1:$255);1)));0);999))-1

    4- Extraction de la partie à droite de cet espace :
    =STXT(A2;EQUIV(VRAI;ESTNUM(CNUM(STXT(A2;LIGNE($1:$255);1)));0)+CHERCHE(" ";STXT(A2;EQUIV(VRAI;ESTNUM(CNUM(STXT(A2;LIGNE($1:$255);1)));0);999))-1;999)

    5- Emplacement du premier caractère numérique après cet espace :
    =EQUIV(VRAI;ESTNUM(CNUM(STXT(STXT(A2;EQUIV(VRAI;ESTNUM(CNUM(STXT(A2;LIGNE($1:$255);1)));0)+CHERCHE(" ";STXT(A2;EQUIV(VRAI;ESTNUM(CNUM(STXT(A2;LIGNE($1:$255);1)));0);999))-1;999);LIGNE($2:$256);1)));0)

    6- Nombre de caractères à extraire :
    =EQUIV(VRAI;ESTNUM(CNUM(STXT(STXT(A2;EQUIV(VRAI;ESTNUM(CNUM(STXT(A2;LIGNE($1:$255);1)));0)+CHERCHE(" ";STXT(A2;EQUIV(VRAI;ESTNUM(CNUM(STXT(A2;LIGNE($1:$255);1)));0);999))-1;999);LIGNE($2:$256);1)));0)-1

    7- Formule finale :
    =STXT(A2;CHERCHE(" ";STXT(A2;EQUIV(VRAI;ESTNUM(CNUM(STXT(A2;LIGNE($2:$256);1)));0);999);EQUIV(VRAI;ESTNUM(CNUM(STXT(A2;LIGNE($2:$256);1)));0));EQUIV(VRAI;ESTNUM(CNUM(STXT(STXT(A2;EQUIV(VRAI;ESTNUM(CNUM(STXT(A2;LIGNE($1:$255);1)));0)+CHERCHE(" ";STXT(A2;EQUIV(VRAI;ESTNUM(CNUM(STXT(A2;LIGNE($1:$255);1)));0);999))-1;999);LIGNE($2:$256);1)));0)-1)

    Je maintiens toutefois ce qui a été dit : il vaut mieux employer une macro

    PS : Il existe des écritures différentes, notamment au niveau de la recherche de l'espace (points 2 & 3). Cependant, lors de mes essais, j'ai été confronté à des bizarreries dans les résultats. Selon les chaines initiales, les fonctions retournaient généralement le bon résultat, mais pas de manière systématique...

    Exemple pour le point 3 :
    =CHERCHE(" ";STXT(A2;EQUIV(VRAI;ESTNUM(CNUM(STXT(A2;LIGNE($1:$255);1)));0);999);EQUIV(VRAI;ESTNUM(CNUM(STXT(A2;LIGNE($1:$255);1)));0))

    fonctionne avec :
    0012 Pradelles (Haute loire-43) = Pradelles (Haute loire-
    le 12 du mois je travaille a 15 heures = du mois je travaille a

    mais pas avec :
    Mr Dupont jean 43 rue léon blum 44635 nancy = rue léon blum

    Les curiosités d'Excel ou un défaut dù à ma vue ou à mon cerveau embrouillé...

    Bonne journée à tous.
    0
    1. nihcoc Auteur
      Bonjour!

      j'ai rentré les formules que tu me l'a écrit,la 5 et la 6 ,je ne peut pas les valider
      et la 7ème , la formule est trop longue.
      j'utilise excel 95.

      je laisse tomber
      Merci pour tout.
      0
      1. pijaku Modérateur
        je laisse tomber

        Ben non, il y a peut être une solution.
        En passant par des cellules intermédiaires.

        Mais pour cela, il nous faudrait savoir pourquoi tu ne peux pas valider les étapes 5 et 6... Formules trop longues?
        0
      2. nihcoc Auteur
        Bonjour

        je pourrais t'envoyer le classeur, mais je ne sais comment faire.

        la 5 et la 6 ne sont pas trop longue.
        0
      3. tontong
        Bonjour,
        Mon stock de paracétamol ne sera pas périmé.
        Sur 2003 la 5 et la 6 ne passent pas. Et, plus grave, je n'ai pas trouvé pourquoi !
        La 7 semble s'arrêter à ~200 caractères.
        J'avais établi une formule, mais elle utilisait le fait que le code postal a en général 5 chiffres. J'arrivais au même genre de blocage qui ne se résolvait qu'avec une cellule intermédiaire. J'ai capitulé après quelques échecs à nommer la formule.
        J'avais des formules un peu plus courtes pour les points 3 et 4, mais je n'ai pas vérifié tous les cas.
        Pour la macro je me demande si en 95 le vba n'était pas encore à moitié en français ? Ma mémoire n'est pas assez fidèle pour l'affirmer.

        Le plus important: félicitation à pijaku pour la clarté de son explication au #15
        0
      4. nihcoc Auteur
        Bonjour

        effectivement dans la version 95 le VBA est en français ou en anglais,j'ai testé les 2 possibilités,la macro proposé ultérieurement ne marche pas, et les cellules s'arrête a 255 caractères.
        merçi quand même
        0
      5. tontong
        Loop et Do While n'avaient peut-être pas cours ?
        0
    2. tontong
      Une seule colonne auxiliaire suffit pour que les formules proposées par pijaku puissent être validées sur Xl2003.
      En B2....
      1- trouver la première occurrence numérique dans la chaîne :
      =EQUIV(VRAI;ESTNUM(CNUM(STXT(A2;LIGNE($1:$255);1)));0)

      https://www.cjoint.com/?3JDszIGXsrN
      0
      1. pijaku Modérateur
        Salut,

        Je reviens pour deux choses :

        1- Le bug que tu observes peut être résolu grâce à la fonction SUPPRESPACE()

        2- Une grande simplification des formules serait de passer par deux colonnes intermédiaires et d'utiliser DROITE et GAUCHE au lieu de STXT.

        En A2 : Mr Dupont henri 1223 rue montesquieu 56238 lorient.

        En B2 : Emplacement de la première occurrence numérique dans la chaîne :
        =EQUIV(VRAI;ESTNUM(CNUM(STXT(A2;LIGNE($1:$255);1)));0)
        Explications sur cette formule : By CrocroSoft

        En C2 : Extrait de la sous-chaine située à droite du premier espace après la première occurrence numérique en supprimant un éventuel espace récalcitrant en première position :
        =SUPPRESPACE(DROITE(A2;NBCAR(A2)-($B2+CHERCHE(" ";STXT(A2;$B2;999))-1)))

        En D2 : La formule finale qui extrait la partie gauche de cette sous-chaîne, jusqu'à la première occurrence numérique de cette sous-chaîne, en supprimant l'éventuel espace final :
        =SUPPRESPACE(GAUCHE(C2;EQUIV(VRAI;ESTNUM(CNUM(STXT(C2;LIGNE($1:$255);1)));0)-1))

        Ne reste plus qu'à masquer les colonnes B et C...
        0
      2. nihcoc Auteur
        Merçi a toi pijaku

        J'ai rentré les formules ,c'est impécable et c'est plus simple .
        Merçi c'est très sympa
        0
      3. tontong
        Bonjour,
        Autre solution avec une seule colonne auxiliaire.
        en partant de =STXT(A2;pt3;pt6) et en remplaçant pt3 et pt 6 par les expressions de leurs formules:
        =STXT(A2;$B2+CHERCHE(" ";STXT(A2;$B2;999))-1;EQUIV(VRAI;ESTNUM(CNUM(STXT(STXT(A2;$B2+CHERCHE(" ";STXT(A2;$B2;999))-1;999);LIGNE($2:$256);1)));0)-1)
        0
      4. nihcoc Auteur
        Bonjour
        c'est encore mieux Bravo a vous et merçi
        0
    3. nihcoc Auteur
      C'était presque parfait, seul problème la dernière formule est trop longue et donc ne rentre pas.(270 caractères) et je ne peux en rentrer que 255.
      Merçi
      0
      1. nihcoc Auteur
        bonsoir!

        en fait j'ai repris ton classeur que j'ai ouvert avec calc.
        je lai enregistrer ensuite en excel 95 et ça marche.

        je ne comprend pas pourquoi.

        en tout cas merçi a tout le monde , c'est super
        0

        Discussions similaires

        Formule Excel : "SI" une cellule contient un mot, alors ?
        Tonio5933

        9 réponses
        Comment faire le signe au carré ² sur iPhone ?
        Chloe0007

        5 réponses