ignorer les accents

BIL boud · 23 Mars 2019

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 · 23 Mars 2019

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 · 24 Mars 2019

bonjour,
liste un peu plus complète:

VB:

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 · 24 Mars 2019

sixair à dit:

bonjour,
liste un peu plus complète:

VB:

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

ignorer les accents

BIL boud

XLDnaute Occasionnel

BIL boud

XLDnaute Occasionnel

sixair

XLDnaute Junior

BIL boud

XLDnaute Occasionnel

Discussions similaires