Bonjour,
J'ai un tableau avec une dizaine de colonnes et un millier de lignes, je souhaite faire un filtre et imprimer un certains nombre de colonnes.
Je lance donc la macro ci dessous qui fonctionne très bien pour le tri mais ne me convient pas pour l'impression. Cela imprime bien le résultat du tri, mais cela rajoute des pages blanches. Je n'arrive pas à définir la zone d'impression. J'avais pensé définir la zone d'impression en cherchant la dernière ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
derlig = Range("I1000").End(xlUp).Row
mais cela me donne la dernière ligne du tableau complet.

D'où ma question: Comment faire pour imprimer juste le résultat du filtre?
Merci pour votre aide et excellente journée.
Pascal

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
          With Sheets("BASE")
                         selection.AutoFilter
                         ActiveSheet.Range("$B$2:$AE$1000").AutoFilter Field:=9, Criteria1:="UE"
                 With Sheets("BASE")
                      With ActiveSheet.PageSetup
                           .PrintTitleRows = "$2:$2"
                           .PrintTitleColumns = ""
                      End With
 
 
               ActiveSheet.PageSetup.PrintArea = "$B$3:$I$1000"
              ' derlig = Range("I1000").End(xlUp).Row
              ' ActiveSheet.PageSetup.PrintArea = "$B$3:$I$" & derlig
 
                      With ActiveSheet.PageSetup
                           .LeftHeader = "Etat stock &D"
                           .CenterHeader = "Union européenne (UE)"
                           .Orientation = xlPortrait
                      End With
 
                        .PrintPreview
                        '.PrintOut 'impression
                      End With
               End With