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?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacky
Bonjour,
Que devrais-je ajouter à la fonction pour ce faire?
Case 231: x = "c"
-- Salutations JJ
"Flac" a écrit dans le message de news:
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
Bonjour,
Que devrais-je ajouter à la fonction pour ce faire?
Case 231: x = "c"
--
Salutations
JJ
"Flac" <luc_bt@hotmail.com> a écrit dans le message de news:
eBtKM77JJHA.3764@TK2MSFTNGP04.phx.gbl...
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?
Que devrais-je ajouter à la fonction pour ce faire?
Case 231: x = "c"
-- Salutations JJ
"Flac" a écrit dans le message de news:
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
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" a écrit dans le message de news:
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
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" <luc_bt@hotmail.com> a écrit dans le message de news:
eBtKM77JJHA.3764@TK2MSFTNGP04.phx.gbl...
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?
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" a écrit dans le message de news:
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
Salut Flac,
Ajoute ces deux Case :
Case 199: x = "C" Case 231: x = "c"
Serge
"Flac" a écrit dans le message de news:
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
Salut Flac,
Ajoute ces deux Case :
Case 199: x = "C"
Case 231: x = "c"
Serge
"Flac" <luc_bt@hotmail.com> a écrit dans le message de news: eBtKM77JJHA.3764@TK2MSFTNGP04.phx.gbl...
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?
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?
