Microsoft 365 Impression

Moreno076

XLDnaute Impliqué
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

1582308431462.png
 

Moreno076

XLDnaute Impliqué
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

XLDnaute Barbatruc
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.
 
Dernière édition:

Discussions similaires

Réponses
4
Affichages
330