Extraction de texte entre 2 valeurs numériques

Résolu
nihcoc Messages postés 193 Date d'inscription   Statut Membre Dernière intervention   -  
nihcoc Messages postés 193 Date d'inscription   Statut Membre Dernière intervention   -
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

A voir également:

10 réponses

Réponse 1 / 10
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 759
 
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
nihcoc Messages postés 193 Date d'inscription   Statut Membre Dernière intervention   5
 
Bonjour

Je suis désolé mais la fonction me renvoie ça #NOM? ,
ou est le problème ,je n'en sait rien.
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 759
 
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
nihcoc Messages postés 193 Date d'inscription   Statut Membre Dernière intervention   5
 
Tant pis ! et merçi quand même pour ton aide
0
Réponse 2 / 10
nihcoc Messages postés 193 Date d'inscription   Statut Membre Dernière intervention   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
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 759
 
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
Réponse 3 / 10
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 313
 
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
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 759
 
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
Réponse 4 / 10
Raymond PENTIER Messages postés 58969 Date d'inscription   Statut Contributeur Dernière intervention   17 336
 
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
Raymond PENTIER Messages postés 58969 Date d'inscription   Statut Contributeur Dernière intervention   17 336
 
Je voulais dire un "collègue", bien entendu ! pas un "collège" ...
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 10
nihcoc Messages postés 193 Date d'inscription   Statut Membre Dernière intervention   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
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 759
 
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
nihcoc Messages postés 193 Date d'inscription   Statut Membre Dernière intervention   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
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 759
 
Donc, et pour être parfaitement complet, dans tes chaines de caractères, il n'y a jamais plus de deux "bornes" numériques?
0
nihcoc Messages postés 193 Date d'inscription   Statut Membre Dernière intervention   5
 
bonjour
il n'y a jamais plus de deux "bornes" numériques?

exact
0
Réponse 6 / 10
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 759
 
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
Réponse 7 / 10
nihcoc Messages postés 193 Date d'inscription   Statut Membre Dernière intervention   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.
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 759
 
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
nihcoc Messages postés 193 Date d'inscription   Statut Membre Dernière intervention   5
 
Bonjour

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

la 5 et la 6 ne sont pas trop longue.
0
tontong Messages postés 2572 Date d'inscription   Statut Membre Dernière intervention   1 062
 
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
nihcoc Messages postés 193 Date d'inscription   Statut Membre Dernière intervention   5
 
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
tontong Messages postés 2572 Date d'inscription   Statut Membre Dernière intervention   1 062
 
Loop et Do While n'avaient peut-être pas cours ?
0
Réponse 8 / 10
tontong Messages postés 2572 Date d'inscription   Statut Membre Dernière intervention   1 062
 
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
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 759
 
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
nihcoc Messages postés 193 Date d'inscription   Statut Membre Dernière intervention   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
0
tontong Messages postés 2572 Date d'inscription   Statut Membre Dernière intervention   1 062
 
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
nihcoc Messages postés 193 Date d'inscription   Statut Membre Dernière intervention   5
 
Bonjour
c'est encore mieux Bravo a vous et merçi
0
Réponse 9 / 10
nihcoc Messages postés 193 Date d'inscription   Statut Membre Dernière intervention   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
0
Réponse 10 / 10
nihcoc Messages postés 193 Date d'inscription   Statut Membre Dernière intervention   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
0

Discussions similaires

Voxbone ? qui est-ce ?
fanfan54 -
ntrece13 -

159 réponses
Message de donation
dahliafleurs -
Afrikarnak -

18 réponses