XL 2019 separation d'une colonne en deux numéro et rue

[VAGUE641]

Bonjour,

J'aimerais séparer ma colonne nouvelle adresse.
Il me faudrait dans une colonne le numéro et dans l'autre la rue
Je pense qu'il faut utiliser le VBA mais je ne connais pas.
Merci pour votre aide

Nath

 

[Gardien de phare]

Bonjour,
En supposant que la partie numéro de voie soit toujours séparée du nom de voie par un espace... On peut faire ça par formule

Pour obtenir le numéro de voie

= GAUCHE([@[Nouvelle adresse]];CHERCHE(" ";[@[Nouvelle adresse]];1))

Pour le nom de voie

=STXT([@[Nouvelle adresse]];CHERCHE(" ";[@[Nouvelle adresse]];1)+1;NBCAR([@[Nouvelle adresse]])-NBCAR([@[Numero de voie]])+1)

Edit, formule à perfectionner pour traiter le cas où il n'y a pas de numéro dans la voie 🙁

 

[VAGUE641]

Merci mais je l'utilise comment ?

 

[Gardien de phare]

Un solution qui traite mieux les cas atypiques, avec un classeur exemple... Attention format XLSX pour bénéficier des tableaux structurés

 

[VAGUE641]

Bonjour,

Merci beaucoup pour ton aide.....

 

[job75]

Bonjour VAGUE641, Gardien de phare, le forum,

En B2 :

=SIERREUR(--GAUCHE(A2;TROUVE(" ";A2));"")

En C2 :

=SUPPRESPACE(STXT(A2;NBCAR(B2)+1;9^9))

Pour les numéros on ne se préoccupe pas des "Bis" ou "Ter".

A+

 

[job75]

Si l'on veut récupérer les "bis" et les "ter" on peut entrer en B2 :

=SIERREUR(--GAUCHE(A2;TROUVE(" ";A2));"")&REPT(" bis";ESTNUM(CHERCHE(" bis ";A2)))&REPT(" ter";ESTNUM(CHERCHE(" ter ";A2)))

 

[VAGUE641]

Bonjour

Merci pour votre réponse,
une question, pourquoi je n'arrive pas à copier la formule dans un autre feuillet.

Merci,

Nath

 

[job75]

On peut toujours copier-coller une formule dans une autre feuille si celle-ci n'est pas protégée.

 

[VAGUE641]

Merci Merci beaucoup, ca fonctionne très bien... J'avais 10000 lignes à modifier !!! fait en 10 secondes... Super Merci encore

Bonne et Belle après midi à vous,

Nath

 

[job75]

J'avais 10000 lignes à modifier !!! fait en 10 secondes...

Curieux, chez moi c'est immédiat.

Sur le fichier du post #7 j'ai recopié le tableau A2:C460 sur 10 098 lignes.

Cette macro s'exécute en moins de 1/10ème de seconde :

Sub a()
Dim t
t = Timer
[A:C].Copy [A1]
MsgBox Timer - t
End Sub