XL 2013 Impression personnalisée

[Usine à gaz]

Bonjour à toutes et à tous,

J'ai un souci d'impression que mes connaissances en vba et mes recherches ne m'ont pas permis de résoudre.
Naturellement, je me tourne vers vous une nouvelle fois

Voici mon souci :
Impression papier et fichier PDF
Impression lignes
"Range("B3:z" & DernièreLigne)"
ne pas imprimer la ligne 6

Impression colonnes de B à Z
pour les colonnes de J à W
ne pas imprimer les colonnes si la cellule ligne 4 de la colonne est vide

dans le fichier exemple :
Impression lignes B3 à dernière ligne de B (sauf ligne 6)
Impression colonnes B à Z (sauf : "L" - "M" et "P à W")

J'espère avoir été clair mais pas sûr du tout.
Le fichier test joint sera, j'espère plus clair

Les 2 codes fonctionnement mais ne prennent pas ma demande en compte.

Espérant que vous aurez la solution et avec mes remerciements,
Je vous souhaite une très belle journée,
Amicalement,
Lionel,

 

[job75]

Bonjour Lionel,

Il suffit de masquer provisoirement les lignes ou colonnes que l'on ne veut pas imprimer :

Dim c As Range
Rows(6).Hidden = True
For Each c In [J4:W4]
    If c.MergeArea(1) = "" Then c.MergeArea.EntireColumn.Hidden = True
Next
ActiveSheet.PrintOut 'impression
Columns("J:W").Hidden = False
Rows(6).Hidden = False

A+

 

[Usine à gaz]

Bonjour Gérard,

Merci d'être encore là
Effectivement, j'en étais arrivé à cette déduction.
Mais LOL, certainement pas aussi bien que toi.
Merci pour le code.
Je vais tester.
Amicalement,
Lionel,

 

[Usine à gaz]

Evidemment, c'est tout bon