Extraction d'une partie d'une adresse postale

Version imprimable

02/12/2014, 11h51
alain.terieur12

Extraction d'une partie d'une adresse postale

Bonjour à tous,

J'ai une colonne dans un fichier remplie d'adresses postales, par exemple :

02 CHEMIN LALANNE
1 A ALLEE DE VERNEILH
1 TER RUE DE SEGUES
1008BIS CHEMIN MATACHOT
18A ALLEE SOPHIA

Je souhaite ne récupérer que l'adresse, sans le numéro, dans une nouvelle colonne :

CHEMIN LALANNE
ALLEE DE VERNEILH
RUE DE SEGUES
CHEMIN MATACHOT
ALLEE SOPHIA

J'ai écrit cette formule (je suis nul en formule excel et en vb) :

Code:

=SI(ESTNUM(CNUM(GAUCHE(G12;(CHERCHE(" ";G12)-1))));DROITE(G12;(CHERCHE(" ";G12)+1));G12)

Mais ça ne fonctionne pas, ça ne récupère qu'un bout de la fin de l'adresse.

Quelqu'un peut-il m'aider svp ?
Merci par avance.

Bonjour,

Une solution possible avec ce fichier à adapter. Celui-ci, contient une feuille paramètres où se trouvent les occurrences des voies. Le code ci-dessous cherche l'occurrence dans l'adresse brute, le cas échéant l'adresse tronquée est copiée dans la colonne suivant celle de l'adresse. Les minuscules, majuscules ne sont pas à distinguer, les caractères accentués doivent l'être.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Option Explicit
 
Sub TransformerLesAdressesBrutes()
 
Dim TypesDeVoies As Range
Dim CelluleVoies As Range
 
Dim ListeAdressesBrutes As Range
Dim CelluleAdresses As Range
 
Dim DerniereLigneParametres As Long
Dim DerniereLigneAdresses As Long
Dim I As Long
 
    ' Chargement des types de voies
    With Sheets("Paramètres")
        DerniereLigneParametres = .Cells(.Rows.Count, 1).End(xlUp).Row
        Set TypesDeVoies = .Range(.Cells(11, 1), .Cells(DerniereLigneParametres, 1))
    End With
 
    ' Définition de l'aire des adresses à traiter
    With Sheets("Adresses")
        DerniereLigneAdresses = .Cells(.Rows.Count, 1).End(xlUp).Row
        Set ListeAdressesBrutes = .Range(.Cells(2, 1), .Cells(DerniereLigneAdresses, 1))
    End With
 
    For Each CelluleAdresses In ListeAdressesBrutes
        For Each CelluleVoies In TypesDeVoies
            If Len(CelluleAdresses) > Len(CelluleVoies) Then
                For I = 1 To Len(CelluleAdresses)
                    Select Case LCase(Mid(CelluleAdresses, I, Len(CelluleVoies)))
                        Case LCase(CelluleVoies)
                            CelluleAdresses.Offset(0, 1) = Mid(CelluleAdresses, I)
                            Exit For
                    End Select
                Next I
            End If
        Next CelluleVoies
    Next CelluleAdresses
 
   Set ListeAdressesBrutes = Nothing
   Set TypesDeVoies = Nothing
 
End Sub

Cordialement.

02/12/2014, 17h13
alain.terieur12

Je viens de tester.
J'ai copié votre macro dans mon fichier excel, nommé les feuilles et colonnes de la même manière mais cela ne fonctionne pas.
J'ai donc fait l'inverse et copié mes colonnes dans votre fichier excel et là, à quelques exceptions près, cela fonctionne.
Auriez-vous une idée du problème par rapport à mon fichier ? Je souhaiterai à terme pouvoir utiliser la macro dans d'autres fichiers.
Merci de votre réponse.
Cordialement.
03/12/2014, 02h56
Invité

Citation:

Envoyé par alain.terieur12

Auriez-vous une idée du problème par rapport à mon fichier ? Je souhaiterai à terme pouvoir utiliser la macro dans d'autres fichiers.

Si le nom des feuilles est identique (majuscules, minuscules respectées), il ne peut s'agir que de la ligne de démarrage sur la feuille "Paramètres". J'ai pour habitude de mettre mes titres en ligne 10, la liste des types de voie ne commence donc qu'à la ligne 11. Pour la feuille Adresses, j'ai supposé que votre tableau démarrait en toute logique à la ligne 1, la liste des adresses ne commence donc qu'en ligne 2. Dans les deux feuilles, les colonnes de référence sont les colonnes A.

Sinon, vos fichiers sont-ils bien avec une extension .xls ou .xlsm ?

