XL 2013 Défiir une zone d'impression

ced30l · 20 Octobre 2016

Bonjour,

Au boulot, suite à de nombreuses erreur de mise en page, sur une base de données, j'ai créer une petite macro qui crée les zones d'impression de chaque pages, la mise en forme, etc....

Problème aujourd'hui le code pour la zone d'impression se limite à :

Sélection de la plage manuellement, zone d'impression, définir. et cela sur chaque page.

Problème le nombre de ligne est évolutif, j'ai pour le moment pris les 150 premières lignes de chaque pages, mais cela peut-être plus, et même souvent moins. Or en faisant comme cela, si mon tableau rentre sur une page, l'imprimante m'imprime une page blanche pour les lignes inutilisé.

Donc j'aimerais savoir comment modifier le code de base pour que l'on sélectionne Colonne de A à I et jusqu'à la dernière ligne utilisé, puis après je laisse le reste du code que j'ai.

Merci.

Je ne peux pas vous mettre de modèle, n'ayant plus office à la maison.

Theze · 20 Octobre 2016

Bonjour,

Et ton code il est où ?

DoubleZero · 20 Octobre 2016

Bonjour, ced30l, Theze, le Forum,

Un essai, avec le code suivant :

Code:

Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    With ActiveSheet
        .PageSetup.PrintArea = Range("a1:i" & Rows.Count).Address
'        .PrintPreview
    End With
End Sub

A bientôt

Staple1600 · 20 Octobre 2016

Bonsoir à tous

00
Ne serait pas plutôt ceci que tu voulais écrire ?

VB:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    With ActiveSheet
        .PageSetup.PrintArea = Range("a1:i" & .Cells(Rows.Count, 1).End(xlUp).Row).Address
'        .PrintPreview
    End With
End Sub

ced30l · 20 Octobre 2016

Merci, je testerais demain.

DoubleZero · 20 Octobre 2016

Re-bonjour, bonjour, Staple1600 ,

Staple1600 à dit:
...Ne serait pas plutôt ceci que tu voulais écrire ?..

Je ne le pense pas.

Sauf erreur de ma part, si le tableau comporte des cellules vides entre a"1" et i"x"...

A bientôt

Staple1600 · 20 Octobre 2016

Re

Donc j'aimerais savoir comment modifier le code de base pour que l'on sélectionne Colonne de A à I et jusqu'à la dernière ligne utilisé

00
Tel que tu as écrit, ta zone d'impression inclura toujours toutes les lignes du classeurs, non ?
Range("a1:i" & Rows.Count).Address'00
J'ai testé avant de poster mon message.
D’où mon rajout pour circonscrire la zone à la dernière ligne non vide
Range("a1:i" & .Cells(Rows.Count, 1).End(xlUp).Row).Address 'Staple

DoubleZero · 21 Octobre 2016

Bonjour à toutes et à tous,

Staple1600 à dit:
... Tel que tu as écrit, ta zone d'impression inclura toujours toutes les lignes du classeurs, non ?..

Avec ton code, j'obtiens ceci :

Avec le mien, j'obtiens cela :

Par conséquent, je ne cmprends pas la subtilité.

A bientôt

Staple1600 · 21 Octobre 2016

Bonsoir à tous

00
Et avec cette macro, éclaire-je ta lanterne ?
(macro à lancer plusieurs fois)
NB: A tester sur un classeur qui vient de naître

VB:

Sub Subtility_Finder()
Dim OO, Staple
Randomize 7654321
Cells.Clear
Range("A1:I" & Int((Rnd * 1984) + 1)) = "=RAND()*ROW()"
OO = Range("a1:i" & Rows.Count).Address
Staple = ActiveSheet.Range("a1:i" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row).Address
MsgBox OO = Staple
MsgBox "OO-> " & OO & Chr(13) & "Staple-> " & Staple
End Sub

DoubleZero · 22 Octobre 2016

Staple1600 à dit:
... Et avec cette macro, éclaire-je ta lanterne ?
(macro à lancer plusieurs fois)
NB: A tester sur un classeur qui vient de naître

VB:

Sub Subtility_Finder() Dim OO, Staple Randomize 7654321 Cells.Clear Range("A1:I" & Int((Rnd * 1984) + 1)) = "=RAND()*ROW()" OO = Range("a1:i" & Rows.Count).Address Staple = ActiveSheet.Range("a1:i" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row).Address MsgBox OO = Staple MsgBox "OO-> " & OO & Chr(13) & "Staple-> " & Staple End Sub

Bonjour à toutes et à tous,

Merci, Staple1600 , pour la peine que tu te donnes afin que je puisse saisir la "Subtility".

Je remarque que ton code rend visible, à l'écran, la zone imprimable par un trait. Ma macro ne permet pas cela.

Mais chaque code imprime bien l'intégralité des valeurs présentes, sans page superflue.

Pffff , suis-je compréhensible ?

A bientôt

Staple1600 · 22 Octobre 2016

Bonsoir à tous

00
Je viens de comprendre ma méprise

Je pensais que lorsque on ne définissait pas la zone d'impression en identifiant le dernière ligne non vide, Excel imprimait des feuilles vides.
Mais Excel est plus intelligent que moi et plus eco-friendly.
(il ne gâche de ramettes de papier par défaut)
Ce qui m'a induit en erreur, c'est quand on affiche l'adresse de la zone d'impression avec un MsgBox, ta syntaxe renvoie toujours $A:$I, la mienne $A1:Ix ou x= le numéro de la dernière ligne non vide.

Donc dès que tu le peux, n'hésites pas à me chambrer dans un prochain fil où je débiterai d'autres âneries (euh le terme n'est peut -être pas ici approprié ), donc d'autres inepties.

NB: Pour ma défense, ne voulant pas gâcher de papier, j'avais pas testé ni l'impression, ni l’aperçu, cependant cela m'a permis d'isoler un cas particulier où nos deux syntaxes sont prises en défaut, non?

VB:

Sub Gachons_Du_Papier_Ou_Pas()
Range("A1:A59") = "=ROW()"
ActiveSheet.PageSetup.PrintArea = ""
ActiveSheet.PageSetup.PrintArea = ActiveSheet.Range("a1:i" & Rows.Count).Address
ActiveSheet.PrintPreview
ActiveSheet.PageSetup.PrintArea = ""
ActiveSheet.PageSetup.PrintArea = ActiveSheet.Range("a1:i" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row).Address
ActiveSheet.PrintPreview
End Sub

Sur mon PC, avec ces deux syntaxes, Excel trouve deux pages à imprimer dont une vide.
Et chez toi ?

DoubleZero · 23 Octobre 2016

Bonjour à toutes et à tous,

... Donc dès que tu le peux, n'hésites pas à me chambrer dans un prochain fil où je débiterai d'autres âneries (euh le terme n'est peut -être pas ici approprié ), donc d'autres inepties...

A ce jeu-là (débit d'âneries), tu seras toujours perdant. Nn mais !

Staple1600 à dit:
... Sur mon PC, avec ces deux syntaxes, Excel trouve deux pages à imprimer dont une vide.
Et chez toi ?

Sur "mon mien" (W2008 – XL2013), quatre pages, dont deux vides, sont trouvées.

A bientôt

XL 2013 Défiir une zone d'impression

ced30l

XLDnaute Nouveau

Theze

XLDnaute Occasionnel

DoubleZero

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

ced30l

XLDnaute Nouveau

DoubleZero

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

DoubleZero

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

DoubleZero

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

DoubleZero

XLDnaute Barbatruc

Pièces jointes

Discussions similaires