XL pour MAC extraction complexe

patricktoulon à dit:

Bonjour
c'est un exercice qui a déjà été tenté
il te sera impossible de traiter toutes les forme de chaîne
une adresse peut commencer par un numéro ou pas
ça peut être une rue, un chemin ,un boulevard,une impasse , ou même par le nom d'une résidence
quand aux codes postals il peuvent être à la fin comme avant la ville
et j'en passe et des meilleures
et pour couronner le tout tu es sous MAC ce qui fai que pour gerer un regex c'est possible mais une torture

cela dit si tu y tiens
voici 5 fonctions perso utilisable en vba et formule
le complément d'adresse si il y a doit être en premier ensuite le numéro ensuite l'adresse ensuite le cdepostal ensuite la ville

a mettre dans un module

VB:

Function code_Postal(v As String)
    Dim T: T = Split(v, " ")
    For I = UBound(T) To 0 Step -1
        If IsNumeric(T(I)) And Len(T(I)) >= 5 Then code_Postal = Val(T(I))
    Next
End Function
Function ville(v As String)
    Dim T, I&: T = Split(v, " ")
    For I = UBound(T) To 0 Step -1
        If IsNumeric(T(I)) And Len(T(I)) >= 5 Then ville = Split(v, T(I))(1): Exit For
    Next
End Function

Function adresseX(v As String)
    Dim Add$, T, I&: T = Split(v, " ")
    For I = 0 To UBound(T)
        If IsNumeric(T(I)) And Len(T(I)) < 5 Then Add = Split(v, T(I))(1)
        If IsNumeric(T(I)) And Len(T(I)) >= 5 Then Add = Split(Add, T(I))(0)
    Next
    adresseX = Add
End Function

Function Numero(v As String)
    Dim num$, T, I&: T = Split(v, " ")
    For I = 0 To UBound(T)
        If IsNumeric(T(I)) And Len(T(I)) < 5 Then num = T(I): Exit For
    Next
    Numero = num
End Function

Function complementADresse(v As String)
    Dim cmpad, T, I&: T = Split(v, " ")
    For I = 0 To UBound(T)
        If IsNumeric(T(I)) Then cmpad = Split(v, T(I))(0): Exit For
    Next
    complementADresse = cmpad
End Function

exemple pour le numero en formule dans une cellule à étendre à souhait
=numero(A2)
et pareil pour les autre fonctions

Regarde la pièce jointe 1119653

mais tu n'aura JAMAIS UNE GARANTIE A 100% DE RESULTAT PROBAN FAIRE ATTENTION!!!!!

Cliquez pour agrandir...

patricktoulon à dit:

oui c'est quoi l'adresse en A2 je suis pas devin

Cliquez pour agrandir...

danery à dit:

Bonjour,
Tout d'abord merci de prendre le temps de m'aider.
J'ai copié ton code dans le vba de mon fichier mais lorsque que je saisi =Ville(C2) dans la cellule D2 j'obtiens #NOM?

Cliquez pour agrandir...

patricktoulon à dit:

oui c'est quoi l'adresse en A2 je suis pas devin

Cliquez pour agrandir...

Function Numero(v As String)
    Dim num$, T, I&: T = Split(v, " ")
    For I = 0 To UBound(T)
        If IsNumeric(T(I)) And Len(T(I)) < 5 Then num = T(I): Exit For
    Next
    Numero = num
End Function

Phil69970 à dit:

Comme je l'ai écrit au post #4 il y a des cas ou il faudra le faire à la main

Cliquez pour agrandir...

patricktoulon à dit:

mais tu n'aura JAMAIS UNE GARANTIE A 100% DE RESULTAT PROBAN FAIRE ATTENTION!!!!!

Cliquez pour agrandir...