Si vous utilisez un peu les commentaires dans vos feuilles de calcul, vous vous demandez peut-être s’il existe un moyen d’imprimer les commentaires, mais sans le nom et les deux points qui précédent normalement chaque commentaire. Malheureusement, il n’existe aucun moyen intégré pour y parvenir dans Excel. Cependant, une macro peut être utilisée pour extraire rapidement tous les commentaires d’une feuille de calcul et les placer dans leur propre feuille de calcul. Cette feuille de travail pourrait ensuite être imprimée, car elle constituerait un recueil de tous les commentaires. La macro est la suivante:

Sub Workbook_BeforePrint(Cancel As Boolean)

myCount = 0     For Each c In ActiveSheet.Comments         myCount = myCount + 1         myComment = ActiveSheet.Comments(myCount).Text         Sheets(2).Range("a1").Offset(myCount, 0).Value = _           Mid(myComment,InStr(myComment, Chr(10)))

Next End Sub

Cette macro place les commentaires sur la deuxième feuille de calcul dans un classeur, donc si vous les voulez sur une feuille de calcul différente (afin de ne pas écraser les informations déjà sur la deuxième feuille), vous devrez apporter une modification à l’objet Sheets (2) .

Notez également que le nom de la macro est Workbook_BeforePrint. Cela signifie que la macro s’exécutera chaque fois que vous imprimerez votre feuille de calcul.

_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 (2521) 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-Adjusting_Comment_Printouts [Ajustement des impressions de commentaires].