Séparer l'adresse, le code postal et la ville ?

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion abouam
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

abouam

XLDnaute Nouveau
Bonjour et BONNE et HEUREUSE ANNÉE à vous tous !

je possède un tabelau qui contient des lignes comme suit :

rue de Siam 07100 Brest

Je souhaite avoir 3 colonnes qui auront comme titre :
Adresse
Code postale
Ville

Donc une extraction de données.
Voici mon fichier exemple
Merci
 

Pièces jointes

Trier par date Trier par votes
Bonjour abouam

Tu peux tester cette macro :
Code: 
Sub extrac()
Dim c As Range, t As Integer
Set c = Range("A2")
Do While c <> ""
    For t = InStr(InStr(c, " "), c, " ") To Len(c)
        Select Case Mid(c, t, 1)
            Case "0" To "9"
                Exit For
        End Select
    Next t
    c(1, 2) = Mid(c, 1, t - 2)
    c(1, 3) = Mid(c, t, 5)
    c(1, 4) = Mid(c, t + 6)
Set c = c(2, 1)
Loop
End Sub
 
Vote positif 0 Vote négatif
Re : Séparer l'adresse, le code postal et la ville ?

Merci à vous tous.
Il y a un souci !
La fonction marche bien mais pour les villes comme "Paris" ou "Lille" mais pas pour "La Rochelle" par exemple.

Y a t-il un moyen de régler celà ?
Merci encore
david84 à dit:
Bonsoir,
cf. fichiers. Formules adaptées du site de JB

=> chaînes de caractères
A+

Edit : bonsoir à Cisco🙂 et Softmama🙂
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Re : Séparer l'adresse, le code postal et la ville ?

