- Function SansAccent(ByVal sText As String) As String
- '--- Remplace les caractères accentués par des non accentués
-
- Dim i As Integer
- Dim Lettre As String
-
- For i = 1 To Len(sText)
- Lettre = Mid$(sText, i, 1)
- If Asc(Lettre) > 127 Then
- Select Case Lettre
- 'Majuscule
- Case "É": Lettre = "E"
- Case "È": Lettre = "E"
- Case "Ê": Lettre = "E"
- Case "Ë": Lettre = "E"
- Case "Ä": Lettre = "A"
- Case "Ï": Lettre = "I"
- Case "Î": Lettre = "I"
- Case "Ç": Lettre = "C"
- Case "Ü": Lettre = "U"
- Case "Û": Lettre = "U"
- Case "Ö": Lettre = "O"
- 'Minuscule
- Case "é": Lettre = "e"
- Case "è": Lettre = "e"
- Case "ä": Lettre = "a"
- Case "à": Lettre = "a"
- Case "ê": Lettre = "e"
- Case "ë": Lettre = "e"
- Case "ï": Lettre = "i"
- Case "î": Lettre = "i"
- Case "ç": Lettre = "c"
- Case "ü": Lettre = "u"
- Case "û": Lettre = "u"
- Case "ö": Lettre = "o"
- End Select
- End If
- SansAccent = SansAccent + Lettre
- Next i
-
- End Function
Function SansAccent(ByVal sText As String) As String
'--- Remplace les caractères accentués par des non accentués
Dim i As Integer
Dim Lettre As String
For i = 1 To Len(sText)
Lettre = Mid$(sText, i, 1)
If Asc(Lettre) > 127 Then
Select Case Lettre
'Majuscule
Case "É": Lettre = "E"
Case "È": Lettre = "E"
Case "Ê": Lettre = "E"
Case "Ë": Lettre = "E"
Case "Ä": Lettre = "A"
Case "Ï": Lettre = "I"
Case "Î": Lettre = "I"
Case "Ç": Lettre = "C"
Case "Ü": Lettre = "U"
Case "Û": Lettre = "U"
Case "Ö": Lettre = "O"
'Minuscule
Case "é": Lettre = "e"
Case "è": Lettre = "e"
Case "ä": Lettre = "a"
Case "à": Lettre = "a"
Case "ê": Lettre = "e"
Case "ë": Lettre = "e"
Case "ï": Lettre = "i"
Case "î": Lettre = "i"
Case "ç": Lettre = "c"
Case "ü": Lettre = "u"
Case "û": Lettre = "u"
Case "ö": Lettre = "o"
End Select
End If
SansAccent = SansAccent + Lettre
Next i
End Function