Le code suivant va vous permette d'enlever les accents en utilisant Power Query.
Power Query ou VBA
Dans cet article vous avez une situation similaire mais écrite en VBA. Seulement, en VBA, il n'est pas possible d'écrire des caractères au-delà du charactère 255 dans la table des caractères ASCII.
Seulement, il y a certains caractères, comme ż, ł ou ń qui sont au-delà de la position 255 dans la table ASCII. Donc, pour tous ces caractères particuliers, il est préférable de construire la fonction avec Power Query.
Présentation du code
Le principe de la fonction Power Query et de créer une liste double liste.
- Une liste pour chaque association de lettre à trouver / lettre à convertir
- L'ensemble de ses associations regroupé dans une autre liste
(MyText as text) =>
let
ListAccents =
{
{"à","a"},
{"á","a"},
{"â","a"},
{"ã","a"},
{"ä","a"},
{"å","a"},
{"è","e"},
{"é","e"},
..........
{"ś","s"},
{"ż","z"},
{"ź","z"},
{"Ą","A"},
{"Ć","C"},
{"Ę","E"},
{"Ł","L"},
{"Ń","N"},
{"Ś","S"},
{"Ż","Z"},
{"Ź","Z"},
}
in
Text.Combine(List.ReplaceMatchingItems(Text.ToList(MyText), ListAccents))
Enfin, tout ce tableau va être utilisé dans la fonction Text.ToList qui va éclater le texte MyText en une suite de lettre unique en mémoire. L'instruction List.ReplaceMatchingItems va quant à elle effectuer le remplacement des lettres présentes dans le tableau de conversion.
Télécharger le code
Vous pouvez télécharger le code complet ici.
