Fonction qui enlève les accents

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 156 fois - Téléchargée 42 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

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 !
ephores
Messages postés
123
Date d'inscription
lundi 30 juin 2003
Statut
Membre
Dernière intervention
5 juin 2007

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 !

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.