ignorer les accents

[BIL boud]

bonjour

je dois comparer une liste de nom prenom dans les cellules A2:A20 avec une autre plage de nom prenom de c24 : c100
j'ai reussi a etablir un code de comparison mais le problme c quand il ya un accent

voici mon code

Dim k As Long, L As Long



For L = 2 To 20


For k = 24 To 100
If Cells(L, 1) <> "" Then
If Cells(k, 3) <> "" Then
If Cells(k, 3) = Cells(L, 1) Then
Cells(L, 2) = k - 23

ElseIf x = z And y = w Then
Cells(L, 2) = k - 23
End If
End If
End If



Next
Next


il compare les cellule de la plage a2 : a20 avec les cellules c24: c100, si il touve le mm nom prenom il renvoie le numero de la ligne ou il se trouve

jusqua la ca marche
mais qund il y laccend que dasn une cellule le code ne sexcute pas

exemple

dans la cellule A2 = VALENTIN Baremi
dans la cellule c24= VALENTIN Barémi

c le mm nom prenom mais le code ne recupere pas la ligne parceque dans la cellule c24 il le é

donc je cherche un code qui ignore laccent si c possible

merci

 

[BIL boud]

c bon jai trouve un code

Function ch_sans_accent(ch_characters As Range)
liste_accents = "ÉÈÊËÔéèêëàçùôûïî"
liste_sans_accents = "EEEEOeeeeacuouii"
tempo = ch_characters.Value
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
End Function

 

[sixair]

bonjour,
liste un peu plus complète:

Option Explicit
' Définition de la conversion
Const Accent As String = "ÀÁÂÃÄÅàáâãäåÒÓÔÕÖØòóôõöøÈÉÊËèéêëÌÍÎÏìíîïÙÚÛÜùúûüÿÑñÇç"
Const noAccent As String = "AAAAAAaaaaaaOOOOOOooooooEEEEeeeeIIIIiiiiUUUUuuuuyNnCc"
' La fonction :
Public Function SansAccents(ByRef s As String) As String
Dim i As Integer
Dim lettre As String * 1
  SansAccents = s
  For i = 1 To Len(Accent)
    lettre = Mid$(Accent, i, 1)
    If InStr(SansAccents, lettre) > 0 Then
       SansAccents = Replace(SansAccents, lettre, Mid$(noAccent, i, 1))
    End If
  Next i
End Function

 

[BIL boud]

bonjour,
liste un peu plus complète:

Option Explicit
' Définition de la conversion
Const Accent As String = "ÀÁÂÃÄÅàáâãäåÒÓÔÕÖØòóôõöøÈÉÊËèéêëÌÍÎÏìíîïÙÚÛÜùúûüÿÑñÇç"
Const noAccent As String = "AAAAAAaaaaaaOOOOOOooooooEEEEeeeeIIIIiiiiUUUUuuuuyNnCc"
' La fonction :
Public Function SansAccents(ByRef s As String) As String
Dim i As Integer
Dim lettre As String * 1
  SansAccents = s
  For i = 1 To Len(Accent)
    lettre = Mid$(Accent, i, 1)
    If InStr(SansAccents, lettre) > 0 Then
       SansAccents = Replace(SansAccents, lettre, Mid$(noAccent, i, 1))
    End If
  Next i
End Function

bonjour

merci mais je ne sais pas comment utiliser celui la si vous pouvez maider