Salut,
ci dessous ma macro (à modifier en fonction de tes besoins), tu peux modifier les zones d'impressions sur chaque feuille si jamais :
Sub Impression()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim LastLig As Long
With Worksheets("QUANTITATIF")
LastLig = .Range("N9")
.PageSetup.PrintArea = "B1:J" & LastLig
End With
Dim wksFeuille As Worksheet
Dim strSelection() As String
Dim i As Long
i = 0
For Each wksFeuille In ThisWorkbook.Sheets
If wksFeuille.Range("V2").Value = 1 Then
ReDim Preserve strSelection(i)
strSelection(i) = wksFeuille.Name
i = i + 1
End If
Next wksFeuille
Sheets(strSelection).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Salut j'ai le même problème
je voudrais imprimer en pdf deux zones d'impression la zone 1 (B1:I122) en portrait et la zone 2 (B124:N185) en paysage
la zone 1 en première et deuxième page et la zone 2 en troisième page.
Stp peux tu m'expliquer dans ou est ce qu'on doit changer les références des zones d'impression. Je n'arrives pas à comprendre ton code
Merci