XL 2019 Bordure des page

[le___destin]

Bonjour
Y-a-t-il une solution pour faire bordure à la page imprimé pars excel comme dans word .. les zone d'impression sont variable les contours des cellules ne donne plus une meilleure solution

 

[Staple1600]

Bonjour le fil

le___destin
Inutile d'ouvrir un second fil
Dans le premier, je t'ai donné la solution

https://www.excel-downloads.com/threads/zone-dimpression-variable.20036837/#post-20263716

NB: Je prends note que le français n'est pas ta langue maternelle.
Donc je t'explique simplement:
Si il n'y pas de cellules vides dans la zone d'impression et que la cellue Q5 n'est pas vide, le code VBA de l'autre discussion marche.

 

[Staple1600]

Re

le__destin
J'ai modifié le code que j'ai posté dans l'autre discussion
Testes le sur un classeur vide
Tu vois qu'il y a bien une bordure autour de la zone d'impression, non ?

Sub Test_III()
Dim Z_Impression As Range
'ajout pour tester (à supprimer après le test)
Range("B1:G50") = "=ADDRESS(ROW(),COLUMN(),4)"
[Q5] = 10
' //////////// fin ////////////////////////////
Set Z_Impression = Range("B1:G" & [Q5])
ActiveSheet.PageSetup.PrintArea = Z_Impression.Address
Z_Impression.BorderAround 1, xlMedium
'aperçu avant impression
ActiveSheet.PrintPreview
End Sub