Cordialement.
03/12/2014, 08h44
alain.terieur12

Merci pour vos précisions.
Cela fonctionne effectivement en faisant démarrer à la ligne 11 les types de voies.
Merci de votre aide.
Cordialement,
04/12/2014, 15h06
alain.terieur12

Bonjour,
Je reviens vers vous pour une précision.
Quand j'ai une adresse comme : 50 CHEMIN ST JOSEPH je récupère seulement ST JOSEPH
Par contre avec 50 RUE ST PIERRE je récupère bien RUE ST PIERRE
J'ai constaté, en général, que lorsque l'adresse contient un ST, la chaine n'est récupérée qu'à partir de ce ST.
Mes connaissances en vb et macro étant plus que limitées, pourriez vous me dire ce qu'il faut modifier (si toutefois cela se limite à un paramètre de la fonction actuelle) ?
Merci.
04/12/2014, 15h21
Marc-L
Bonjour !
Code:

1 2 3 4 5 6 Sub Demo() Dim SP$() SP = Split("50 CHEMIN ST JOSEPH") If Val(SP(0)) Then SP(0) = "" MsgBox Join(SP) End Sub
_________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …
04/12/2014, 15h32
alain.terieur12

Merci mais...puis-je intégrer cela dans la fonction de M. Kergresse et où ? Ou faut-il traiter ces cas à part ?
04/12/2014, 15h37
Invité

Bonjour,

Les voies du Seigneur seraient donc toujours impénétrables....

Je ne peux pas deviner sans bout de fichier avec les adresses qui vous posent problème, les types de voie que vous avez définis et le code que vous avez transposé.

Vérifiez a minima que les voies ne contiennent pas de caractères blancs avant (et / ou après) dans votre table des voies ; j'ai eu une fois une surprise avec le code ASCII du caractère blanc sur des données issues d'internet.

Si vous mettez en ligne un fichier avec votre code, je regarderai.

Cordialement.
04/12/2014, 15h45
Marc-L

Citation:

Envoyé par alain.terieur12

Ou faut-il traiter ces cas à part ?

Il ne peut y avoir de cas à part s'il n'y a pas d'espace entre le n° et BIS ou TER par exemple …
04/12/2014, 15h52
alain.terieur12

Effectivement, il y avait un espace devant St dans ma liste.
Merci de vos aides.
Cordialement.
04/12/2014, 16h04
Invité

Citation:

Envoyé par alain.terieur12

Effectivement, il y avait un espace devant St dans ma liste.

Je n'ai pas pigé.

Cela veut-il dire que votre liste de voies contient ST ?

Cordialement.

Une p'tite démonstration avec les données telles quelles du post initial (en laissant l'espace par exemple entre le n° & TER)
à partir du classeur joint par Eric :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub Demo() Dim R&, SP$(), VA With Feuil1.Cells(1).CurrentRegion If .Rows.Count = 1 Then Exit Sub VA = .Cells(2, 1).Resize(.Rows.Count - 1).Value For R = 1 To .Rows.Count - 1 SP = Split(VA(R, 1)) If Val(SP(0)) Then SP(0) = "" If UBound(SP) > 0 Then If Len(SP(1)) < 4 And UCase(SP(1)) <> "RUE" Then SP(1) = "" VA(R, 1) = Trim(Join(SP)) Next .Cells(2, 2).Resize(.Rows.Count - 1).Value = VA End With End Sub
_______________:yaisse1: _____________________________________:yaisse1: _____________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

04/12/2014, 16h23
alain.terieur12

Oui double erreur de ma part, c'est STR et non ST qui aurait du être dans ma liste.
04/12/2014, 16h26
Invité

Citation:

Envoyé par alain.terieur12

Oui double erreur de ma part, c'est STR et non ST qui aurait du être dans ma liste.

Ouf ! ça me rassure....

Cordialement.
04/12/2014, 16h52
Marc-L

Pour tenir compte des remarques du post #9 d'Eric, modifier la ligne n°9 du code du post #13 ainsi :

SP = Split(Application.Trim(Replace(VA(R, 1), Chr(160), " "))) …
04/12/2014, 17h14
Invité

Citation:

Envoyé par Marc-L

Pour tenir compte des remarques du post #10 d'Eric, modifier la ligne n°9 du code du post #14 ainsi :

SP = Split(Application.Trim(Replace(VA(R, 1), Chr(160), " "))) …

Bonjour Marc,

Tu as raison, les codes ASCII en question sont bien effectivement 32 : celui qu'on utilise habituellement, et 160 : celui qui m'avait posé problème.

Cordialement.