probleme macro imp

[nat]

Bonsoir a vous

je cherche une methode en vba pour obliger une mise en page a l'impression
a savoir que j'ai plusieur zone différente qui s'imprime ou qui s'imprime pas
voir macro d'une zone JAI QUATRE ZONE PAR PAGE

pour la premiere zone

With Sheets("feuil3")
If .Range("C1").Value = .Range("E4") Then


ActiveSheet.PageSetup.PrintArea = "$F$3:$H$15"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End If
End With
End Sub

zone deux
With Sheets("feuil3")
If .Range("C1").Value = .Range("J4") Then


ActiveSheet.PageSetup.PrintArea = "$j$3:$L$15"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End If
End With
End Sub

Merci de voir aide
nat

 

[Lord Nelson]

Salut Nat,
A mon avis, tu n'as besoin que d'une seule macro.
Essaie ceci :

Sub Imp
With Sheets("feuil3")
If .Range("C1").Value = .Range("E4") Then
ActiveSheet.PageSetup.PrintArea = "$F$3:$H$15"
elseIf .Range("C1").Value = .Range("J4") Then
ActiveSheet.PageSetup.PrintArea = "$j$3:$L$15"
'elseif....etc
End If
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

A+
Horatio

 

[nat]

Horatio

Je fait essai demain o taf

je te dit quoi merci et bonne soirée
nat
A+