XL 2010 vba : impression des lignes non vides uniquement

[chajmi]

Bonjour le forum,

J'ai un tableau de plusieurs pages que je dois imprimer régulièrement.
Je souhaiterais imprimer en vba, uniquement les lignes contenant des données en colonne A.
Est ce possible ?
Merci de votre aide bien précieuse.

 

[piga25]

Bonjour,
En masquant les lignes ne contenant aucune donnée en colonne A

Sub MasquerLesLignesVides()
Dim NbLignes As Long, i As Long, Debut
    Application.ScreenUpdating = False
        NbLignes = Range("A65535").End(xlUp).Row
        For i = NbLignes To 3 Step -1
            If Range("IV" & i).End(xlToLeft).Column = 1 And Cells(i, 1) = Empty _
               Then Rows(i).Hidden = True
        Next i
    Application.ScreenUpdating = True
End Sub

 

[Staple1600]

Bonsoir le fil, le forum

Une autre façon de faire
(en partant du principe qu'il s'agit de cellules vides
*une cellule qui contient 0 n'est pas vide)

Sub Macro1()
Dim DerLig&
DerLig = Cells(Rows.Count, 1).End(3).Row
Range("A1:A" & DerLig).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange.Address
ActiveSheet.PrintPreview
End Sub

NB: test OK sur mon PC.