Microsoft 365 Impression

Moreno076 · 21 Février 2020

Bonsoir à tous.
Je voudrais rajouter à cette macro la condition d'imprimer que les lignes remplies

Sub IMPRESSION()
'
' IMPRESSION Macro
'

Range("A:A").Select
Selection.EntireColumn.Hidden = True
ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True, _
IgnorePrintAreas:=False
Range("B2").Select
End Sub

Une solution? Merci

job75 · 21 Février 2020

Bonsoir Moreno076,

En effet il faut masquer les lignes qu'on ne veut pas imprimer.

Mais quelles colonnes doivent être vides pour qu'on masque une ligne ?

A priori j'utiliserai le filtre avancé.

A+

Moreno076 · 21 Février 2020

job75 à dit:
Bonsoir Moreno076,

En effet il faut masquer les lignes qu'on ne veut pas imprimer.

Mais quelles colonnes doivent être vides pour qu'on masque une ligne ?

A priori j'utiliserai le filtre avancé.

A+

Bonsoir.
Dans ma macro la colonne A se masque c'est ce que je veux après il peut y avoir 5 10 100 lignes, ca depend. Il faut que toutes les lignes soient imprimées sauf vides.

A+

job75 · 22 Février 2020

A priori d'après l'image il s'agit d'imprimer les colonnes B:N :

VB:

Sub Impression()
With ActiveSheet 'à adapter
    .PageSetup.Zoom = False
    .PageSetup.FitToPagesWide = 1 '1 page en largeur
    .PageSetup.PrintArea = "B:N" 'zone d'impression
    .[O2] = "=COUNTIF(B2:N2,""><"")+COUNT(B2:N2)" 'critère de filtrage
    .[A:N].AdvancedFilter xlFilterInPlace, .[O1:O2] 'filtre avancé
    '.PrintPreview 'pour tester
    .PrintOut 'pour imprimer
    .[O2] = ""
    If .FilterMode Then .ShowAllData
End With
End Sub

Edit 1 : j'avais oublié de mettre le Zoom à False.

Edit 2 : s'il y a des valeurs d'erreur elles seront traitées comme les vides.

Microsoft 365 Impression

Moreno076

XLDnaute Impliqué

job75

XLDnaute Barbatruc

Moreno076

XLDnaute Impliqué

job75

XLDnaute Barbatruc

Discussions similaires