#SysAdmin #NetAdmin

Excel – Supprimer caractères accentués

E

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) »

par Nathan
#SysAdmin #NetAdmin