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
(244
), "
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
"
)
chaine =
Replace
(chaine, Chr
(244
), "
o
"
)
If
EnMajuscule Then
Chaine =
UCase
(Chaine)
sansAccent =
Chaine
End
Function