Gerry a un classeur contenant 22 feuilles de calcul. Chaque feuille de travail contient environ 20 commentaires. Certains commentaires font référence à une division de l’entreprise.

Il aimerait faire une recherche et un remplacement en masse des commentaires pour trouver chaque référence (par exemple, «Division ABC») et la remplacer par autre chose (par exemple, «filiale XYZ»).

Il n’y a aucun moyen de faire cela sans utiliser une macro. Les fonctionnalités normales de recherche et de remplacement d’Excel ne vous permettent pas de rechercher du texte dans les commentaires, mais vous pouvez utiliser des commandes macro. Voici une macro simple pour effectuer le remplacement:

Sub ReplaceComments()

Dim cmt As Comment     Dim wks As Worksheet     Dim sFind As String     Dim sReplace As String     Dim sCmt As String

sFind = "ABC Division"

sReplace = "XYZ subidiary"



For Each wks In ActiveWorkbook.Worksheets         For Each cmt In wks.Comments             sCmt = cmt.Text             If InStr(sCmt, sFind) <> 0 Then                 sCmt = Application.WorksheetFunction. _                   Substitute(sCmt, sFind, sReplace)

cmt.Text Text:=sCmt             End If         Next     Next     Set wks = Nothing     Set cmt = Nothing End Sub

Les lignes clés ici sont celles qui définissent les variables sFind et sReplace.

Vous devez les définir pour refléter ce que vous recherchez et ce que vous voulez remplacer, respectivement. La macro parcourt chaque commentaire dans chaque feuille de calcul du classeur actuel et apporte les modifications partout où ils se trouvent.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (3534) s’applique à Microsoft Excel 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban d’Excel (Excel 2007 et versions ultérieures) ici:

link: / excelribbon-Finding_and_Replacing_Text_in_Comments [Recherche et remplacement de texte dans les commentaires].