Extraire une adresse

BONJOUR A TOUS

BESOIN D`UN PETIT COUP DE MAIN CAR JE SUIS UN DÉBUTANT

DANS A1 J`AIMERAIS EXTRAIRE L`ADRESSE DANS B2

LA CELLULE COMMENCE TOUJOURS PAR LE TELEPHONE DANS CE FORMAT (000) 000-0000

ET SE TERMINE TOUJOURS PAR LA VILLE ET LE CODE POSTAL

A1=(514) 852-4218 11840 boul Lacordaire Montréal-Nord QC H1G4K4

J`AIMERAIS EXTRAIRE 11840 boul Lacordaire

A1=1013 boul du Saguenay E Chicoutimi QC G7H 1L6

J`AIMERAIS EXTRAIRE 1013 boul du Saguenay E

MERCI A L`AVANCE POUR VOTRE AIDE

Bonjour

Ci joint une proposition qui marche si toutes les données de base ont un N° de téléphone présent grâce à une formule récupérée et adaptée

Il y a surement plus simple mais j'ai décortiqué les phases

Cordialement

FINDRH

MERCI

POUR LA RESPONSE TRES RAPIDE EY CA MARCHE A MERVEILLE

Impeccable.

Si c'est ok n'oublie pas de clore le sujet

Cordialement

FINDRH

Bonjour,

Une proposition à étudier dans ton environnement.

C'est une fonction personnalisée VBA.

Option Explicit
Public Function NumAdresse(v As String) As String
Dim tmp, _
    i As Byte, _
    x As String

    If IsEmpty(v) Then Exit Function
    tmp = Split(v, " ")
    For i = 2 To UBound(tmp) - 3
        x = x & " " & tmp(i)
    Next
    NumAdresse = Trim(x)

End Function