Macro Impression (découpage)

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

Re : Macro Impression (découpage)

Bonjour, JJ1 🙂, nicopec, le Forum,

Un essai en pièce jointe.

A bientôt 🙂

Re : Macro Impression (découpage)

Bonjour Nicopec, DoubleZero

Merci pour vos macros.

Le fichier de Doublezero me convient, il me faut l'adapter car les pages ont été mises à la suite horizontalement (au lieu de vericalement) et l'impression se décale de quelques colonnes au fil des pages.

Merci

A+