Macro pour imprimer zone variable...

[Christian0258]

Bonsoir à tout le forum,

Je souhaiterais votre aide afin d'écrire une macro pour éditer une
zone variable...(pas trouvé ce que je souhaite, sur le forum)

voir fichier

Merci, par avance, pour le temps que vous voudrez bien m'accorder.

Bien amicalement,
Christian

 

[Denis]

Re : Macro pour imprimer zone variable...

Bonjour Christian et le Forum,
mets ceci dans un module et adapte.
Sub Impression()
Dim Derligne
Derligne = ThisWorkbook.Sheets("Feuil1").Range("CC65536").End(xlUp).Row
Application.Dialogs(xlDialogPrinterSetup).Show
With ThisWorkbook.Sheets("Feuil1")
.PageSetup.PrintArea = "I2:CC" & Derligne
With ThisWorkbook.Sheets("Feuil1").PageSetup
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 1
.BlackAndWhite = True
End With
.PrintOut Copies:=1
End With
End Sub
Bon courage et à +
Denis

 

[JCGL]

Re : Macro pour imprimer zone variable...

Bonjour à tous,
Salut Christian,

Peux-tu essayer en incluant ceci dans ton code :

ActiveWorkbook.Names.Add Name:="Print_Area", RefersToR1C1:= _
"=OFFSET(Feuil1!R4C9:R75C81,,,COUNTIF(Feuil1!R4C81:R75C81,"">0"")+1)"

Le NBVAL() n'est pas suffisant : tes cellules vides en CC ne sont pas vraiment vides

A++ l'ami
A+ à tous

 

[Christian0258]

Re : Macro pour imprimer zone variable...

Re, le forum, Denis,

Merci, Denis, pour ton aide et le boulot, mais ça n'imprime pas la zone...
voir le fichier (premier message), j'ai intégré ta macro.

A vous lire,

Bien à vous.
Encore merci,
Christian

 

[piga25]

Re : Macro pour imprimer zone variable...

Bonsoir Christian0258, Denis
Salut JCGL

Juste en ajoutant les $ la macro de denis fonctionne

Sub Impression() 'Denis
Dim Derligne
Derligne = ThisWorkbook.Sheets("Feuil1").Range("$CC$75").End(xlUp).Row + 1
Application.Dialogs(xlDialogPrinterSetup).Show
With ThisWorkbook.Sheets("Feuil1")
.PageSetup.PrintArea = "$I$2:$CC" & Derligne
With ThisWorkbook.Sheets("Feuil1").PageSetup
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 1
.BlackAndWhite = True
End With
.PrintOut Copies:=1
End With
End Sub

 

[Christian0258]

Re : Macro pour imprimer zone variable...

Re, le forum, Denis, JCGL, piga25,

Merci à vous pour votre aide.
piga25, chez moi même avec les "$" ça ne fonctionne pas ?
JCGL à quel endroit faut-il placer ton code?

Bien à vous,
Christian.

 

[JCGL]

Re : Macro pour imprimer zone variable...

Bonjour à tous,

Tu places ceci dans un module et en fin de traitement de ton code, tu places Call Test :

Sub Test()
ActiveWorkbook.Names.Add Name:="Print_Area", RefersToR1C1:= _
"=OFFSET(Feuil1!R2C9:R75C81,,,COUNTIF(Feuil1!R2C81:R75C81,"">0"")+1)"
End Sub

Ce qui te donnera ceci :

​

Que tu peux placer directement par Insertion / Nom / Définir

A+ à tous

​

 

[JCGL]

Re : Macro pour imprimer zone variable...

Bonjour à tous,

Ton fichier en retour

A++

 

[Christian0258]

Re : Macro pour imprimer zone variable...

Bonjour à tout le forum,

Je vous remercie, Denis, piga25 et l'ami JCGL pour votre aide.

Merci Jean-Claude, pour l'envoi du fichier exemple, c'est parfait.

Bien à vous,
Christian