Macro de découpage pour impression.

J

JJ1

Guest
Bonjour,

Auriez-vous au grenier un code pour une impression:
J'ai 3 colonnes de nombres à imprimer (portrait), A1:C x(environ 8000)
Pour éviter de faire x couper/coller, le code scinderait ces 3 colonnes en tronçons de 50 lignes et les colleraient en col E, I, M ..;etc (en laissant une colonne libre)
Merci à vous.
Bon AM
 

Pierrot93

XLDnaute Barbatruc
Re : Macro de découpage pour impression.

Bonjour,

essaye ceci :
Code:
Option Explicit
Sub test()
Dim i As Long, j As Integer
j = 1
For i = 51 To Range("A65536").End(xlUp).Row Step 50
    j = j + 4
    Cells(i, 1).Resize(50, 3).Cut Cells(1, j).Resize(50, 3)
Next i
End Sub

bon après midi
@+
 

Efgé

XLDnaute Barbatruc
Re : Macro de découpage pour impression.

Bonjour JJ1, Bonjour Pierrot :),
Une autre proposition qui ne marchera pas non plus (plantage à 3051 ) puisque 8000 lignes * 3 colonnes divisées par 50 lignes font beaucoup plus de 256 colonnes sans même compter les colonnes vides .....:rolleyes:
Cordialement
 

Pièces jointes

  • JJ1(1).xls
    25.5 KB · Affichages: 54
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 947
Membres
101 849
dernier inscrit
florentMIG