1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
|
'Cette fonction remplace les lettres avec accents pour les même mais sans accents
Public Function sansAccent(ByVal chaine As String, EnMajuscule As Boolean) As String
chaine = LCase(chaine)
chaine = Replace(chaine, Chr(232), "e")
chaine = Replace(chaine, Chr(233), "e")
chaine = Replace(chaine, Chr(234), "e")
chaine = Replace(chaine, Chr(235), "e")
chaine = Replace(chaine, Chr(249), "u")
chaine = Replace(chaine, Chr(250), "u")
chaine = Replace(chaine, Chr(251), "u")
chaine = Replace(chaine, Chr(242), "o")
chaine = Replace(chaine, Chr(254), "o")
chaine = Replace(chaine, Chr(255), "y")
chaine = Replace(chaine, Chr(224), "a")
chaine = Replace(chaine, Chr(225), "a")
chaine = Replace(chaine, Chr(226), "a")
chaine = Replace(chaine, Chr(238), "i")
chaine = Replace(chaine, Chr(239), "i")
If EnMajuscule Then chaine = UCase(chaine)
sansAccent = chaine
End Function |
Partager