Comparaison et standardisation adresse

Bonjour,

J'apprends seul via les cours proposés, et essaie de résoudre mes petits problèmes parfois j'y arrive et parfois je sèche.

Merci d'avance pour votre aide.

Voilà mon problème :

J'ai une feuille avec dans une colonne des adresses. Je voudrais standardiser ces adresses par rapport à celle de la 2eme feuille.

Un exemple valant mieux qu'un long discours je joins un fichier.

Merci encore.

bonjour,

une proposition vba.

Sub aargh()
    With Sheets("feuil1")
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
        For i = 2 To dl
            adresse = .Cells(i, 1)
            s = InStr(adresse, " ")
            If s > 0 Then
                .Cells(i, 2) = Left(adresse, s - 1) 'numéro
                adresse = Mid(adresse, s + 1)
            End If
            elem = Split(adresse, Chr(10))
            cpville = elem(UBound(elem))
            .Cells(i, 4) = Left(cpville, 5) 'cp
            .Cells(i, 5) = Mid(cpville, 6) 'ville
            voie = ""
            For j = LBound(elem) To UBound(elem) - 1
                voie = voie & " " & elem(j)
            Next j
            .Cells(i, 3) = Trim(voie) 'voie
        Next i
    End With
End Sub

Bonjour h2so4,

Tout d'abord merci de ta réponse rapide et de t'intéresser à mon problème.

Je ne suis pas très doué en VB. Le script fonctionne sur l'exemple, mais j'ai essayé d'adapter la script sur le fichier de travail qui comporte plus de feuilles et colonnes, cela n'a pas fonctionné.

Du coup pour essayer de comprendre j'ai copié la conne adresse complete dans le fichier exemple et cela provoque une erreur.

Et comme on peut le voir les adresses ne sont pas toutes normalisées (ce qui augmente la difficulté), et est-il possible de normaliser l'adresse comme dans la feuille 2.

Selon le tableau de la veuille 2

Je remets le fichier exemple avec la macro

Merci encore

re-bonjour,

voila une nouvelle version, j'ai ajouté une colonne "à vérifier" pour les cas spéciaux (pas de numéro de rue trouvé, pas de CP pas de ville)