imprimer, si neccessaire

blibo

XLDnaute Nouveau
bonjour le forum,
merci pour la ou les éventuelles solutions que vous pourrez apporter à mon problème. je l'ai déjà cherchée mais en vain.
je voudrais pouvoir imprimer les 2 premières pages recto verso.
le reste, sous conditions: si Page1, cellule H13 occupée alors imprimer Pages 3 et 4 recto verso.
Si , Page1, N13 occupée alors imprimer Pages 5 et 6 recto verso. Si Page1, cellule U13 occupée, imprimer Pages 7 et 8 recto verso. Si Page1, cellule AA13 occupée, imprimer Pages 9 et 10 recto verso. Si Page1 , cellule AH occupée, imprimer Pages 11 et 12 recto verso.
cordialement
 

Pièces jointes

  • print.xlsx
    48.8 KB · Affichages: 35

Hieu

XLDnaute Impliqué
Salut,

C'est pas très optimisé, mais ça doit faire le boulot :
VB:
Sub mlk()
Call impression(1)
If Not IsEmpty(Range("h13")) Then Call impression(3)
If Not IsEmpty(Range("n13")) Then Call impression(5)
If Not IsEmpty(Range("u13")) Then Call impression(7)
If Not IsEmpty(Range("aa13")) Then Call impression(9)
If Not IsEmpty(Range("ah13")) Then Call impression(11)
End Sub
Sub impression(a)
    ActiveWindow.SelectedSheets.PrintOut From:=a, To:=a + 1, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False
End Sub
 

Pièces jointes

  • print_v0.xlsm
    55.4 KB · Affichages: 35

Statistiques des forums

Discussions
311 725
Messages
2 081 947
Membres
101 849
dernier inscrit
florentMIG