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

Remplacer Caractères accentués par des caractères normaux à l’aide de VBA

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

Pour les utilisateurs expérimentés de Microsoft Excel, une macro VBA offre une solution simple pour accomplir cette tâche complexe.

1. Maintenez enfoncées les touches Alt + F11 dans Excel pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insertion > 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, accédez à une cellule vide et saisissez-y la formule suivante : =CheckStringCHAR(InString), par exemple =CheckStringCHAR(«ù») ou =CheckStringCHAR(A2).

Remarques :
(1) Votre Microsoft Visual Basic pourrait ne pas reconnaître du tout les caractères accentués s’il ne prend pas en charge Unicode. Par exemple, lorsque vous collez le caractère « š » dans Visual Basic, il peut s’afficher sous la forme « ? ». Dans ce cas, cette macro n’est pas utilisable.
(2) Elle ne remplace pas directement les caractères accentués dans les chaînes de la cellule sélectionnée.

Utiliser une macro VBA exige trop de compétences et de connaissances. La méthode suivante vous permet de gagner du temps en quelques clics seulement.L’outil « Remplacer les caractères accentués » de Kutools pour Excel vous permet de remplacer facilement et en un seul clic tous les caractères accentués par leurs équivalents non accentués.

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

2.Cliquez sur Kutools>Texte>Remplacer Caractères accentués…, voir la capture d’écran :

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

Remarques :
(1) Si certains caractères accentués spécifiques que vous recherchez ne figurent pas dans la liste, cliquez sur le bouton Ajouter une règle pour créer vos propres règles dans la zone de liste de la boîte de dialogue Remplacer Caractères accentués ci-dessus.
(2) Vous pouvez personnaliser de nouvelles règles de remplacement directement dans la boîte de dialogue Remplacer Caractères accentués.

Tous les Caractères accentués présents dans les chaînes de Sélectionner la plage sont désormais immédiatement convertis en caractères normaux. Voir la capture d’écran :

La fonctionnalité Remplacer Caractères accentuésde Kutools pour Excel permet de remplacer facilement toutes sortes de Caractères accentués par des caractères normaux dans l’intégralité du classeur.Essayez gratuitement !