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