Impression sur 2 colonnes

Bonjour,

Il doit certainement avoir une astuce pour imprimer mon fichier quiest très long mais pas large, je voulais donc l'afficher sur 2 colonnes...à vosréponses...

Merci

Bonjour,

Au niveau de l'impression, je ne pense pas,

Par contre, avec une macro, on peut scinder la colonne en deux, imprimer et remettre en

état après impression.

Essaye de joindre ton fichier

amicalement

Claude.

Ci-joint le lien :

https://www.excel-pratique.com/~files/doc/fichier_test.xls

Il faut biensûr qu'à l'impression la colonne se suive (sur la même page)... sinon j'aurais évidement scindé la colonne en deux !!

Merci pour ton aide (bon courage !)

re,

Vu ton tableau, l'enjeu n'en vaut pas la chandelle !

pour un tableau de 301 lignes :

Au format A3 (paysage) il faudra 4 feuilles de 42 lignes

Au format A4 (portrait) il faudra 6 feuilles de 59 lignes

Autant rester en A4

Si tu veux, on peut déterminer les sauts de pages en fonction du tableau.

Amicalement

Claude.

Merci de ton aide,

En fait c'est la seconde fois que ce cas de figure se présente à moi ... et je pensais qu'il existait une astuce qui fasse en sorte que si je rajoute ou supprime des lignes, tout ne soit pas à refaire...je ferais des tableaux plus large désormais

Merci encore

re,

Vu ton tableau, l'enjeu n'en vaut pas la chandelle !

pour un tableau de 301 lignes :

Au format A3 (paysage) il faudra 4 feuilles de 42 lignes

Au format A4 (portrait) il faudra 6 feuilles de 59 lignes

Autant rester en A4

Si tu veux, on peut déterminer les sauts de pages en fonction du tableau.

Amicalement

Claude.[/quote]

re,

Prends toujours la macro, çà peut servir

si tu change le nombre de lignes, les sauts de page se recalcule.

Sub SautdepagePortrait() 'par Mytå et Sylvain TBM           (toutes les 57 lignes
Dim N As Long
Dim I As Integer
    With ActiveSheet
        .Activate
            N = .Range("A65536").End(xlUp).Row
        .ResetAllPageBreaks 'efface sauts de pages existants
        .PageSetup.PrintArea = "A2:g" & N
            For I = 1 To N / 57
                .HPageBreaks.Add Before:=Rows(I * 57 + 2)
            Next I
    End With
End Sub

Bonne journée

Claude.

édit: pour le paysage, tu remplace 57 par 38 (2 fois)

et .PageSetup.PrintArea = "A2:g" & N

par :.PageSetup.PrintArea = "A2:o" & N

bonjour,

je rebondis sur ce sujet car je me trouve devant un problème similaire :

- ma zone d'impression est A2:B285

et je voudrais imprimer sur 2 colonnes cote à cote en A4 portrait sur X pages.

X étant le nombre de pages nécessaires dont je ne connais pas la valeur.

Ca donnerait quelque chose comme :

Page 1

Colonne 1 Colonne 2

A2:B2 A51:B51

... ...

A50:B50 A100:B100

Page 2

Colonne 1 Colonne 2

A101:B101 A151:B151

... ...

A150:B150 A200:B200

Page 3

Colonne 1

A201:B201

...

A285:B285

Est-ce que ceci est réalisable ?

En espérant avoir été clair , merci d'avance pour vos idées !

Olivier

Salut le forum

Olivilo comme nouveau membres.

Avec un fichier surement car la disposition sur le forum ne rend pas la structure.

Tu n'as qu'à cliquer sur ce lien : Joindre un fichier pour que l'on puisse t'aider,

et recopier l'adresse sur ta ficelle.

Mytå.

P.S. Tu aurais du ouvrir une nouvelle ficelle en pointant le lien de celle-ci.

https://forum.excel-pratique.com/posting.php?mode=reply&t=8717

Bonjour,

