Extraction de texte entre 2 valeurs numériques

[Résolu/Fermé]
Signaler
Messages postés
163
Date d'inscription
dimanche 9 mars 2014
Statut
Membre
Dernière intervention
5 avril 2021
-
Messages postés
163
Date d'inscription
dimanche 9 mars 2014
Statut
Membre
Dernière intervention
5 avril 2021
-
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

Messages postés
12257
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
3 septembre 2021
2 654
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.
Messages postés
163
Date d'inscription
dimanche 9 mars 2014
Statut
Membre
Dernière intervention
5 avril 2021
5
Bonjour

Je suis désolé mais la fonction me renvoie ça #NOM? ,
ou est le problème ,je n'en sait rien.
Messages postés
12257
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
3 septembre 2021
2 654
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.
Messages postés
163
Date d'inscription
dimanche 9 mars 2014
Statut
Membre
Dernière intervention
5 avril 2021
5
Tant pis ! et merçi quand même pour ton aide
Messages postés
163
Date d'inscription
dimanche 9 mars 2014
Statut
Membre
Dernière intervention
5 avril 2021
5
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
Messages postés
12257
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
3 septembre 2021
2 654
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 !
Messages postés
16526
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
22 octobre 2021
3 231
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)
Messages postés
12257
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
3 septembre 2021
2 654
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+
Messages postés
54877
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
23 octobre 2021
16 775
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

Messages postés
54877
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
23 octobre 2021
16 775
Je voulais dire un "collègue", bien entendu ! pas un "collège" ...
Messages postés
163
Date d'inscription
dimanche 9 mars 2014
Statut
Membre
Dernière intervention
5 avril 2021
5
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
Messages postés
12257
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
3 septembre 2021
2 654
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.
Messages postés
163
Date d'inscription
dimanche 9 mars 2014
Statut
Membre
Dernière intervention
5 avril 2021
5
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
Messages postés
12257
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
3 septembre 2021
2 654
Donc, et pour être parfaitement complet, dans tes chaines de caractères, il n'y a jamais plus de deux "bornes" numériques?
Messages postés
163
Date d'inscription
dimanche 9 mars 2014
Statut
Membre
Dernière intervention
5 avril 2021
5
bonjour
il n'y a jamais plus de deux "bornes" numériques?

exact
Messages postés
12257
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
3 septembre 2021
2 654
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.
Messages postés
163
Date d'inscription
dimanche 9 mars 2014
Statut
Membre
Dernière intervention
5 avril 2021
5
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.
Messages postés
2497
Date d'inscription
mercredi 3 février 2010
Statut
Membre
Dernière intervention
19 octobre 2021
1 001
Loop et Do While n'avaient peut-être pas cours ?
Messages postés
163
Date d'inscription
dimanche 9 mars 2014
Statut
Membre
Dernière intervention
5 avril 2021
5
si c'est 2 termes était en cours et traduit en français par

Boucle

Faire TantQue
Messages postés
12257
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
3 septembre 2021
2 654
Salut tontong,
Re-

Oups lala...

nihcoc pourrais tu essayer sur ton tout dernier excel (... no comment ...) cette formule : avec bien sur une chaine en A2...

=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($1:$255);1)));0)

et... nous dire.
Messages postés
163
Date d'inscription
dimanche 9 mars 2014
Statut
Membre
Dernière intervention
5 avril 2021
5
ça bloque a la 3ème fonction "STXT" mis dans l'exemple en italique
=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($1:$255);1)));0)
merçi
Messages postés
2497
Date d'inscription
mercredi 3 février 2010
Statut
Membre
Dernière intervention
19 octobre 2021
1 001
idem sur 2003
Messages postés
2497
Date d'inscription
mercredi 3 février 2010
Statut
Membre
Dernière intervention
19 octobre 2021
1 001
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
Messages postés
12257
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
3 septembre 2021
2 654
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...
Messages postés
163
Date d'inscription
dimanche 9 mars 2014
Statut
Membre
Dernière intervention
5 avril 2021
5
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
Messages postés
2497
Date d'inscription
mercredi 3 février 2010
Statut
Membre
Dernière intervention
19 octobre 2021
1 001
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)
Messages postés
163
Date d'inscription
dimanche 9 mars 2014
Statut
Membre
Dernière intervention
5 avril 2021
5
Bonjour
c'est encore mieux Bravo a vous et merçi
Messages postés
163
Date d'inscription
dimanche 9 mars 2014
Statut
Membre
Dernière intervention
5 avril 2021
5
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
Messages postés
163
Date d'inscription
dimanche 9 mars 2014
Statut
Membre
Dernière intervention
5 avril 2021
5
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