Bonjour,
est-il possible d'utiliser cette fonction de façon a "éliminer" les
caractères accentués ?
en gros faire un remplacement de tous caractères accentués dans une cellule
par leur correspondance non accentuées ?
si le texte de départ est : élève
de pouvoir en une seule fois changer le 'é' en 'e' et le 'è' en 'e'
Avec le texte en A1 : =SUBSTITUE(SUBSTITUE(A1;"é";"e");"è";"e")
j-p
AV
est-il possible d'utiliser cette fonction de façon a "éliminer" les caractères accentués ? en gros faire un remplacement de tous caractères accentués dans une cellule par leur correspondance non accentuées ?
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 'AV
est-il possible d'utiliser cette fonction de façon a "éliminer" les
caractères accentués ?
en gros faire un remplacement de tous caractères accentués dans une cellule
par leur correspondance non accentuées ?
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 'AV
est-il possible d'utiliser cette fonction de façon a "éliminer" les caractères accentués ? en gros faire un remplacement de tous caractères accentués dans une cellule par leur correspondance non accentuées ?
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 'AV