impression sans gaspillage de papier

[DIGGERJACK]

Bonjour

Je voudrais par une macro imprimer le tableau de gauche avec les entêtes de colonnes valeur et correspondance mais uniquement s'il y a des données en colonne A, colonne qui est alimentée par liste déroulante

Le véritable tableau comporte plusieurs centaines de lignes et dans l'optique de ne pas gaspiller du papier je voudrais pouvoir imprimer uniquement ce qui est nécessaire
Dans le cas présent de la ligne 5 à la ligne 102 incluse

Merci de votre aide
Bonne soirée
Diggerjack

 

[Eric 45]

Re : impression sans gaspillage de papier

Bonsoir à tous

J'ai réglé ce problème comme ceci :

derligne=range("a1").end(xldown).row
select case derligne

case is >  x fois 56 ... dans le cas present le dernière ligne de la page 1 est 56 donc
    activesheet.pagesetup.print area= "$a$1:$d$ x+1 fois56
case is > x-1 fois 56
    activesheet.pagesetup.print area= "$a$1:$d$ x fois56

et ainsi de suite

end select

tu descends les "case is" à chaque fois de 56 lignes.

Le "x fois 56" est la valeur la plus grande estimée de la longueur de remplissage de ton tableau, prends en 1 ou 2 de plus, cela ne mangera pas de papier supplémentaire 😉

j'espère que j'ai été clair

Eric

 

[JCGL]

Re : impression sans gaspillage de papier

Bonsoir à tous,

Tu peux essayer avec :

Sub Delimite()

Derligne = Range("A4").End(xlDown).Row
ActiveSheet.PageSetup.PrintArea = "$A$1:$D$" & Derligne
       
End Sub

Bonne soirée

 

[DIGGERJACK]

Re : impression sans gaspillage de papier

Bonsoir le forum JCGL et Eric 45

J'ai testé la macro de JCGL elle fonctionne bien mais elle met un peu de temps avant de déclencher l'impression sans doute car elle recherche la dernière donnée renseignée à partir de la ligne 65 536
Peut on accéléler ce mouvement ?
J'avoue ne pas avoir tout compris de ta macro Eric 45
Merci à vous deux
Bonne soirée
Diggerjack

 

[JCGL]

Re : impression sans gaspillage de papier

Bonsoir,

Je viens de faire un test : la zone d'impression est délimitée en 1 seconde sur 65536 lignes

A+