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

Remplacez les caractères accentués par des caractères normaux avec Kutools for Excel

Pour les utilisateurs expérimentés avec Microsoft Excel, l'utilisation de la macro VBA est un moyen simple de gérer ce travail compliqué.

1. Maintenez la touche autre + F11 clés dans Excel, et il ouvre le Fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez insérer > Moduleet collez la macro suivante dans le Fenêtre du 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 dans une cellule: = CheckStringCHAR (InString), Par exemple = CheckStringCHAR ("ù")ou = CheckStringCHAR (A2).

Notes:
(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 le "š" dans Visual Basic, vous pouvez obtenir "?". Si tel est le cas, cette macro n'est pas disponible.
(2) Il ne remplace pas directement les caractères accentués dans les chaînes de la cellule sélectionnée.

Il faut trop de compétences et de connaissances pour utiliser la macro VBA. Et la méthode suivante vous aidera à travailler plus facilement avec seulement quelques clics. L'outil Remplacer les caractères accentués de Kutools for Excel vous permet de remplacer facilement à la fois toutes sortes de caractères accentués par des caractères normaux.

Kutools pour Excel - Comprend plus de 300 outils pratiques pour Excel. Essai gratuit complet de 30 jours, aucune carte de crédit requise! EN DIRECT

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. In Remplacer les caractères accentués boîte de dialogue, cliquez sur le Sélectionner tout pour sélectionner toutes les règles de remplacement, et cliquez sur le bouton OK pour remplacer tous les caractères accentués. voir capture d'écran:

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

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

The Remplacer les caractères accentués La fonctionnalité de Kutools for Excel peut facilement remplacer toutes sortes de caractères accentués par des caractères normaux dans tout le classeur. Faites un essai gratuit!