Code postal a partir de la ville

[PapyLou]

Bonjour à tous,

Là, je suis perdu :

Je cherche dans une feuille à mettre à jour le code postal non renseigné(5200 lignes).
J'ai un autre classeur avec toutes les communes et les codes postaux renseignés(38620 communes).

Comme je ne m'en sors pas, j'ai fais un copier-coller des 4 colonnes qui m'intéressent :

en A : le nom de la personne,
en B : la VILLE,
en C : la VILLE (du classeur "codes postaux")
en D : le CODE POSTAL (du classeur "codes postaux")
je veux m'être en E, le code postal trouvé à partir de la comparaison exacte de B et C

et ma routine ne marche pas :

Sub CodePost()
For Each i In Range("B2:B" & Range("B65536").End(xlUp).Row)
Set CP = Range("C2:C" & Range("C65536").End(xlUp).Row).Find(i.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not CP Is Nothing Then
z = CP.Address
i.Offset(0, 3).Value = Range(z).Offset(0, 1).Value
End If
Next
End Sub

Pouvez-vous m'aider ?

D'avance merci

 

[kiki29]

Re : Code postal a partir de la ville

Salut, dans le même genre que celui proposé par Sellig29 , avec une approche légérement différente ( voir aide en ligne sommaire ) , (Nos logiciels) Codes*Postaux*v*1.4.3 ainsi que (Nos logiciels) Codes*Postaux*v*1.3.2