imprimer une zone avec condition

[Pierre]

Bonjour

je cherche comment on p faire pour imprimé plusieurs zone sur une feuil
avec condition

EXAMPLE POUR UNE ZONE
imprimer si A1 = A2 sinon ne pas imprimé cette zone
Range("B4:F22").Select
ActiveSheet.PageSetup.PrintArea = "$B$4:$F$22"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
End Sub


et faire une mise en page automatique a savoir que j'ai 4 zones d'impr sur une page
merci de votre aide
et bonne apres midi
pierre

 

[Denis]

Bonjour Pierre et le Forum
je répond sur ce post malgrès le nouveau que tu as passé, je comprend mieux ici (ou alors j'ai rien compris du tout !)
eaais come ceci avec tes 4 zones ensemble, mais celà imprime sur 4 feuilles
with sheets("feuil1")
If .Range("A1").value = .Range("A2") then
.PageSetup.PrintArea = "$A$10:$B$15,$E$13:$F$18,$E$24:$E$27,$A$27:$C$30"
end with
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
End Sub
Bon courage & à +
Denis

 

[Denis]

re
j'ai oublié le end if juste avant end sub
Désolé
à+
Denis

 

[Pierre]

Merci beaucoup pour ta réponse
bonne journée