Comment rechercher et remplacer du texte dans les commentaires (notes) dans Excel ?

La fonction Rechercher et Remplacer d'Excel est un outil puissant pour mettre à jour rapidement le contenu des cellules, mais elle ne s'applique pas directement aux Notes — le nouveau nom des commentaires traditionnels avant Excel 2019. De nombreux utilisateurs se demandent s'il est possible d'appliquer la même fonctionnalité au texte contenu dans les Notes d'Excel. Ce guide vous montrera comment rechercher et remplacer efficacement du texte dans les Notes, élargissant ainsi votre capacité à gérer et affiner tous les aspects de vos feuilles de calcul.

Utiliser du code VBA pour rechercher et remplacer du texte dans les commentaires (notes)

Un outil pratique pour rechercher et remplacer rapidement et facilement du texte dans les commentaires (notes)

Utiliser du code VBA pour rechercher et remplacer du texte dans les commentaires (notes)

Dans Excel, vous pouvez utiliser le code VBA suivant pour rechercher et remplacer du texte dans toutes les notes. Par exemple, je vais remplacer le texte "2011" par le texte "2012" dans toutes les notes d'Excel.

1. Cliquez sur Développeur > Visual Basic et une nouvelle fenêtre Microsoft Visual Basic pour Applications s'affichera, cliquez sur Insérer > Module, puis saisissez le code VBA suivant dans le Module :

Code VBA : Rechercher et remplacer du texte dans toutes les notes d'Excel

Sub ReplaceNotes()
'Updated by Extendoffice 2024/07/25   
    Dim cell As Range
    Dim wks As Worksheet
    Dim sFind As String
    Dim sReplace As String
    Dim sNote As String
    ' Define the text to find and replace
    sFind = "2011"
    sReplace = "2012"
    ' Loop through each worksheet in the active workbook
    For Each wks In ActiveWorkbook.Worksheets
        For Each cell In wks.Cells
            If cell.NoteText <> "" Then
                sNote = cell.NoteText
                If InStr(sNote, sFind) > 0 Then
                    sNote = Replace(sNote, sFind, sReplace)
                    cell.NoteText Text:=sNote, Start:=1, Length:=Len(cell.NoteText)
                End If
            End If
        Next cell
    Next wks
End Sub
  

2. Ensuite, cliquez sur le bouton pour exécuter le code, et tous les "2011" dans toutes les notes seront remplacés par "2012" dans tout le classeur.

Un outil pratique pour rechercher et remplacer rapidement et facilement du texte dans les commentaires (notes)

Nous pouvons rapidement rechercher et remplacer du texte dans toutes les notes avec Kutools pour Excel Rechercher/Remplacer le texte des notes.

Si vous avez installé Kutools pour Excel, vous pouvez facilement rechercher et remplacer du texte dans toutes les notes d'Excel.

1. Cliquez sur Kutools > Plus > Rechercher/Remplacer le texte des notes.

2. Dans la boîte de dialogue Rechercher/Remplacer le texte des notes :

• (1.) Sélectionnez la portée à laquelle vous souhaitez appliquer cet utilitaire, vous pouvez sélectionner Feuille active ou Toutes les feuilles ;
• (2.) Entrez le texte (2011) que vous souhaitez remplacer dans la zone Rechercher du texte dans les notes, et saisissez le texte spécifique (2012) que vous souhaitez utiliser dans la zone Remplacer par.

3. Puis cliquez sur le bouton Remplacer. Tous les 2011 seront remplacés par 2012 dans les commentaires de la feuille de calcul active. Voir les captures d'écran :

Articles connexes :

• Modifier tous les formats de commentaires dans les cellules
• Modifier le nom de l'auteur de tous les commentaires
• Lister tous les commentaires dans une nouvelle feuille de calcul ou un nouveau classeur
• Afficher ou masquer tous les commentaires et indicateurs de commentaires dans Excel
• Convertir le contenu des cellules en commentaires dans Excel
• Convertir les commentaires en contenu de cellule dans Excel