Boucle ! mais laquelle ?

[TREDI-GEREP]

Bonjour,

Je voudrais automatiser ce code et je bloque :

Range("c29").Select
If ActiveCell.Offset(1, 1) <> "0" Then
ActiveSheet.PageSetup.PrintArea = "$C$29:$F$60"
Selection.ColumnWidth = 15
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Else
ActiveSheet.PageSetup.PrintArea = "$C$29:$D$60"
Selection.ColumnWidth = 15
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Exit Sub
End If
Range("G29").Select
If ActiveCell.Offset(1, 1) <> "0" Then
ActiveSheet.PageSetup.PrintArea = "$G$29:$J$60"
Selection.ColumnWidth = 15
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Else
ActiveSheet.PageSetup.PrintArea = "$G$29:$H$60"
Selection.ColumnWidth = 15
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Exit Sub
End If
Range("K29").Select
If ActiveCell.Offset(1, 1) <> "0" Then
ActiveSheet.PageSetup.PrintArea = "$K$29:$M$60"
Selection.ColumnWidth = 15
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Else
ActiveSheet.PageSetup.PrintArea = "$K$29:$L$60"
Selection.ColumnWidth = 15
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Exit Sub
Range("M29").Select
.
.
.
Voila

Merci par avance de votre aide

 

[wilfried_42]

Re : Boucle ! mais laquelle ?

re:

On peut simplifier, mais dire une boucle, je ne le pense pas

if range("C29").offset(1,1) <> "0" then call imprim("$C$29:$F$60") else call imprim ("$C$19:$D$60"): exit sub
if range("G29").offset(1,1) <> "0" then call imprim("$G$29:$F$60") else call imprim ("$G$19:$H$60"): exit sub
if range("K29").offset(1,1) <> "0" then call imprim("$K$29:$M$60") else call imprim ("$K$19:$L$60")
end sub

sub imprim(plage as string)
ActiveSheet.PageSetup.PrintArea = plage
Selection.ColumnWidth = 15
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
end sub

 

[TREDI-GEREP]

Re : Boucle ! mais laquelle ?

Ah oui effectivement c'est plus propre comme ça 😀

Merci Wilfried