Fonction qui enlève les accents

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 516 fois - Téléchargée 44 fois

Contenu du snippet

Aucune description n'est fournie pour ce projet

A voir également

Ajouter un commentaire Commentaires
FLYeRNeT Messages postés 26 Date d'inscription mardi 21 novembre 2000 Statut Membre Dernière intervention 17 novembre 2007
6 avril 2007 à 15:30
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
18 août 2005 à 23:47
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
25 juil. 2005 à 14:29
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
8 août 2004 à 11:27
peux tu m'expliquer ça :

If Asc(Lettre) > 127 Then

Merci !
ephores Messages postés 123 Date d'inscription lundi 30 juin 2003 Statut Membre Dernière intervention 5 juin 2007
8 août 2004 à 11:26
Merci ta fonction m'a été utile, tu as toutefois oublié quelques caractères , come â ou ô entre autre.
Mais on peut bien le faire quand même !
Afficher les 7 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.