zone impression auto

[chris 54]

bonjour à tous les forumistes
une petite question simple
dans un onglet où je recupère des données (20 lignes en moyenne sur 8 colonnes)
je souhaiterai une macro qui définisse une zone impression auto (Par VBA)
si quelqu'un peut me repondre ce serait cool..............
merci d'avance
chris 54

 

[Hervé]

bonjour

cette macro défini une plage d'impression. par contre ta plage doit commencer en A1.



Public Sub zoneimpression()
Dim l As Integer
Dim c As String
l = Sheets("feuil1").Range("a500").End(xlUp).Row
c = Left$(Range("A1").End(xlToRight).Address(0, 0), (Range("A1").End(xlToRight).Column < 27) + 2)
ActiveSheet.PageSetup.PrintArea = "A1:" & c & l
End Sub

salut
Hervé

 

[chris 54]

bonjour hervé
merci pour ta solution peux tu m'expliquer en détail pas à pas la macro ...
si tu as le temps bien sur...
merci en attendant
chris 54