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
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
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 .....
Cordialement
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 .....