Microsoft 365 Récupérer Code Postal et Ville sur lignes Excel

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 1 Mars 2020

• #2

Bonsoir,

http://boisgontierjacques.free.fr/fichiers/Cellules/CPSansForm.zip

Boisgontier

 

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 1 Mars 2020

• #3

Bonjour
Analyse, comprends et utilise ce que fait par exemple ceci :

VB:

toto = "Eurexpo Avenue Louis Blériot 69686 Chassieu Cedex France +33 (0)4 72 22 33 44 +33 (0)4 72 22 31 20 Site Web E-mail"
titi = Split(toto, " ")
For k = 0 To UBound(titi)
  If titi(k) Like "#####" Then cp = titi(k): ville = titi(k + 1): Exit For
Next
MsgBox cp & vbCrLf & ville

 

Vote positif 0 Vote négatif

D

dknopfler

XLDnaute Nouveau

• 1 Mars 2020

• #4

Merci pour vos réponses !

Impossible de le faire sans passer par VB ?

Merci,

David

 

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 1 Mars 2020

• #5

Impossible de le faire sans passer par VB ?

Cliquez pour agrandir...

totalement sans VBA ? --->> impossible à ma connaissance, sauf à ce que TOUTES les cellules contiennent des adresses structurées de manière totalement identique (ce qui me parait plus que fort improbable).

 

Vote positif 0 Vote négatif

D

dknopfler

XLDnaute Nouveau

• 1 Mars 2020

• #6

Merci beaucoup ! Je vais donc travailler VBA

 

Vote positif 0 Vote négatif

GALOUGALOU

XLDnaute Accro

• 1 Mars 2020

• #7

bonsoir dknopfler bonsoir le forum
une solution si le mot France figure dans toutes vos adresses. avec des formules du site de boisgontier et une colonne intermédiaire

cordialement
galougalou

 

Pièces jointes

• adresse.xlsm

  21.6 KB · Affichages: 8

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Mars 2020

• #8

bonjour

VB:

Public Function getcpville(cel As String, x As Long)
   Dim Matches As Object
   With CreateObject("vbscript.regexp")
        .Global = True: .IgnoreCase = True
        .Pattern = "(\d{5})+\s+([a-z]{1,20})"
        Set Matches = .Execute(cel)
         If Matches.Count > 0 Then getcpville = Split(Matches(0), " ")(x - 1)
    End With
End Function

Sub test()
MsgBox getcpville([A1], 2)
End Sub

formule pour cp
=getcpville(A1;1)
formule pour ville
=getcpville(A1;2)

mais ca va se compliquer sur les nom de ville composés

 

Vote positif 0 Vote négatif

GALOUGALOU

XLDnaute Accro

• 1 Mars 2020

• #9

bonsoir le fil
la solution #7 marche pour les noms composés.
@+

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Mars 2020

• #10

re
bonsoir galougalou
oui si "France" est présent sinon ....

 

Vote positif 0 Vote négatif

GALOUGALOU

XLDnaute Accro

• 1 Mars 2020

• #11

Sinon pas bon ....La formule est a revoir.....

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Mars 2020

• #12

Bonsoir le fil

Spoiler: Juste parce que je la trouve jolie ;)

Pour extraire le code postal
[size=2]crédits formule: eriiiic[/size] Ensuite pour la fin de chaîne [ICODE]=STXT(A1;6+SOMMEPROD(ESTNUM(STXT(SUBSTITUE(A1;" ";"|");LIGNE($1:$98);5)*1)*LIGNE($1:$98));9^9)
Evidemment àprés il faut tatonner ou ajouter une pincée de Données/Convertir
C'est plus long que le VBA, mais cela permet de passer plus de temps sur son Excel
(Surtout si on est Maciste )

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Mars 2020

• #13

re
bonsoir Staple1600

galougalou la même avec le regex

VB:

Public Function getcpville(cel As String, x As Long)
    Dim Matches As Object
    With CreateObject("vbscript.regexp")
        .Global = True: .IgnoreCase = True
        .Pattern = "(\d{5})\D+ france"
        Set Matches = .Execute(cel)
        If Matches.Count > 0 Then
            If x = 1 Then
                getcpville = Val(Matches(0))
            ElseIf x = 2 Then
                getcpville = Replace(Replace(Matches(0), Val(Matches(0)), ""), "France", "")
            'ou
            'getcpville = Split(Replace(Matches(0), Val(Matches(0)), ""), "France")(0)
            
            End If

        End If
    End With
End Function

 

Vote positif 0 Vote négatif

GALOUGALOU

XLDnaute Accro

• 1 Mars 2020

• #14

bonsoir le fil
salut staple 1600
j'ai testé ta formule mais je n'ai pas réussi à obtenir l'extraction unique de la ville sinon je l'aurais intégré au classeur.

pour aider dknopfler (c'est bien là le but)
un classeur avec deux solutions ( celle initiale de mon post et la solution de patricktoulon)
cordialement
galougalou

 

Pièces jointes

• adresse deux versions.xlsm

  18.7 KB · Affichages: 7

Dernière édition: 1 Mars 2020

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Mars 2020

• #15

Re

GALOUGALOU
J'avais pourtant été explicite, non ?
1) d'abord parce qu'elle était jolie
2) pour le reste, relire ce j'ai écris dans le message#12

PS: Je ne savais pas qu'il y avait forcément un but
(en dehors de passer son temps libre avec Excel et ses aficionados )
Tant mieux si dans le flux des échanges, aide et réconfort sont apportés.

 

Vote positif 0 Vote négatif