Comment remplacer les caractères accentués par des caractères normaux dans Excel ?

Remplacer les caractères accentués par des caractères normaux avec VBA

Remplacer les caractères accentués par des caractères normaux avec Kutools pour Excel

Pour les utilisateurs expérimentés de Microsoft Excel, l'utilisation d'une macro VBA est un moyen facile de gérer cette tâche complexe.

1. Maintenez les touches Alt + F11 enfoncées dans Excel, ce qui ouvre la fenêtre Microsoft Visual Basic for Applications.

2. Cliquez sur Insérer > Module, puis collez la macro suivante dans la fenêtre Module.

Function StripAccent(thestring As String)
Dim A As String * 1
Dim B As String * 1
Dim i As Integer
Const AccChars= "ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿ"
Const RegChars= "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyy"
For i = 1 To Len(AccChars)
A = Mid(AccChars, i, 1)
B = Mid(RegChars, i, 1)
thestring = Replace(thestring, A, B)
Next
StripAccent = thestring
End Function

3. Ensuite, allez dans une cellule vide et collez la formule suivante : =CheckStringCHAR(InString), par exemple =CheckStringCHAR("ù"), ou =CheckStringCHAR(A2).

Remarques :
(1) Votre Microsoft Visual Basic peut ne pas reconnaître du tout les caractères accentués s'il ne prend pas en charge Unicode. Par exemple, lorsque vous collez "š" dans Visual Basic, vous pouvez obtenir "?". Si c'est le cas, cette macro n'est pas disponible.
(2) Elle ne remplace pas directement les caractères accentués dans les chaînes de caractères de la cellule sélectionnée.

L'utilisation de macros VBA nécessite beaucoup de compétences et de connaissances. La méthode suivante vous permettra de travailler plus facilement avec seulement quelques clics. L'outil Remplacer les caractères accentués de Kutools pour Excel vous permet de remplacer facilement tous les types de caractères accentués par des caractères normaux en une seule fois.

1. Sélectionnez la plage dans laquelle vous remplacerez tous les caractères accentués.

2. Cliquez Kutools > Texte > Remplacer les caractères accentués…, voir capture d'écran :

3. Dans Remplacer les caractères accentués boîte de dialogue, cliquez sur le Sélectionner tout bouton pour sélectionner toutes les règles de remplacement, puis cliquez sur le bouton OK pour remplacer tous les caractères accentués. Voir capture d'écran :

Notes:
(1) S'il manque certains caractères accentués spécifiques que vous souhaitez, vous pouvez cliquer sur le Ajouter une règle bouton pour ajouter vos propres règles dans la boîte de liste de la boîte de dialogue Remplacer les caractères accentués ci-dessus.
(2) Vous pouvez personnaliser de nouvelles règles de remplacement dans la boîte de dialogue Remplacer les caractères accentués.

Maintenant, tous les caractères accentués dans les chaînes de caractères de la plage sélectionnée seront immédiatement convertis en caractères normaux. Voir capture d'écran :

La fonctionnalité Remplacer les caractères accentués de Kutools pour Excel peut facilement remplacer tous les types de caractères accentués par des caractères normaux dans tout le classeur. Essayez gratuitement !