N'imprimer que les cellules visibles d'une plage

[exene]

Bonjour,

Dans mon calendrier, je souhaiterais imprimer uniquement les cellules visibles de la plage A1:C32.

Auriez vous une solution ?

Merci

 

[mth]

Re : N'imprimer que les cellules visibles d'une plage

Bonjour exene,

Un petit essais permettant de définir la zone d'impression:

Sub imprim()
Dim VDerlig As Long
With ActiveSheet
        Vderlig = .Cells(.Rows.Count, "A").End(xlUp).Row
        .PageSetup.PrintArea = "$A$1:$A$" & VDerlig
End With
 
End Sub

Bonne journée,

mth

 

[exene]

Re : N'imprimer que les cellules visibles d'une plage

Bonjour,

Merci de m'avoir répondu, je vais tester la macro.

Bon dimanche

@+

 

[david84]

Re : N'imprimer que les cellules visibles d'une plage

Bonjour exene, mth🙂,

Sub imprim()
Dim VDerlig As Long
With ActiveSheet
Vderlig = .Cells(.Rows.Count, "A").End(xlUp).Row
.PageSetup.PrintArea = "$A$1:$A$" & VDerlig
End With

End Sub

.PageSetup.PrintArea = "$A$1:$A$" & VDerlig

ne sélectionne-t-il pas que la plage A1:A32 ?
Ne faudrait-il pas plutôt :

.PageSetup.PrintArea = "$A$1:$C$" & VDerlig

pour sélectionner la plage A1:C32 ?
C'est juste pour comprendre😱
A+

 

[mth]

Re : N'imprimer que les cellules visibles d'une plage

Bonjour david 🙂


si si tu as raison !! étourderie de ma part, j'étais restée sur l'onglet "fer", c'est bien jusqu'à la colonne C qu'exene voulait imprimer.
Désolée 😱 et merci à toi d'avoir relevé 🙂

@ +

m

 

[BOISGONTIER]

Re : N'imprimer que les cellules visibles d'une plage

Bonjour,

Sans VBA

Nom de champ
Zone_d_impression =DECALER(Feuil1!$A$1;;;NBVAL(Feuil1!$A:$A);3)

http://boisgontierjacques.free.fr/pages_site/editions.htm#ImpressionDynSansVBA

(pour tester, utiliser l'aperçu avant impression)


JB

 

[exene]

Re : N'imprimer que les cellules visibles d'une plage

Bonsoir,

Je n'ai pas d"imprimante alors c'est difficile de vous répondre. J'attends demain pour essayer vos solutions.

@+

 

[exene]

Re : N'imprimer que les cellules visibles d'une plage

Bonjour,

Jacques, je ne savais pas que la fonction DECALER permettait de créer une zone d'impression dynamique.

mth, j'ai insérer un module et copier ton code avec la modification de david, je lance la macro qui s'exécute mais je n'ai aucune impression (précision - nous travaillons en réseau- imprimante partagée)

@+

 

[mth]

Re : N'imprimer que les cellules visibles d'une plage

Bonjour à tous,

exene, les codes ou formules qui t'ont été donnés permettent de déterminer la zone d'impression. C'est ce que j'ai écrit dans le post, et je que JB indique également en disant "pour tester utiliser l'aperçu".

Ensuite pour imprimer, tu insères une ligne de code à la fin (avant le end sub() , par exemple:

ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"

que tu aurais pu trouver en utilisant l'enregistreur de macros ...!

@ +

mth

 

[exene]

Re : N'imprimer que les cellules visibles d'une plage

Re,

Merci de la précision (pas doué en VBA)

Bonne journée