Insérer code postal à partir d'une autre feuille

bonjour

sur la feuille 1 j'ai une liste d'associations avec la commune d'implantation (E2)

sur la feuille 2 j'ai la liste des communes avec le code postal (epci)

je souhaite associer le code postal correspondant dans la feuille 1

=RECHERCHEV(E2;epci!$C$2:$C$775;3;FAUX) pourquoi cette formule ne fonctionne pas?

merci de m'aider

Bonjour,

Pour que ta formule fonctionne, tu as besoin que les noms des villes soient rédigés de la même manière ...

C'est la communauté des orthographes cohérentes ... qui te sauvera ...

James007 a écrit :

Bonjour,

Pour que ta formule fonctionne, tu as besoin que les noms des villes soient rédigés de la même manière ...

C'est la communauté des orthographes cohérentes ... qui te sauvera ...

Bonjour,

Pour aider, voici une macro qui te permets :

- de comparer les villes de Feuil1 & Feuil 2 sans accents et en minucule

Ça aide pas mal

voici le code à coller dans this workbook

Public Function ch_sans_accent(mot, retour)

liste_accents = "ÉÈÊËÔéèêëàçùôûïî"
liste_sans_accents = "EEEEOeeeeacuouii"
tempo = mot
For i = 1 To Len(tempo)
        s = InStr(liste_accents, Mid(tempo, i, 1))
        If s > 0 Then Mid(tempo, i, 1) = Mid(liste_sans_accents, s, 1)
Next
ch_sans_accent = tempo
retour = ch_sans_accent
End Function

Public Sub analyse_cp_ville()

derlign_Feuil_2 = Sheets("eureasso").Range("E" & Rows.Count).End(xlUp).Row
derlign_Feuil_1 = Sheets("epci").Range("B" & Rows.Count).End(xlUp).Row

For Each c In Sheets("eureasso").Range("E2:E" & derlign_Feuil_2)

    For Each d In Sheets("epci").Range("B2:B" & derlign_Feuil_1)

    'analyse ville feuil2
    mot = LCase(d) ' comparaison minuscule
    retour = "" ' retour
    Call ch_sans_accent(mot, retour)
    mot_feuil2 = retour

    'analyse ville feuil1
    mot = LCase(c) ' comparaison minuscule
    retour = "" ' retour
    Call ch_sans_accent(mot, retour)
    mot_feuil1 = retour

    'comparaison sans accents et en minuscule
    If mot_feuil1 = mot_feuil2 Then
  c.Offset(0, 1) = d.Offset(0, 1)
    End If

    Next

Next

End Sub

MERCI cela fonctionne

thillay a écrit :

MERCI cela fonctionne

Bonsoir

Impeccable et ravi que cela vous plaise.

Merci don de clôturer cette demande ( v vert à côté de éditer)

Cdt,

Rechercher des sujets similaires à "inserer code postal partir feuille"