XL 2016 Ne pas imprimer les lignes vides

[Hurricane.Tn]

Bonjour, j'ai un classeur qui contient un tableaux avec plusieurs lignes et une mise en page et bordure je veux créer une macro d'impression qui affiche un aperçu avant l'impression et je ne veux pas imprimer les lignes vides tout en gardant la mise en page lors de l'impression.
merci.

 

[GALOUGALOU]

bonjour hurricane.tn bonjour le forum
avec un filtre élaboré sur la colonne A qui filtre les cellules vides

Sub Macro1()

    Range("A4:G5000").Select
    If ActiveSheet.AutoFilterMode = False Then
    Selection.AutoFilter
    ActiveSheet.Range("$A$4:$G$5000").AutoFilter Field:=1, Criteria1:="<>"
      MsgBox "Impression des données visibles à l'écran "
    ActiveWindow.SelectedSheets.PrintPreview
    Selection.AutoFilter
     Range("A1").Select
    Else

        Selection.AutoFilter
        Range("A1").Select
            MsgBox "Annulation du filtre, recommencez la procédure "
    End If
End Sub

cordialement
galougalou

 

[Hurricane.Tn]

Merci infiniment GALOUGALOU ;)

 

[job75]

Bonjour Hurricane.Tn, GALOUGALOU,

Sub Imprimer()
With Sheets("Rapport ") 'espace superflu dans le nom !!!
    .Cells.Replace " ", "", xlWhole 'supprime les espaces superflus !!!
    .PageSetup.PrintArea = .Range("A1", [A4].CurrentRegion).Address
    .PageSetup.Zoom = False
    .PageSetup.FitToPagesWide = 1
    .Rows("2:3").Hidden = True
    .PrintPreview 'pour tester
    '.PrintOut 'pour imprimer
    .Rows("2:3").Hidden = False
End With
End Sub

A+

 

[GALOUGALOU]

bonjour job75 re le fil
une petite question à job75
avec votre solution, si nous supprimons les informations de la ligne 13 (donc ligne 13 est vide) il semblerait que les lignes de 14 à 21 ne soient pas imprimées. auriez vous une solution ?
cordialement
galougalou

 

[job75]

Bien sûr en utilisant CurrentRegion on s'arrête à la 1ère ligne vide.

Sinon il faut utiliser End(xlUp) :

Sub Imprimer()
With Sheets("Rapport ") 'espace superflu !!!
    .Cells.Replace " ", "", xlWhole 'supprime les espaces superflus !!!
    .PageSetup.PrintArea = .Range("A1:G" & .Range("A" & .Rows.Count).End(xlUp).Row).Address
    .PageSetup.Zoom = False
    .PageSetup.FitToPagesWide = 1
    .Rows("2:3").Hidden = True
    .PrintPreview 'pour tester
    '.PrintOut 'pour imprimer
    .Rows("2:3").Hidden = False
End With
End Sub

 

[GALOUGALOU]

ok merci

 

[Hurricane.Tn]

Vraiment Merci pour vous les gars