Discussion :

[ericberg]

bonjour ,
j'ai une page pour laquelle je voudrai automatiser l'impression
la cellule de départ est A1 jusque h13
H13 est variable
je ne sais pas comment m'y prendre
merci pour votre aide

[drakkar_agfa]

Bonjour,

Avec quelque chose comme ceci ce devrait fonctionner :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub subZoneImpression()
    Dim lMax As Long
 
    lMax = Worksheets("Feuil1").Range("A65536").End(xlUp).Row
    Worksheets("Feuil1").PageSetup.PrintArea = "A1:H" & lMax
 
End Sub

Bonne journée.