Re
si je peux me permettre, simplement pour que le code proposé par Softmama affiche le format de nombre adéquat des codes postaux (éviter l'affichage de 7100 au lieu de 07100):
Sub extrac()
Dim c As Range, t As Integer
Set c = Range("A2")
Do While c <> ""
For t = InStr(InStr(c, " "), c, " ") To Len(c)
Select Case Mid(c, t, 1)
Case "0" To "9"
Exit For
End Select
Next t
c(1, 2) = Mid(c, 1, t - 2)
c(1, 3) = Mid(c, t, 5)
c(1, 3).NumberFormat = "00000"
c(1, 4) = Mid(c, t + 6)
Set c = c(2, 1)
Loop
End Sub
Cliquez pour agrandir...
De plus, j'ai l'impression qu'un seul Instr suffit : For t = InStr(c, " ") To Len(c) au lieu de
For t = InStr(InStr(c, " "), c, " ") To Len(c)
mais à vérifier...
Sur ce, bonne nuit.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Séparer l'adresse, le code postal et la ville ?

Bonjour à tous
Une autre fonction personnalisée :
VB: 
Function toto(r, Optional u = 0)
Application.Volatile
Dim i%, j%, adr$, cp$, loca$, x
  x = Split(r)
  For i = 0 To UBound(x)
    If x(i) Like "#####" Then Exit For
  Next
  If i > UBound(x) Then
    adr = r.Value 'facultatif
  Else
    cp = x(i)
    For j = 0 To i - 1: adr = adr & x(j) & " ": Next
    adr = Left$(adr, Len(adr) + (Len(adr) > 1))
    For j = i + 1 To UBound(x): loca = loca & x(j) & " ": Next
    loca = Left$(loca, Len(loca) + (Len(loca) > 1))
  End If
  x = Array(adr, cp, loca)
  If 0 < u And u < 4 Then toto = x(u - 1) Else toto = x
End Function
Peut s'employer de deux manières. Si A2 contient rue de Siam 07100 Brest :
  1. Indexée :
    Code: 
    =toto($A2;1)
    renvoie rue de Siam
    Code: 
    =toto($A2;2)
    renvoie 07100
    Code: 
    =toto($A2;3)
    renvoie Brest.

  2. Matriciellement : sélectionner trois cellules contigües sur la même ligne et saisir
    Code: 
    =toto($A2)
    puis valider matriciellement (Ctrl Maj Entrée).
ROGER2327
#4871

Mardi 17 Décervelage 138 (Saint Mandrin, poète et philosophe, SQ)
25 Nivôse An CCXIX
2011-W02-5T01:10:21Z
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Séparer l'adresse, le code postal et la ville ?

Bonjour,

Matriciel:

Fonctionne pour des adresses du type:
11, rue de Siam 07100 Brest ou
rue de Siam 07100 Brest

Rue: =GAUCHE(A2;NBCAR(A2)-EQUIV(VRAI;ESTNUM(--(STXT(A2;NBCAR(A2)-LIGNE($1:$255);1)));0)-5)
CP: =STXT(A2;NBCAR(A2)-EQUIV(VRAI;ESTNUM(--(STXT(A2;NBCAR(A2)-LIGNE($1:$255);1)));0)-4;5)
Ville: =STXT(A2;NBCAR(A2)-EQUIV(VRAI;ESTNUM(--(STXT(A2;NBCAR(A2)-LIGNE($1:$255);1)));0)+2;99)

Fonctionne pour des adresses du type:
rue de Siam 07100 Brest

Rue: =GAUCHE(A2;EQUIV(VRAI;ESTNUM(CNUM(STXT(A2;LIGNE($1:$255);1)));0)-2)
Code Postal: =STXT(A2;EQUIV(VRAI;ESTNUM(CNUM(STXT(A2;LIGNE($1:$255);1)));0);5)
Ville: =STXT(A2;EQUIV(VRAI;ESTNUM(CNUM(STXT(A2;LIGNE($1:$255);1)));0)+6;99)

VBA:

Code: 
Function CodePostal(chaine)
  p = 1
  CodePostal = ""
  Do While p <= Len(chaine) - 4 And CodePostal = ""
    If Mid(chaine, p, 5) Like "#####" Then CodePostal = Mid(chaine, p, 5) Else p = p + 1
  Loop
End Function

Function Rue(chaine)
  p = 1
  Do While p <= Len(chaine) - 4 And Rue = ""
    If Mid(chaine, p, 5) Like "#####" Then Rue = Left(chaine, p - 2) Else p = p + 1
  Loop
End Function

Function Ville(chaine)
  p = 1
  Do While p <= Len(chaine) - 4 And Ville = ""
    If Mid(chaine, p, 5) Like "#####" Then Ville = Mid(chaine, p + 6) Else p = p + 1
  Loop
End Function

JB
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Séparer l'adresse, le code postal et la ville ?

Bonjour à tous

Toujours avec la même méthode, mais avec une formule un peu plus courte en colonne B :

En B2
Code: 
STXT(A2;1;MIN(CHERCHE({"0";"1";"2";"3";"4";"5";"6";"7";"8";"9"};A2&"0123456789"))-1)
à tirer vers le bas.

@ plus
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Séparer l'adresse, le code postal et la ville ?

Salut Cisco, le fil,

Ce 17 décervelage correspond à la date de ce jour dans le calendrier pataphysique.

Je te laisse faire une recherche sur le Net sur ce calendrier pataphysique.

Tu pourras constater que ce calendrier est du plus grand sérieux.

@+
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Question Question
XL 2021 Liste déroulante et RECHERCHEV
Réponses
5
Affichages
334
Dubuyz1
D
C
  • Question Question
Autres Dans Excel, à partir d'un UserForm, copier l'adresse sélectionnée dans enveloppe de publipostage Word et ouvrir la fenêtre "aperçu avant impression"
Réponses
11
Affichages
738
Chatron
C
B
  • Résolu(e)
Power Query Faire un traitement sur une colonne à partir d'une autre liste
Réponses
6
Affichages
749
btil
B
oguruma
Transposer en colonnes des blocs de données en lignes - via formules
Réponses
0
Affichages
485
oguruma
oguruma
Y
  • Résolu(e)
XL 2016 Changement de recherche de critère des listes et adaptation aux usf
2 3 4
Réponses
56
Affichages
4 K
cp4
cp4
C
  • Résolu(e)
XL 2019 Saut à la ligne dans cellule
Réponses
8
Affichages
1 K
coloc52
C
T
  • Question Question
XL 2016 Séparer Le n° et l'adresse dans deux colonnes avec des nuances dans les adresses
Réponses
5
Affichages
1 K
sylvanu
sylvanu
G
  • Question Question
XL 2016 Ecrire une boucle pour afficher ensemble dans un userform, toutes ses textbox complétées par la boucle! Voir mon code et photos feuilles joints !
Réponses
8
Affichages
935
vgendron
vgendron
F
  • Question Question
XL 2016 Code VBA EXTRACTION A PARTIR DUNE DATE ET COPIE ONGLET
Réponses
1
Affichages
930
herve62
herve62
J
  • Question Question
XL 2013 stock le plus proche d'un code postal
Réponses
5
Affichages
2 K
juju1978
J
S
  • Question Question
XL 2016 Villes suivant le code postale : 2 problemes
Réponses
4
Affichages
2 K
sorgin
S
P
  • Question Question
inserstion nom, adresse, code postal et ville automatique
Réponses
4
Affichages
1 K
pat33bordeaux
P
R
  • Question Question
USF code postal et ville
2
Réponses
19
Affichages
3 K
RONIBO
R
M
  • Question Question
Erreur 6 : dépassement de capacité, sur une macro
Réponses
5
Affichages
1 K
camarchepas
camarchepas
A
  • Question Question
Extraction champs adresse variable (international)
Réponses
14
Affichages
2 K
argentin
A
F
  • Question Question
Lien entre Combobox Code postal et Combobox Ville ne se fait pas
2
Réponses
15
Affichages
4 K
fb62840
F
M
  • Question Question
faire évoluer code userform choix
Réponses
3
Affichages
1 K
MarcTer
M
G
  • Question Question
Extaction du cope postal et de la ville
Réponses
12
Affichages
2 K
Gudo
G
A
  • Question Question
Séparer ville et code postal
Réponses
2
Affichages
2 K
apdf
A
P
  • Question Question
Code VBA pour copier/coller données dans un nouvelle onglet organisées différemment
Réponses
0
Affichages
740
Pygouv
P
Retour