Discussion :

[ALEX80800]

Bonjour,

J'aurais voulu savoir s'il était possible d'insérer une zone déroulante dans la fenêtre impression rapide. Cette liste déroulante correspondrait à des mois de reporting qui sont définis par des zones d'impressions figés.

Merci de votre aide

[fring]

Bonjour,

Tu pourrais insérer une liste déroulante dans un UserForm, l'afficher dans l'évènement BeforePrint de l'objet ThisWorkbook et affiner la zone d'impression selon le choix de la liste.
Ce qui donnerait un truc du style :

Code dans l'évènement Before_Print de ThisWorkbook :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    UserForm1.Show 1
    'l'impression se fera après avoir fait le choix dans la ListBox
End Sub

Code dans l'évènement ListBox1_Click du UserForm :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub ListBox1_Click()
    With Sheets("feuil1")
        Select Case Me.ListBox1.Value
            Case "janvier": .PageSetup.PrintArea = "A1:A10"
            Case "février": .PageSetup.PrintArea = "B1:B10"
            Case "mars": .PageSetup.PrintArea = "C1:C10"
            'etc...
        End Select
    End With
    Unload Me
End Sub