Créer une zone d'impression pour plusieurs feuilles

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 ?

Bonjour,

Voir si ça convient ...

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
      sht.PageSetup.PrintArea = ""
      derlg = sht.Cells(Rows.Count, 3).End(xlUp).Row
      sht.PageSetup.PrintArea = "$C$1:$J$" & derlg
   End If
Next
End Sub

Gelinotte

Parfait ! Ça fonctionne, merci beaucoup