Macro de découpage pour impression.

Pierrot93

XLDnaute Barbatruc

• 13 Juillet 2011

• #2

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
@+

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 13 Juillet 2011

• #3

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

 

Pièces jointes

• JJ1(1).xls

  25.5 KB · Affichages: 54

Dernière édition: 13 Juillet 2011

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 13 Juillet 2011

• #4

Re : Macro de découpage pour impression.

Re, bonjour fg🙂

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

Cliquez pour agrandir...

Arf, bien vu fg 🙂, même pas fais attention à ça moi... pffff...

 

Vote positif 0 Vote négatif

J

JJ1

Guest

• 13 Juillet 2011

• #5

Re : Macro de découpage pour impression.

Bonsoir Pierrot, Efgé, le Forum

Merci pour vos solutions que je mettrais sous Excel 2007 pour le nombre de colonnes.
Encore merci et bonne soirée

 

Vote positif 0 Vote négatif