XL 2013 zone d'impression dans une boucle

[flag06]

bonjour, je voudrais faire une boucle pour imprimer 4 zone d'impression différentes et relatives à la position
de départ d'une cellule. j'ai essayé différentes manières mais ça ne marche pas.
si vous avez la solution je vous remercie d'avance ...
voici le code :

Sub Macro12()
' Macro
'
Dim vadresse
Dim cpt1
Dim zone
vadress = ActiveCell.Address
For cpt1 = 1 To 4
zone = ActiveCell.Offset(2, 0).Range("A1:G8").Activate
ActiveSheet.PageSetup.PrintArea = zone
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveCell.Offset(8, 0).Range("A1").Activate
Next
Range(vadress).Offset(0, 0).Select
End Sub

cordialement

 

[Paf]

Bonjour,

un essai qui répond presque à la demande:

    For cpt1 = 6 To 36 Step 10
        Set zone = Range("B" & cpt1).Resize(8, 7)
        zone.PrintPreview 'pour prévisualiser
        'zone.PrintOut 'pour imprimer
    Next

A+

 

[flag06]

bonjour Paf,
ton code réponds tout à fait à la demande et ça marche impeccable,
je te remercie beaucoup.