Function MajVsMinSansAccent$(ByVal Chn_Txt$, Optional MajVsMin As Byte = 0)
'conversion d'une chaîne texte en majuscules ou minuscules non accentuées
'V1.0 by Ti_ (Thierry Pourtier) le 12-07-2004
'V1.2 by Bernard_XLD
'MajVsMin=0 ou omis -> casse conservée convertie sans accents
'MajVsMin=1 -> Majuscules sans accents
'MajVsMin=2 -> Minuscules sans accents
Const VAccent = "àáâãäåçéêëèìíîïðòóôõöñùúûüýÿÀÁÂÃÄÅÇÉÊËÈÌÍÎÏÐÒÓÔÕÖÑÙÚÛÜÝŸ", VSsAccent = "aaaaaaceeeeiiiioooooonuuuuyyAAAAAACEEEEIIIIOOOOOONUUUUYY"
Dim Bcle&
If Len(Chn_Txt) > 0 Then
For Bcle = 1 To Len(VAccent)
Chn_Txt = Replace(Chn_Txt, Mid(VAccent, Bcle, 1), Mid(VSsAccent, Bcle, 1))
Next Bcle
Select Case MajVsMin
Case 1
MajVsMinSansAccent = UCase(Chn_Txt)
Case 2
MajVsMinSansAccent = LCase(Chn_Txt)
Case Else
MajVsMinSansAccent = Chn_Txt
End Select
End If
End Function