remplacer les cararctères accentués par leur equiv non-accentué

Bonjour
je te propose cette petite fonction :

Function OteAccents(txt)
'Flo Cabon MPFE 2003
Dim ARemplacer()
Dim RemplacerPar()
Dim Cel
Dim Caract
Dim i, a
ARemplacer = Array(" ", "À", "à", "Â", "â", "È", "è", "É", "é", "Ê",
"ê", "Ë", "ë", "Î", "î", "Ï", "ï", "Ô", "ô", "Ö", "ö", "Û", "û", "Ü",
"ü", "Ù", "ù", "Y", "ÿ")
RemplacerPar = Array(" ", "A", "a", "A", "a", "E", "e", "E", "e", "E",
"e", "E", "e", "I", "i", "I", "i", "O", "o", "O", "o", "U", "u", "U",
"u", "U", "u", "Y", "y", "Y", "y")
txt = Trim(txt)
For i = 1 To Len(txt)
Caract = Mid(txt, i, 1)
For a = 0 To UBound(ARemplacer)
If Caract = ARemplacer(a) Then
Caract = RemplacerPar(a)
End If
Next a
OteAccents = OteAccents & Caract

Next i
End Function

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta


on 09/09/2004 13:30:

Salut à tous.
Existe-t-il un utilitaire implémenté ds excel pour remplacer les caractères
accentués (majuscules ou minuscules) par leur equivalent non-accentué ?
Merci de vos réponses

Merci. C'est exactement ce que je cherchais

"Misange" <misange@devinez-ou.net> a écrit dans le message de
news:u97qBRmlEHA.536@TK2MSFTNGP11.phx.gbl...

Bonjour
je te propose cette petite fonction :

<...>