Sujet Précédent Sujet Suivant

FONCTION QUI ENLÈVE LES ACCENTS

leneuf22 Messages postés 156 Date d'inscription samedi 12 janvier 2002 Statut Membre Dernière intervention 4 mars 2003 - 18 juil. 2002 à 20:19
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
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
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 !
Sirocooo Messages postés 412 Date d'inscription mercredi 19 décembre 2001 Statut Membre Dernière intervention 7 avril 2008 1
18 juil. 2002 à 21:59
Tiend comment ca le À m'a échappé !!
Merci, je rectifie.
leneuf22 Messages postés 156 Date d'inscription samedi 12 janvier 2002 Statut Membre Dernière intervention 4 mars 2003 1
18 juil. 2002 à 20:19
Héhé, que fais tu des À, Á, Â, Ã, Å...
Je plaisante, ton code est pas mal du tout ;-) (quoique le À ça peut servir)

Discussions similaires

remise a zero de fonction
cs_galian -
ADPro22 -

6 réponses
erreur de compilation sub et function non definie
ioulia1 -
daffy17 -

6 réponses
Enlever les accents d'un string
SharpMao -
Whismeril -

13 réponses
Calcul d'une puissance en C avec pow()
Smallstones2 -
coucou747 -

13 réponses
EXCEL, faire l'inverse tangente atan pour avoir une valeur en degré minute
wind3813 -
wind3813 -

2 réponses
Rejoignez-nous