Note: The other languages of the website are Google-translated. Back to English

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

Avez-vous reçu des rapports avec des caractères accentués dans Microsoft Excel? Il semble fastidieux de parcourir tout le classeur et de remplacer manuellement les caractères accentués par des caractères normaux, tels que "û"à" u ". Et cet article présentera des choses délicates pour remplacer rapidement les caractères accentués par des caractères normaux dans Excel.


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

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.


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

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 de toutes les fonctionnalités 30-journée, aucune carte de crédit requise ! Achetez-le Maintenant

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:

, 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!


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2021 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
bas de cabine
Commentaires (12)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Sur la partie "Remplacer les caractères accentués par des caractères normaux avec VBA", étape 3, vous devez remplacer CheckStringCHAR par STRIPACCENT, qui est le nom de la fonction dans le code fourni !
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour, Excellent Macro. Merci d'avoir posté ceci. Cependant, je me demande si je veux remplacer tous les caractères du fichier Excel, comment puis-je le faire en même temps ? Merci Vivek
Ce commentaire a été minimisé par le modérateur sur le site
Si vous cherchez à remplacer un caractère accentué spécifique (ex. é), vous pouvez faire un Find and Replace All (rechercher "é" et remplacer par "e"). Cela a résolu mon problème.
Ce commentaire a été minimisé par le modérateur sur le site
Pas de merde Sherlock
Ce commentaire a été minimisé par le modérateur sur le site
est-il possible de remplacer plusieurs caractères par un autre caractère ? Il n'y a aucun moyen de dire que je veux remplacer é par é

Comment puis-je effectuer des remplacements en masse comme celui-ci dans Kutools for Excel? J'aime la fonctionnalité de remplacement multiple, mais ce serait beaucoup plus utile si le remplacement de mots entiers était possible. Anyboy une idée de comment je peux faire ça?
Ce commentaire a été minimisé par le modérateur sur le site
lorsque vous supprimez un caractère spécial, il supprime également l'espace entre le texte ??
Ce commentaire a été minimisé par le modérateur sur le site
La fonction VBA StripAccent() a fonctionné comme un charme, merci beaucoup pour cela. Mais je voudrais demander à quoi correspond exactement ce "* 1" à la fin de la chaîne d'initialisation "Dim A As String * 1", je n'ai jamais vu cela auparavant et je n'ai pas pu trouver de réponse moi-même jusqu'à présent.
Ce commentaire a été minimisé par le modérateur sur le site
J'ai ajouté le code et cela fonctionne parfaitement mais je dois ajouter plus d'accent au code car il me manque des accents polonais. Comment puis-je modifier le code et ajouter ces accents ? J'essaie de le faire dans un bloc-notes, puis de coller à nouveau le code, mais cela change la lettre en caractères normaux. Je ne suis pas un expert donc j'ai vraiment besoin de votre aide s'il vous plait !
Ce commentaire a été minimisé par le modérateur sur le site
Const AccChars = "ŠŽšžYAÁÂAÄAÇEÉEËIÍÎI?NOóÔOÖUÚUÜÝaáâaäaçeéeëiíîi?noóôoöuúuüýyĄĘĆŁŃóŚŻŹąęćłńóśżź"
Const RegChars = "SZszYAAAAAACEEEEIIIIDNOOOOOOUUUUYaaaaaaceeeeeiiiidnooooouuuuyyAECLNOSZZaeclnoszz"
Ce commentaire a été minimisé par le modérateur sur le site
J'ai essayé ce script VBA sur ma feuille de calcul qui avait plusieurs noms avec des caractères accentués. Cela a fait un bon travail de les nettoyer. Merci.
Ce commentaire a été minimisé par le modérateur sur le site
Dobrý deň, starší súbor xlsm mi vo win11 debuguje na tom, že nevie nájsť meno hárka "Prehľad", má problem s diakritikou.
Nie je problém zmeniť pomenovanie hárka na nové bez diakritiky resp. vyhľadať objekt inak, oveľa väčší problém je však zároveň dix,
že z tohto súboru v exceli pomocou VBA odosielam emaily a ak chcem pomocou VBA napísať telo emailu, tak sa mi v outlooku
menia písmená s diakritikou (č, ď, ť ...) na rôzne zástupné znaky. Email vyzerá nedôstojne a nechcem ho písať ani bez diakritiky,
pretože sme predsa na Slovensku a komunikujeme ešte v materinskej reči...
Môžete mi prosím napísať, či sa tento problém dá odstrániť konkrétnym nastavením windows alebo officu?
V predošlom počítači à fungovalo bez problémov.
Ďakujem pekne.
Ce commentaire a été minimisé par le modérateur sur le site
Comment puis-je remplacer plusieurs caractères par un seul ? Par example é avec e?
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL