Contexte
Vous avez inséré des commentaires dans votre tableau Excel. Vous avez trouvé comment afficher les commentaires (Onglet Révision > bouton Afficher tout), vous avez trouvé comment imprimer les commentaires (Fichier > Imprimer > bouton Mise en page > onglet Feuille > Options Commentaires)… mais vous n’avez pas trouvé comment imprimer les petits triangles rouges (appelés indicateurs) figurant au coin des cellules possédant des commentaires. Normal ! cette fonctionnalité n’existe pas. Pour combler cette lacune, nous devons créer deux macros, la 1ère pour imprimer les indicateurs et la 2ème pour ne plus les imprimer.
Note : Ces macros fonctionnent aussi bien sur Mac que sur PC.
Solution
1. Créer une macro pour imprimer les indicateurs de commentaires
- Allez dans l’onglet Développeur > bouton Macro
- Dans la boîte de dialogue Macro, donnez un nom (dans notre cas, vous pouvez écrire n’importe quoi) et cliquez sur le bouton Créer
- Dans la fenêtre Module, supprimez Sub() et End Sub
- Copiez-collez tel quel le code ci-dessous :
Sub ImprimerIndicateursCommentaires()
Dim ws As Worksheet
Dim cmt As Comment
Dim rngCmt As Range
Dim shpCmt As Shape
Dim shpW As Double ‘shape width
Dim shpH As Double ‘shape height
Set ws = ActiveSheet
shpW = 6
shpH = 4
For Each cmt In ws.Comments
Set rngCmt = cmt.Parent
With rngCmt
Set shpCmt = ws.Shapes.AddShape(msoShapeRightTriangle, _
rngCmt.Offset(0, 1).Left – shpW, .Top, shpW, shpH)
End With
With shpCmt
.Flip msoFlipVertical
.Flip msoFlipHorizontal
.Fill.ForeColor.SchemeColor = 10 ‘Red
’12=Blue, 57=Green
.Fill.Visible = msoTrue
.Fill.Solid
.Line.Visible = msoFalse
End With
Next cmt
End Sub
- Fermez la fenêtre Module
- Pour testez votre macro, allez dans l’onglet Développeur > bouton Macro et exécutez la macro appelée ImprimerIndicateursCommentaires
- Faites un aperçu avant impression pour vérifier la présence des petits triangles rouges
2. Créer une macro pour ne plus imprimer les indicateurs de commentaires
- Allez dans l’onglet Développeur > bouton Macro
- Donnez un nom (dans notre cas, vous pouvez écrire n’importe quoi) à cette 2ème macro et cliquez sur le bouton Créer
- Dans la fenêtre Module, en dessous de la 1ère macro, supprimez Sub() et End Sub
- Copiez-collez tel que le code ci-dessous :
Sub NepasImprimerIndicateursCommentaires()
Dim ws As Worksheet
Dim shp As Shape
Set ws = ActiveSheet
For Each shp In ws.Shapes
If Not shp.TopLeftCell.Comment Is Nothing Then
If shp.AutoShapeType = _
msoShapeRightTriangle Then
shp.Delete
End If
End If
Next shp
End Sub
- Fermez la fenêtre Module
- Pour testez votre macro, allez dans l’onglet Développeur > bouton Macro et exécutez la macro appelée NepasImprimerIndicateursCommentaires
- Faites un aperçu avant impression pour vérifier l’absence des petits triangles rouges
Le détail qui fait boutique : associer aux macros un raccourci clavier (à l’aide du bouton Options de la boîte de dialogue Macro) ou un bouton dans la barre d’outils (Affichage > Barres d’outils > Personnaliser les barres d’outils et les menus > onglet Commandes > catégorie Macro).
