XL 2016 Comparaison - Ignorer les accents

patricktoulon à dit:

ok 2 chose le nom"for1" provoquait un bloquange chez moi
ensuite
comme tu a "é" dans ta liste de pay tout tes "e" match forcement
donc a éviter les simple lettres qua ce soit dans la liste de pays ou ta colonne "t"
de plus tu a ta liste de pays en nom propre il faut donc aussi casser la casse pour tester

voila

Cliquez pour agrandir...

patricktoulon à dit:

bonsoir @Maxime26 , @mapomme

@Maxime26
si le principe dans la sub for1 est bien celui que tu veux

VB:

Function UnaccentedString(ByVal chaine$)

    Dim With_Accents$, Without_Accents$, Q&, s&

   With_Accents = "éèêëàçùôûïî"

    Without_Accents = "eeeeacuouii"

    For Q = 1 To Len(chaine)

        s = InStr(1, With_Accents, LCase(Mid(chaine, Q, 1)), vbBinaryCompare)
      
        If s > 0 Then Mid(chaine, Q, 1) = Mid(Without_Accents, s, 1)

    Next

    UnaccentedString = chaine

End Function

Sub for1()

    Dim i&, j&, Chain_1$, Chain_2$

    For i = 10 To 300

        For j = 1 To 150

            If Cells(i, 20) <> "" Then

                Chain_1 = UnaccentedString(Cells(i, 20))

                Chain_2 = UnaccentedString(Worksheets(2).Cells(j, 2))

                If Chain_1 = Chain_2 Then

                    Cells(i, 1).Resize(, 12).Interior.Color = RGB(255, 192, 0)

                End If

            End If

        Next j

    Next i

End Sub

Cliquez pour agrandir...

Function UnaccentedString(T As String) As String
Dim I As Integer
UnaccentedString = LCase(T)
With_Accents = "éèêëàçùôûïî"
Without_Accents = "eeeeacuouii"
For I = 1 To Len(With_Accents)
    UnaccentedString = Replace(UnaccentedString, Mid(With_Accents, I, 1), Mid(Without_Accents, I, 1))
Next
End Function
Sub test()
Debug.Print UnaccentedString("éèêëàçùôûïîÉÈÊËÀÇÙÔÛÏÎ")
End Sub