Excel – Supprimer caractères accentués

Macro VBA

1. Dans le fichier Excel appuyer sur les touches ALT+F11 pour ouvrir l’éditeur VBA
2. Cliquer sur le menu “Insertion” puis sur “Module”
3. Saisir le code suivant dans la fenêtre puis la fermer

Option Explicit
Function MajSansAccent$(ByVal Chaine$)
'Ti
Const VAccent = "ÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðòóôõöùúûüýÿ '", VSsAccent = "AAAAAACEEEEIIIIOOOOOUUUUYaaaaaaceeeeiiiioooooouuuuyy--"
Dim Bcle&
For Bcle = 1 To Len(VAccent)
  Chaine = Replace(Chaine, Mid(VAccent, Bcle, 1), Mid(VSsAccent, Bcle, 1))
Next Bcle
MajSansAccent = LCase(Chaine)
End Function

Utilisation de la fonction

1. Se mettre dans une nouvelle cellule du fichier Excel
2. Commencer à saisir “=Maj” puis sélectionner la fonction MajSansAccent
3. Sélectionner la cellule qui doit être mise à jour

Si la fonction doit être conservée dans le fichier Excel, celui-ci devra être enregistré au format “Classeur Excel (prenant en charge les macros) (*.xslm)”