excel et le retour debut colonne

[roulies]

bonjour,

J'ai un tableau excel de 5951 lignes .... chaque lignes à 3 colonnes.

Afin d'éviter d'imprimer XXX pages, j'aimerais savoir si dans excel il y'a une possibilité pour qu'en fin page les donnes reprenne au debut de la premiere
ligne mais dans la quatrieme colonne ... ect...

j'espere etre assez précise

Merci d'avance de votre aide eventuel.

 

[n1portki]

Pas trop claire non ..........

 

[roulies]

je vais essayer d'etre plus claire...

J'ai un fichier qui contient 5951 lignes de 3 colonnes
l'ensemble des données se trouve en colonne A - B - C
de la ligne 1 àla lignes 5951.

Si j'edite mon document cela me fait environ 85 feuilles.

Donc je me demandait s'il y'avait une fonction ou une possibilité
pour qu'en fin page au lieu que cela continue sur les colonnes A B C
les données ayent en D E F puis en G H I afin de remplir totalement
la page. Bien entendu a partir de la ligne 211 cela sera sur la page 2.
ect...

comme cela je me retrouve avec 28/29 Pages.

Merci

 

[Pascal76]

Salut

Voilà une petite macro qui j'espère fera ce que tu voulais (on peut peut-être faire plus simple mais j'ai fait avec le temps que j'avais)

Je suis parti de l'idée de remplir ton tableau jusqu'à la colonne I comme tu l'indiquais sur ton post précedent et ensuite cela reprend en dessous à la colonne A

Bon courage

Pascal

Sub essai()

Application.ScreenUpdating = False

ActiveWindow.View = xlPageBreakPreview
x = Worksheets("Feuil1").HPageBreaks.Count

nbreligne = Worksheets("Feuil1").Range("A65536").End(xlUp).Row
ligne = 1
colonne = 1
For j = 1 To x - 1
Set Myrange = Worksheets("Feuil1").HPageBreaks(j).Location
MyRowH = Myrange.Row
h = j + 1
If h < x Then
Set Myrange = Worksheets("Feuil1").HPageBreaks(h).Location
MyrowB = Myrange.Row - 1
Else
MyrowB = nbreligne
End If
Range(Cells(MyRowH, 1), Cells(MyrowB, 3)).Select
Selection.Cut
Select Case colonne
Case 1
Cells(ligne, 4).Select
ActiveSheet.Paste
colonne = 4
Case 4
Cells(ligne, 7).Select
ActiveSheet.Paste
colonne = 7
Case 7
ligne = Worksheets("Feuil1").Range("A1").End(xlDown).Row + 1
Cells(ligne, 1).Select
ActiveSheet.Paste
colonne = 1
End Select
Next
ActiveWindow.View = xlNormalView

Application.ScreenUpdating = True

End Sub