caractères accentués

Le
Flac
Bonjour à tous,
Excel à tous,
J'ai trouvé sur Internet la fonction suivante qui sert à enlever les accents
sur les mots. Elle fonctionne à merveille.

Function Virer_Accents$(Chaine$)
Dim tmp$
tmp = Trim(Chaine)
For i = 1 To Len(tmp)
x = Asc(Mid(tmp, i, 1))
Select Case x
Case 192 To 197: x = "A"
Case 200 To 203: x = "E"
Case 204 To 207: x = "I"
Case 209: x = "N"
Case 210 To 214: x = "O"
Case 217 To 220: x = "U"
Case 221: x = "Y"
Case 224 To 229: x = "a"
Case 232 To 235: x = "e"
Case 236 To 239: x = "i"
Case 241: x = "n"
Case 240, 242 To 246: x = "o"
Case 249 To 252: x = "u"
Case 253, 255: x = "y"
Case Else: x = Chr(x)
End Select
Virer_Accents = Virer_Accents & x
Next
End Function

Cependant, j'aimerais qu'elle supprime aussi la cédille
(exemple: glaçon deviendrait glacon).
Que devrais-je ajouter à la fonction pour ce faire?

Merci

Flac
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #17437301
Bonjour,

Que devrais-je ajouter à la fonction pour ce faire?


Case 231: x = "c"

--
Salutations
JJ


"Flac"
Bonjour à tous,
Excel à tous,
J'ai trouvé sur Internet la fonction suivante qui sert à enlever les
accents sur les mots. Elle fonctionne à merveille.

Function Virer_Accents$(Chaine$)
Dim tmp$
tmp = Trim(Chaine)
For i = 1 To Len(tmp)
x = Asc(Mid(tmp, i, 1))
Select Case x
Case 192 To 197: x = "A"
Case 200 To 203: x = "E"
Case 204 To 207: x = "I"
Case 209: x = "N"
Case 210 To 214: x = "O"
Case 217 To 220: x = "U"
Case 221: x = "Y"
Case 224 To 229: x = "a"
Case 232 To 235: x = "e"
Case 236 To 239: x = "i"
Case 241: x = "n"
Case 240, 242 To 246: x = "o"
Case 249 To 252: x = "u"
Case 253, 255: x = "y"
Case Else: x = Chr(x)
End Select
Virer_Accents = Virer_Accents & x
Next
End Function

Cependant, j'aimerais qu'elle supprime aussi la cédille
(exemple: glaçon deviendrait glacon).
Que devrais-je ajouter à la fonction pour ce faire?

Merci

Flac



Daniel.C
Le #17437291
Bonjour.
Ajoute :
Case 231: x = "c"
avant Case Else
Si tu as besoin de la même chose pour le ç majuscule (si ca existe ?),
dis-le.
--
Cordialement.
Daniel
"Flac"
Bonjour à tous,
Excel à tous,
J'ai trouvé sur Internet la fonction suivante qui sert à enlever les
accents sur les mots. Elle fonctionne à merveille.

Function Virer_Accents$(Chaine$)
Dim tmp$
tmp = Trim(Chaine)
For i = 1 To Len(tmp)
x = Asc(Mid(tmp, i, 1))
Select Case x
Case 192 To 197: x = "A"
Case 200 To 203: x = "E"
Case 204 To 207: x = "I"
Case 209: x = "N"
Case 210 To 214: x = "O"
Case 217 To 220: x = "U"
Case 221: x = "Y"
Case 224 To 229: x = "a"
Case 232 To 235: x = "e"
Case 236 To 239: x = "i"
Case 241: x = "n"
Case 240, 242 To 246: x = "o"
Case 249 To 252: x = "u"
Case 253, 255: x = "y"
Case Else: x = Chr(x)
End Select
Virer_Accents = Virer_Accents & x
Next
End Function

Cependant, j'aimerais qu'elle supprime aussi la cédille
(exemple: glaçon deviendrait glacon).
Que devrais-je ajouter à la fonction pour ce faire?

Merci

Flac



garnote
Le #17437281
Salut Flac,

Ajoute ces deux Case :

Case 199: x = "C"
Case 231: x = "c"


Serge



"Flac"
Bonjour à tous,
Excel à tous,
J'ai trouvé sur Internet la fonction suivante qui sert à enlever les accents sur les mots. Elle fonctionne à merveille.

Function Virer_Accents$(Chaine$)
Dim tmp$
tmp = Trim(Chaine)
For i = 1 To Len(tmp)
x = Asc(Mid(tmp, i, 1))
Select Case x
Case 192 To 197: x = "A"
Case 200 To 203: x = "E"
Case 204 To 207: x = "I"
Case 209: x = "N"
Case 210 To 214: x = "O"
Case 217 To 220: x = "U"
Case 221: x = "Y"
Case 224 To 229: x = "a"
Case 232 To 235: x = "e"
Case 236 To 239: x = "i"
Case 241: x = "n"
Case 240, 242 To 246: x = "o"
Case 249 To 252: x = "u"
Case 253, 255: x = "y"
Case Else: x = Chr(x)
End Select
Virer_Accents = Virer_Accents & x
Next
End Function

Cependant, j'aimerais qu'elle supprime aussi la cédille
(exemple: glaçon deviendrait glacon).
Que devrais-je ajouter à la fonction pour ce faire?

Merci

Flac



FFO
Le #17437271
Salut à toi

Rajoute cette ligne :

Case 231: x = "c"

celà devrait faire

Dis moi !!!!
Flac
Le #17437561
Bonjour
Merci à tous,
C'est très apprécié.

Flac
Publicité
Poster une réponse
Anonyme