[excel 97] suite d'une colonne sur la meme page

Le
paf le chien
Bonjour,

Mettons une feuille avec une seule colonne, étroite, mais par exemple
500 lignes.

Je voudrais imprimer de manière à remplir mes pages, donc, si par ex. 40
lignes tiennent en hauteur sur une page, que les lignes 41 à 80 soient à
côté des premières et ainsi de suite. Bref, un truc du genre du "saut de
colonne" dans word.

Est-ce possible?

Merci :)

--
paf le chien
virez le primate pour répondre
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichD
Le #25025002
Bonjour,

Copie cette macro dans un module de ton classeur :

Tu peux modifier à volonté la mise en page de la feuille à imprimer
Ce n'est qu'un exemple...
Si tu veux que la feuille se supprime à la fin, enlève l'apostrophe
devant certaines lignes de code vers la fin de la macro.

'------------------------------------------------------
Sub test()
Dim Rg As Range, NbLignes As Long
Dim Sh As Worksheet

Application.ScreenUpdating = False
Application.EnableEvents = False
Set Sh = Worksheets.Add
Sh.Name = "À imprimer"
With Worksheets("Feuil1")
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With

NbLignes = Rg.Rows.Count

For a = 1 To NbLignes Step 40
b = b + 1
Rg(a, 1).Resize(40).Copy Sh.Cells(1, b)
Next
Sh.UsedRange.EntireColumn.AutoFit
'Et si tu veux lancer l'impression de la feuille
With Sh
With .PageSetup
.PrintArea = Sh.UsedRange.Address
.CenterHorizontally = True
.CenterVertically = True
.LeftHeader = ThisWorkbook.Path
.CenterHeader = ThisWorkbook.Name
.RightHeader = Environ("USERNAME")
.CenterFooter = Date
End With
.PrintPreview 'tu changes PrintPreview pour .PrintOut
End With
ss = Sh.UsedRange.Address
'Pour supprimer la feuille après impression
'Application.DisplayAlerts = False
'Sh.Delete
'Application.DisplayAlerts = True
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
'------------------------------------------------------


MichD
--------------------------------------------------------------
paf le chien
Le #25025152
MichD a grommelé:
Bonjour,

Copie cette macro dans un module de ton classeur :

[...]



un grand merci!

--
paf le chien
virez le primate pour répondre
Publicité
Poster une réponse
Anonyme