Bonjour,
Je souhaite créer une zone d'impression par feuille, à l'exception de celle qui se nomme Accueil ou VERIF.
Les colonnes sont bien délimitées (colonne C à J), par contre, le nombre de lignes est variable d'une feuille à l'autre.
J'ai écrit la macro suivante :
Sub ZoneImpress()
' Déclaration de la variable
Dim sht As Worksheet
Dim derlg As Integer
'Pour chaque feuille du classeur, il faut enrgistrer le nom
For Each sht In Worksheets
'Si le nom du classeur est différent d'accueil, alors on applique la zone d'impression
If sht.Name <> "Accueil" And sht.Name <> "VERIF" Then
Debug.Print sht.Name
derlg = Cells(Rows.Count, 3).End(xlUp).Row
Debug.Print derlg
sht.PageSetup.PrintArea = "$C$1:$J$" & derlg
End If
Next
End Sub
Sur chaque feuille, la zone d'impression sélectionnée part de C1 à J1 (j'ai l'impression d'avoir un souci avec ma variable derlg)
Peut-on m'aider ?