Trier adresse postale

[manu4461]

Bonjour à tous !

je suis nouveau sur ce forum qui m'a été vivement recommandé !


J'ai aujourd'hui un fichier de 2300 lignes,
les colonnes comprennent des adresses, compléments d'adresse, CP, Ville, etc..

je souhaite TRIER ces adresses par nom de rue (ou boulevard, mail, square etc..)

sachant que :
-il y a parfois un chiffre comme : 1 rue machin
- parfois 2, comme : 12 rue machin
- parfois 3, comme : 123 boulevard machin
- parfois une lettre après, comme : 12A avenue machin
- parfois une virgule après le chiffre comme : 12, rue machin
- parfois un espace entre le chiffre et la virgule comme : 12 , rue machin

j'ai déjà essayé pas mal de choses comme des tri personnalisé, ou encore convertir pour séparer les numéros, mais rien de concluant.

je n'ai pas une énorme maitrise d'excel je ne connais pas le VBA, ni regex, ni les macros. mais je comprend facilement les choses !

merci d'avance,
cordialement,

 

[manu4461]

Re : Trier adresse postale

ci joint une partie des données

 

[Victor21]

Re : Trier adresse postale

Bonsoir, manu4461 et bienvenue sur XLD.

En attendant mieux, vous pouvez débroussailler (à 96% sur votre exemple) avec :

=STXT(A2;TROUVE("e ";A2)+2;9^9)

 

[david84]

Re : Trier adresse postale

Bonsoir,
il serait bien que tu mettes dans un onglet du fichier le résultat que tu voudrais obtenir au final pour que l'on comprenne où tu veux en venir.
A+

Edit : bonsoir Patrick

 

[manu4461]

Re : Trier adresse postale

bonsoir david84, il n'y a pas suffisamment d'adresses dans le fichier que j'ai envoyé.
en revanche on remarque que les "rue du mont st michel" ne sont pas à suivre et c'est ça que je souhaite faire,
regrouper/trier les même nom de rue

 

[manu4461]

Re : Trier adresse postale

MERCI Victor c'est pas mal mais ne fonctionne plus pour les boulevards et avenues.
est ce possible de créer quelque chose pour qu'il recherche les syntaxes identiques de lui même ??

 

[david84]

Re : Trier adresse postale

MERCI c'est pas mal mais ne fonctionne plus pour les boulevards et avenues.
est ce possible de créer quelque chose pour qu'il recherche les syntaxes identiques de lui même ??

Je réitère ma demande : merci de bien vouloir placer un fichier exemple comportant un onglet où sont notés manuellement les résultats attendus afin de bien comprendre ta demande (pas la peine d'avoir beaucoup de données mais elles doivent être explicites).
A+

 

[manu4461]

Re : Trier adresse postale

David84,
quelque chose comme ça, les adresses se trouvant dans la meme rue regroupées en Feuil2

 

[manu4461]

Re : Trier adresse postale

problème résolu !!!!!

j'ai séparé le n° de rue avec
=GAUCHE(A2;CHERCHE(" ";A;1)-1)

ensuite pour les noms de rues :
=DROITE(A2;NBCAR(2)-CHERCHE(" ";A2;1))

 

[TEDGA]

CA NE MARCHE PAS

 

[sylvanu]

Bonjour Manu, Victor, David, Tedga,

@TEDGA, bienvenu sur XLD.
Quelques règles :
1- Quand on arrive sur un fil, on dit bonjour.
2- On évite les majuscules, gras, rouge. A la fois impoli, voire agressif.
3- "Ca ne marche pas" ne veut strictement rien dire. Quoi ? Pourquoi ? Quelle solution ne marche pas ? ...

@manu, j'ai bien peur que sans VBA vous trouviez toujours des exceptions. Les configurations possibles sont trop nombreuses. Un défi à relever.

 

[sylvanu]

Re bonjour tout le monde,
Un premier essai en VBA. Je cherche un mot signifiant dans l'adresse :

"rue", "avenue", "boulevard", "place", "impasse", "chemin", "allée", "ave", "bd"

et je sépare à partir de cet endroit. Avec :

Sub Extract()
    Mot = Array("rue", "avenue", "boulevard", "place", "impasse", "chemin", "allée", "ave", "bd")
    Application.ScreenUpdating = False
    DL = Range("A65500").End(xlUp).Row
    For L = 2 To DL
        Chaine = ""
        tablo = Split(Cells(L, "A"), " ")
        For i = 0 To UBound(tablo)
            For k = 0 To UBound(Mot)
                If LCase(tablo(i)) = LCase(Mot(k)) Then
                    For C1 = 0 To i - 1
                        Chaine = Chaine & " " & tablo(C1)
                    Next C1
                    Cells(L, "E") = Chaine
                    Chaine = ""
                     For C1 = i To UBound(tablo)
                        Chaine = Chaine & " " & tablo(C1)
                    Next C1
                    Cells(L, "F") = Chaine
                    Chaine = ""
                End If
            Next k
            If Trim(Cells(L, "F")) = "" Then Cells(L, "F") = Cells(L, "A")
        Next i
    Next L
End Sub

On peut optimiser, trier .... mais uniquement si une solution VBA est acceptée sinon inutile de perdre du temps.

 

[TEDGA]

BJR A TOUS
désolé sylvanu
tu as tous a fait raison
je m'en excuse
c'est ma 1ere inscription sur un forum