Merci pour votre aide, voici le fichier joint :

Cordialement,

Olivier

salut,

personne ne peut me donner un coup de main pour cette impression en 2 colonnes ?

Bonsoir,

laurence72 à très bien compris, mais elle aurait du mettre le fil en "Résolu",

olivilo, ouvre un poste à ton nom, avec un fichier allegé (< 100Ko)

tu auras surement + de réponses.

Claude.

Salut le forum

Claude, le lien du fichier est déjà donné

olivilo a écrit :

Bonjour,

Merci pour votre aide, voici le fichier joint :

Cordialement,

Olivier

Et pour le changement de ficelle aussi

P.S. Tu aurais du ouvrir une nouvelle ficelle en pointant le lien de celle-ci. 
http://forum.excel-pratique.com/posting.php?mode=reply&t=8717

Mytå

P.S. C'est vrai que le fichier est en .7z

Bonjour,

un exemple dans le fichier joint...

https://www.excel-pratique.com/~files/doc2/imprim_col.xls

Bonjour et chapeau felix,

La Classe !

bon dimanche

Claude.

Bonjour,

Oui la classe ! ça marche impec !

Mais...dans mon cas précis, la colonne B est une formule qui me renvoie un nombre.

Est-ce qu'il ya une possibilité de récupérer la valeur de la formule dans la feuille "imprime" ?

Merci encore !

Olivier

Bonsoir,

remplace le code par celui-ci :

Sub Scinde()
Dim Base As Worksheet, Imprime As Worksheet
Application.ScreenUpdating = False
Set Base = Sheets("Base")
Set Imprime = Sheets("imprim")
LigDep = 2          ' ligne de départ
ColLarg = 2        ' largeur source (nb colonnnes)
hpageDest = Base.HPageBreaks(1).Location.Row - 2  'calcul auto
ncolDest = 2             ' nb colonnes destination
ligneDest = 2

With Imprime
    nbenreg = Base.Cells(LigDep, 1).CurrentRegion.Rows.Count
    .ResetAllPageBreaks
    .Cells.Clear
    For Col = 1 To ncolDest    ' en têtes de colonne
        Base.Cells(LigDep - 1, 1).Resize(1, ColLarg).Copy _
            Imprime.Cells(1, (Col - 1) * ColLarg + 1)
    Next Col

    Do While Base.Cells(LigDep, 1) <> ""
        For Col = 1 To ncolDest
            Base.Cells(LigDep, 1).Resize(hpageDest, ColLarg).Copy
                Imprime.Cells(ligneDest, (Col - 1) * ColLarg + 1).PasteSpecial xlPasteValues
            .Cells(ligneDest, (Col - 1) * _
                ColLarg + 1).Resize(hpageDest, ColLarg).BorderAround Weight:=xlThin
            LigDep = LigDep + hpageDest
        Next
        .HPageBreaks.Add Before:=Cells(ligneDest + hpageDest, 1)
        ligneDest = ligneDest + hpageDest
    Loop
    Union(.Columns("A:A"), .Columns("C:C")).NumberFormat = "[$-F800]dddd, mmmm dd, yyyy"
    .Cells.EntireColumn.AutoFit
    .PageSetup.PrintTitleRows = "$1:$1"
    .PageSetup.CenterHorizontally = True
    .PrintPreview
End With
End Sub

Bonne soirée

oh lala ! bravo et merci beaucoup pour votre aide

bravo pour ce forum réactif et sympatique !

Olivier

rebonjour !

vous allez me trouver casse-pieds et...vous aurez sans doute raison mais j'ose tout de même demander :

- est-ce qu'il serait possible de garder les formats de cellules dans la feuille "imprime" ?

En fait, dans la feuille de départ, je me sers de la fonction "tableau" et des "styles de tableau" pour une lisibilité plus aisée à l'impression et là, je me retrouve avec une impression

toute simple.

Mais si vraiment c'est abusé, je comprendrai.

Merci encore.

Olivier