XL 2019 zone d’impression variable

le___destin

XLDnaute Occasionnel
bonjour
je besoin d'un macro pour imprimer une zone variable
la cellule Q5 a la valeur du dernier ligne à imprime
sachant que ma zone est B1:G(valeur du cellule Q5)
merci pour vos aide
 

Staple1600

XLDnaute Barbatruc
Bonjour le fil, chris ;)

Mieux vaut éviter que la feuille soit vide ainsi que la cellule Q5, sinon...
Code testé avec succès.
VB:
Sub Test()
Dim Z_Impression As Range
Set Z_Impression = Range("B1:G" & [Q5])
ActiveSheet.PageSetup.PrintArea = Z_Impression.Address
End Sub
 

Staple1600

XLDnaute Barbatruc
Re

Oui cela doit être possible
Si j'étais moi, j'essaierai de trouver le code VBA en utilisant l'enregistreur de macros
Ce qui devrait donner un truc du genre
VB:
Sub Macro1()
    Application.Goto Reference:="Print_Area"
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThick
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThick
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThick
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThick
        .ColorIndex = xlAutomatic
    End With
End Sub
 

Staple1600

XLDnaute Barbatruc
Re

Mais, comme je ne suis pas forcément toujours moi, surtout les jours de pluie des mois en bre.
Je me contenterai d'un truc de ce genre
VB:
Sub Test_II()
Dim Z_Impression As Range
Set Z_Impression = Range("B1:G" & [Q5])
ActiveSheet.PageSetup.PrintArea = Z_Impression.Address
Z_Impression.BorderAround 1, xlMedium
End Sub
Avec un égal succès que précedemment, testé fut ce code ;)
NB: Toujours avec la même mise en garde (rapport au vide)[/code]
 

Discussions similaires

Réponses
6
Affichages
447