FONCTION QUI ENLÈVE LES ACCENTS

Signaler
Messages postés
156
Date d'inscription
samedi 12 janvier 2002
Statut
Membre
Dernière intervention
4 mars 2003
-
FLYeRNeT
Messages postés
26
Date d'inscription
mardi 21 novembre 2000
Statut
Membre
Dernière intervention
17 novembre 2007
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/4063-fonction-qui-enleve-les-accents

FLYeRNeT
Messages postés
26
Date d'inscription
mardi 21 novembre 2000
Statut
Membre
Dernière intervention
17 novembre 2007

il manque Case "Â": Lettre = "A"
Case "Ô": Lettre = "O" etc....
cecemel1
Messages postés
2
Date d'inscription
samedi 6 novembre 2004
Statut
Membre
Dernière intervention
18 août 2005

J'ai un peu transformé le code...
Pour moi, peu importe les majuscules ou minuscules parce que je transforme tout en majuscule après (avec Ucase() )...

Voici le bout de code :

Public Function SansAccents(Texte As String)
SansAccents = Replace(Texte, "é", "e")
SansAccents = Replace(SansAccents, "è", "e")
SansAccents = Replace(SansAccents, "ä", "e")
SansAccents = Replace(SansAccents, "à", "a")
SansAccents = Replace(SansAccents, "ê", "e")
SansAccents = Replace(SansAccents, "ë", "e")
SansAccents = Replace(SansAccents, "î", "i")
SansAccents = Replace(SansAccents, "ï", "i")
SansAccents = Replace(SansAccents, "ç", "c")
SansAccents = Replace(SansAccents, "û", "u")
SansAccents = Replace(SansAccents, "ü", "u")
SansAccents = Replace(SansAccents, "ô", "o")
SansAccents = Replace(SansAccents, "â", "a")
SansAccents = Replace(SansAccents, "ö", "o")
SansAccents = Replace(SansAccents, "ù", "u")
SansAccents = Replace(SansAccents, "ò", "o")

End Function

Je l'applique sur un txbox_change, et je n'ai aucun soucis !
Voilà, si non, très bien aussi
Hervé
rjl61
Messages postés
1
Date d'inscription
lundi 25 juillet 2005
Statut
Membre
Dernière intervention
25 juillet 2005

Merci de cette fonction toujours utile, en 2005, aux nuls comme moi ; j'ai adapté à mon utilisation : c'est super. RJL20050725
ephores
Messages postés
123
Date d'inscription
lundi 30 juin 2003
Statut
Membre
Dernière intervention
5 juin 2007

peux tu m'expliquer ça :

If Asc(Lettre) > 127 Then

Merci !