Macro nombre d'impression de plusieurs zones suivant cellules

Question

Bonjour à tous,

J'ai créé un bouton "Impression" qui dépend d'une macro. Jusque la tout va bien. Sur la même feuille, le bouton impression me permet d'imprimer plusieurs zones sur des feuilles indépendantes. J'aimerais que le nombre d'impression de chaque zone soit régit par une cellule différente pour chaque zone.

Voici la macro que j'ai actuellement:

Sub Impression()
 ActiveSheet.PageSetup.PrintArea = "$A$3:$F$13,$A$18:$F$28,$A$32:$F$42,$A$46:$F$56,$A$60:$F$70,$A$74:$F$84,$A$88:$F$98,$A$102:$F$112,$A$116:$F$126,$A$130:$F$140,$A$144:$F$154,$A$158:$F$168,$A$172:$F$182,$A$186:$F$196,$A$200:$F$210,$A$214:$F$224,$A$228:$F$238"
ActiveWindow.SelectedSheets.PrintOut 
    With ActiveSheet.PageSetup
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .CenterHorizontally = True
        .CenterVertically = True
        .PaperSize = xlPaperA4
        .Zoom = False
    End With
    ActiveWindow.SelectedSheets.PrintPreview
End Sub

Je sais que pour que le nombre d'impression soit dépendant d'une cellule on utilise:

Copies:=Range("...") cela dit comment je peux lier ça a chaque zone?
Voici mes cellules avec le nombre d'impression de chaque zone.
Copies:=Range("C1,C16,C30,C44,C58,C72,C86,C100,C114,C128,C142,C156,C170,C184,C198,C212,C226")

Je débute en VBA, d'avance merci pour votre aide !

Patrice33740 · Answer

Bonjour,

Tu ne peux pas faire une impression "multi zones" avec un nombre de copies différent pour chaque zone, il faut que tu fasses une impression par zone. 
 
Cordialement
Patrice

Macro nombre d'impression de plusieurs zones suivant cellules

1 réponse

Votre réponse

Discussions similaires