Re : Macro Impression (découpage)
bonjour,
perso je me suis fait un bout de code pour les découpes pour impression, si ça peut aider, rajouter une colonne vide ne doit pas être très long
Dim n As Double
Dim col As Double
Range("BI1").Select
ActiveCell.FormulaR1C1 = "=COUNTA(C[-60])"
nbval = Cells(1, 61)
n = InputBox("sur quelle hauteur couper? (nb de lignes)")
col = InputBox("combien de colonnes de large?")
Application.ScreenUpdating = False
boucle = Int(nbval / n) + 1
For i = 1 To boucle
ligne = (i * n) + 1
Range(Cells(ligne, 1), Cells(ligne + n - 1, col)).Select
Selection.Cut
Cells(1, 1 + (col * i)).Select
' Range("C1").Select
ActiveSheet.Paste
Next i
' éventuellement pour configurer impression vers la droite
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.Order = xlOverThenDown
End With
ActiveWindow.ScrollColumn = 1
Range("C1").Select