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

Comment rechercher et remplacer du texte dans les commentaires dans Excel?

Comme nous le savons, il existe une fonction Rechercher et remplacer dans Excel, et avec cette fonction, nous pouvons trouver et remplacer rapidement le contenu des cellules. Mais pouvons-nous trouver et remplacer le contenu des commentaires dans Excel?

Utilisation du code VBA pour rechercher et remplacer du texte dans les commentaires

Pour rechercher et remplacer du texte dans les commentaires rapidement et facilement

Onglet Office Activez la modification et la navigation par onglets dans Office et simplifiez considérablement votre travail ...
Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%
  • Réutiliser n'importe quoi: Ajoutez les formules, les graphiques et tout autre élément les plus utilisés ou les plus complexes à vos favoris et réutilisez-les rapidement à l'avenir.
  • Plus de 20 fonctionnalités de texte: Extraire le numéro de la chaîne de texte; Extraire ou supprimer une partie des textes; Convertissez les nombres et les devises en mots anglais.
  • Outils de fusion: Plusieurs classeurs et feuilles en un seul; Fusionner plusieurs cellules / lignes / colonnes sans perdre de données; Fusionner les lignes en double et la somme.
  • Outils de fractionnement: Diviser les données en plusieurs feuilles en fonction de la valeur; Un classeur vers plusieurs fichiers Excel, PDF ou CSV; Une colonne à plusieurs colonnes.
  • Coller sauter Lignes cachées / filtrées; Compte et somme par couleur d'arrière-plan; Envoyez des e-mails personnalisés à plusieurs destinataires en masse.
  • Super filtre: Créez des schémas de filtres avancés et appliquez-les à toutes les feuilles; Sort par semaine, jour, fréquence et plus encore; Filtre par gras, formules, commentaire ...
  • Plus de 300 fonctionnalités puissantes; Fonctionne avec Office 2007-2021 et 365 ; Prend en charge toutes les langues; Déploiement facile dans votre entreprise ou organisation.

flèche bleue bulle droite Utilisation du code VBA pour rechercher et remplacer du texte dans les commentaires

Dans Excel, il semble qu'il n'y ait pas d'autre moyen de résoudre ce problème que d'utiliser le code VBA, vous pouvez utiliser le code VBA suivant pour rechercher et remplacer du texte dans tous les commentaires. Par exemple, je remplacerai 2011 par 2012 dans tous les commentaires dans Excel.

1Cliquez sur Développeur >Visual Basic, Un nouveau Microsoft Visual Basic pour les applications la fenêtre s'affichera, cliquez sur insérer > Module puis entrez le code VBA suivant dans le module:

VBA: recherchez et remplacez du texte dans tous les commentaires dans Excel.

Remplacer les commentaires ()
Dim cmt comme commentaire
Dim wks comme feuille de travail
Dim sRechercher comme chaîne
Dim sReplace As String
Dim sCmt en tant que chaîne
sFind = "2011"
sReplace = "2012"
Pour chaque semaine dans ActiveWorkbook.
Pour chaque cmt en semaines.
sCmt = cmt.Texte
Si InStr (sCmt, sFind) <> 0 Alors
sCmt = Application.WorksheetFunction. _
Substitut (sCmt, sFind, sReplace)
cmt.Texte texte: = sCmt
Si fin
Suivant
Suivant
Set wks = Rien
Set cmt = Rien
End Sub

Remarque : Dans le code ci-dessus, vous pouvez définir le sTrouver et sRemplacer variables pour ce que vous recherchez et ce que vous voulez remplacer.

2. Puis clique dpc-remplace-comment-1 bouton pour exécuter le code, et tout 2011 dans tous les commentaires sera remplacé par 2012 dans l'ensemble du classeur.


flèche bleue bulle droite Un outil pratique pour rechercher et remplacer du texte dans les commentaires rapidement et facilement

Nous pouvons rapidement trouver et remplacer du texte dans tous les commentaires avec Kutools pour Excel's Outils de commentaire de cellule.

Kutools pour Excel: avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation dans 30 jours. Obtenez-le maintenant

Si vous avez installé Kutools for Excel, vous pouvez facilement trouver et remplacer le texte de tous les commentaires dans Excel.

1Cliquez sur Kutools > Plus > Outils de commentaire de cellule. Voir la capture d'écran:

doc-remplacer-comment-2

2. Dans le Outils de commentaire de cellule boite de dialogue:

  • (1.) Cliquez sur Rechercher / remplacer languette;
  • (2.) Sélectionnez la portée que vous souhaitez appliquer cet utilitaire, vous pouvez sélectionner Feuille active or Toutes les feuilles;
  • (3.) Entrez le texte (2011) que vous souhaitez remplacer dans le Rechercher du texte dans les commentaires et saisissez le texte spécifique (2012) que vous souhaitez utiliser dans le Remplacez-le par boîte.

doc-remplacer-comment-3

3. Et puis cliquez remplacer bouton. Toute l'année 2011 sera remplacée par 2012 dans les commentaires de la feuille de calcul active. Voir les captures d'écran:

doc-remplacer-comment-4 -2 doc-remplacer-comment-5

Notes: Si vous avez coché Afficher le résumé, il y aura une boîte de dialogue pour vous rappeler combien de commentaires de cellule ont été modifiés.

Pour plus d'informations sur Outils de commentaire de cellule, S'il vous plaît visitez Description des fonctionnalités des outils de commentaire de cellule.


Articles Liés:


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 (4)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Le code ci-dessus transforme tout le commentaire en gras. Normalement, seul le titre est en gras dans un commentaire Excel par défaut. Le code ci-dessous résout le problème. Sub ReplaceComments() Dim cmt As Comment Dim wks As Worksheet Dim sFind As String Dim sReplace As String Dim lTitleLength As Long Dim sCmt As String sFind = "2011" sReplace = "2014" For Each wks In ActiveWorkbook.Worksheets For Each cmt In wks .Comments sCmt = cmt.Text Si InStr(sCmt, sFind) 0 Alors sCmt = Application.WorksheetFunction. _ Substitute(sCmt, sFind, sReplace) cmt.Text Text:=sCmt End If lTitleLength = InStr(cmt.Text, ":") With cmt.Shape.TextFrame .Characters(1, lTitleLength).Font.Bold = True . Caractères(lTitleLength + 1, Len(cmt.Text)).Font.Bold = False End With Next Next Set wks = Nothing Set cmt = Nothing End Sub
Ce commentaire a été minimisé par le modérateur sur le site
Comment remplacer les sauts de ligne dans les commentaires ?
Ce commentaire a été minimisé par le modérateur sur le site
Je l'ai fait, changez ces 3 lignes du code ci-dessus comme ci-dessous, Chr(10) est le changement clé !

Si InStr(sCmt, Chr(10)) <> 0 Alors

sCmt = Application.WorksheetFunction. _

Remplacer(sCmt, Chr(10), sReplace)
Ce commentaire a été minimisé par le modérateur sur le site
Je l'ai fait, changez ces 3 lignes du code ci-dessus comme ci-dessous, Chr(10) est le changement clé :

Si InStr(sCmt, Chr(10)) <> 0 Alors

sCmt = Application.WorksheetFunction. _

Remplacer(sCmt, Chr(10), sReplace)
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