Bonsoir


Je veux ajouter à ce code une modification dans la mesur à:

Ne pas imprimer la feuille DEDT1 si la case AG7 de DEDT1 est vide
Ne pas imprimer la feuille DEDT2 si la case AG7 de DEDT2 est vide
Ne pas imprimer la feuille DEDT3 si la case AG7 de DEDT3 est vide
Ne pas imprimer la feuille DEDT4 si la case AG7 de DEDT4 est vide


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub Image7_Clic()
 
Sheets("TVAT").PageSetup.PrintArea = "A1:AM164"
If Sheets("TVAT").Range("P8").Value = 1 Then Sheets("DEDT1").PageSetup.PrintArea = "$A$1:$AO$" & Sheets("DEDT1").Range("AM189").End(xlUp).Row: Sheets(Array("TVAT", "DEDT1")).PrintOut Collate:=True
If Sheets("TVAT").Range("P8").Value = 2 Then Sheets("DEDT2").PageSetup.PrintArea = "$A$1:$AO$" & Sheets("DEDT2").Range("AM189").End(xlUp).Row: Sheets(Array("TVAT", "DEDT2")).PrintOut Collate:=True
If Sheets("TVAT").Range("P8").Value = 3 Then Sheets("DEDT3").PageSetup.PrintArea = "$A$1:$AO$" & Sheets("DEDT3").Range("AM189").End(xlUp).Row: Sheets(Array("TVAT", "DEDT3")).PrintOut Collate:=True
If Sheets("TVAT").Range("P8").Value = 4 Then Sheets("DEDT4").PageSetup.PrintArea = "$A$1:$AO$" & Sheets("DEDT4").Range("AM189").End(xlUp).Row: Sheets(Array("TVAT", "DEDT4")).PrintOut Collate:=True
 
End Sub
Merci d'avance