XL 2013 Suppression lignes

[Moreno076]

Bonsoir à tous

Dans ma macro Impression suivante

Sub Impression()
'
' IMPRESSION Macro
'
With ActiveSheet.PageSetup
.CenterHeader = "&""Arial,Gras""&26&K75923CSuivi des ruptures au " & Format(VBA.Now, "dddd d mmmm yyyy")
End With

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

Je souhaiterais que ca supprime préalablement les lignes du tableau contenant dans la colonne O "Enlever ruptures"

Comment faire svp.

Merci

 

[Staple1600]

Bonsoir

Juste pour épargner mes yeux

Sub Impression()
' IMPRESSION Macro
With ActiveSheet.PageSetup
.CenterHeader = "&""Arial,Gras""&26&K75923CSuivi des ruptures au " & Format(VBA.Now, "dddd d mmmm yyyy")
End With
Columns(1).Hidden = True
ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True, _
IgnorePrintAreas:=False
Columns(1).Hidden = False
End Sub

NB: mais avec un petit bonus quand même

 

[Moreno076]

Bonsoir

Juste pour épargner mes yeux

Sub Impression()
' IMPRESSION Macro
With ActiveSheet.PageSetup
.CenterHeader = "&""Arial,Gras""&26&K75923CSuivi des ruptures au " & Format(VBA.Now, "dddd d mmmm yyyy")
End With
Columns(1).Hidden = True
ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True, _
IgnorePrintAreas:=False
Columns(1).Hidden = False
End Sub

NB: mais avec un petit bonus quand même

Merci pour cette compression

 

[Staple1600]

Re

Tu as compris que c'était surtout un appel du pied pour tu formates le code VBA dans tes messages avec les balises BBCODE idoines.
C'est à dire: [CODE=vb]Code VBA[/CODE]

 

[Moreno076]

D'accord

 

[Moreno076]

Ou si pas possible de supprimer ligne tableau, indiquer la date du jour dans la colonne M si dans la colonne A c'est celle du jour aujourd'hui. en vba Merci