(..)
Alors voici l'idée
D'abord les procédures :
=>Dans ThisWorkbook
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.Shapes.Range(Array("image1")).Visible = msoTrue
ActiveSheet.Shapes.Range(Array("image2")).Visible = msoTrue
End Sub
=>Feuil1 (celle qui contient le graph)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target.Row = 3) And (Target.Column = 3) Then
ActiveSheet.Shapes.Range(Array("image1")).Visible = msoTrue
ActiveSheet.Shapes.Range(Array("image2")).Visible = msoFalse
Cells(1, 1).Select
End If
If (Target.Row = 17) And (Target.Column = 3) Then
ActiveSheet.Shapes.Range(Array("image1")).Visible = msoFalse
ActiveSheet.Shapes.Range(Array("image2")).Visible = msoTrue
Cells(1, 1).Select
End If
End Sub
=> Dans un module non événement
Sub image1_Cliquer()
ActiveSheet.Shapes.Range(Array("image1")).Visible = msoFalse
Cells(1, 1).Sel ect
End Sub
Sub image2_Cliquer()
ActiveSheet.Shapes.Range(Array("image2")).Visible = msoFalse
Cells(1, 1).Select
End Sub
Maintenant l'explication :
Dans feuil2 qui contient les infos "à voir"
tu fais une photo (avec l'outil photo d'Excel) de la cellule concernée que tu copie dans la feuil1
etc. pour toutes les cellules concernées
tu positionnes les images où tu veux pour quelles soient visibles dans la zone d'impression
tu les nommes (cf. code imageN)
tu adaptes la procédure Selection_Change en fonction de la cellule où tu indique les "cellules résumés"