leneuf22
Messages postés156Date d'inscriptionsamedi 12 janvier 2002StatutMembreDernière intervention 4 mars 2003
-
18 juil. 2002 à 20:19
FLYeRNeT
Messages postés26Date d'inscriptionmardi 21 novembre 2000StatutMembreDernière intervention17 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.
FLYeRNeT
Messages postés26Date d'inscriptionmardi 21 novembre 2000StatutMembreDernière intervention17 novembre 2007 6 avril 2007 à 15:30
il manque Case "Â": Lettre = "A"
Case "Ô": Lettre = "O" etc....
cecemel1
Messages postés2Date d'inscriptionsamedi 6 novembre 2004StatutMembreDernière intervention18 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() )...
6 avril 2007 à 15:30
Case "Ô": Lettre = "O" etc....
18 août 2005 à 23:47
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é
25 juil. 2005 à 14:29
8 août 2004 à 11:27
If Asc(Lettre) > 127 Then
Merci !
8 août 2004 à 11:26
Mais on peut bien le faire quand même !
18 juil. 2002 à 21:59
Merci, je rectifie.
18 juil. 2002 à 20:19
Je plaisante, ton code est pas mal du tout ;-) (quoique le À ça peut servir)