Discussion :

[pascalcom]

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

[halaster08]

. 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.

Bonjour,

Tu peux compter le nombre de lignes visible avec le code ci-dessous:

Code :

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

ActiveSheet.UsedRange.SpecialCells(xlVisible).Rows.Count

[Menhir]

Normalement, si tu enlèves ton PrintArea et que tu laisses Excel se débrouiller seul pour définir la zone d'impression, il ne devrait pas imprimer des pages blanches.

Si tu veux limiter la zone aux colonne B:I, tu peux l'écrire : ActiveSheet.PageSetup.PrintArea = "$B:$I" sans préciser de ligne.

Au pire essaye ça :

Code :

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

ActiveSheet.PageSetup.PrintArea = Intersect(Columns("B:I"), ActiveSheet.UsedRange.SpecialCells(xlVisible)).Address

[clementmarcotte]

Bonjour,

Ou bien, tu peux essayer avec le filtre avancé avec extraction sur une nouvelle feuille (ou une feuille dédiée à ce seul usage) et imprimer la nouvelle feuille.

Si c'est toujours la même extraction/filtrage tu peux enregistrer une macro.