Impression Excel

Bonjour,

J'ai effectué un tableau croisé dynamique sur une autre feuille(feuil2) en selectionnant les colonne que j'avais besoin

Et cela a donné ceci:

mais j'ai une colonne qui comporte 200 à 300 donnees , est-ce possible de mettre ses donnees sur plusieurs colonne pour diminuer le nombre de feuilles d'impression?

Si oui est-ce quelqu'un peut me diriger

Salutation Ghislaine

Bonjour,

Peux-tu joindre la feuille en question

Amicalement

Claude

Bonjour, oui je le met dans une autre feuile mais , il faudrait une macro qui verifie le nombre de ligne(50) et qui copie les donnees dans une colonne differente, ainsi de suite jusqu'à la fin de la feuille de donnees.

Voici mon fichier si cela peux t'aider: (c'est la feuil6 qui me pose ce problème)

Salutation Ghislaine

Bonsoir,

Inspiré d'un code de "felix"

résultat de l'impression sur feuille "imprim" (à créer au départ)

La macro se lance sur la feuille active avec touches "Ctrl+b"

il doit y avoir en A3 => "Étiquettes de lignes"

je n'arrive pas à régler à plus de 48 lignes.

Sub ScindeColonne() 'raccourci clavier = "Ctrl+b"
Dim f As Worksheet, Imprime As Worksheet
Dim ColSource%, ColDest%, Col%
Dim hpageDest%, LigDep&, LigDest%
Dim nbenreg&, Lg&

    Application.ScreenUpdating = False
    Set f = ActiveSheet
    Set Imprime = Sheets("imprim")

    If f.Range("a3") <> "Étiquettes de lignes" Then Exit Sub
    Lg = f.Range("a" & Rows.Count).End(xlUp).Row

    '---source à régler ---
    LigDep = 3                      'ligne de départ
    ColSource = 1                   'nb colonnnes
    'hpageDest = f.HPageBreaks(1).Location.Row - 2  'calcul auto
    hpageDest = 48                  'nombre lignes

    '--- feuille "imprim" à régler ---
    LigDest = 3                     'ligne de départ
    'ColDest = 10                   'nb colonnes destination
    ColDest = Application.Min(11, WorksheetFunction.Ceiling(Lg / hpageDest, 1)) 'plafond

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

        Do While f.Cells(LigDep, 1) <> ""
            For Col = 1 To ColDest
                f.Cells(LigDep, 1).Resize(hpageDest, ColSource).Copy
                    Imprime.Cells(LigDest, (Col - 1) * ColSource + 1).PasteSpecial xlPasteValues
                .Cells(LigDest, (Col - 1) * _
                    ColSource + 1).Resize(hpageDest, ColSource).BorderAround Weight:=xlThin
                LigDep = LigDep + hpageDest
            Next
            .HPageBreaks.Add Before:=Cells(LigDest + hpageDest, 1)
            LigDest = LigDest + hpageDest
        Loop
        .Cells.EntireColumn.AutoFit
        .PageSetup.PrintTitleRows = "$3:$4" 'titre
        .PageSetup.CenterHorizontally = True
        .PrintPreview
    End With
End Sub

à tester

Amicalement

Claude

Bonjour, super ca fonctionne pour la feuille active, est-ce possible que la macro prenne chaque feuille comme (feuile3, feuil4, feuil5, feuil6) sur une meme feuille en séparant chaque categorie...

Salutation Ghislaine

bonjour,

fournis un exemple de résultat attendu

avec explications

Claude

Bonjour , je repose ma question est-ce possible de prendre les donnees de la feuil2 et de faire une impression comme ceci:

Grand Total de tous les categorie: _________

Identification : SAC 1-2

32.99 33.11 33.28 33.34 33.92 34.01 34.05 34.23 34.35

34.44 34.58 34.97 35.09 35.17 35.3 35.33 35.44 35.68

35.78 35.79 35.84

Total (SAC 1-2 ) : ___________

Identification : VRAC 1-2

32.99 33.11 33.28 33.34 33.92 34.01 34.05 34.23 34.35

34.44 34.58 34.97 35.09 35.17 35.3 35.33 35.44 35.68

35.78 35.79 35.84

Total (VRAC 1-2 ) : ___________

Identification : Test brut

32.99 33.11 33.28 33.34 33.92 34.01 34.05 34.23 34.35

34.44 34.58 34.97 35.09 35.17 35.3 35.33 35.44 35.68

35.78 35.79 35.84

Total (Test brut ) : ___________

Identification : Test Net

32.99 33.11 33.28 33.34 33.92 34.01 34.05 34.23 34.35

34.44 34.58 34.97 35.09 35.17 35.3 35.33 35.44 35.68

35.78 35.79 35.84

Total (Test net) : ___________

Salutation Ghislaine

Bonsoir,

En résumé, les feuilles 3,4,5,6 et la macro précédente

n'ont plus lieu d'exister, on fait tout à partir de la Feuil2, c'est bien çà ?

1) - La Feuil2 aura toujours la même structure ?

(deux colonnes commençant à la ligne 1)

2) - Y aura t-il plusieurs feuilles à traiter (style Feuil2) ?

3) - On ne s'occupe pas de la Feuil1

Confirme ces points

J'ai commencé à regarder, çà doit être jouable.

Claude

Bonjour Claude,

oui c'est cela mais j'ai reussi

merci quand meme de ton aide

Bonjour,

Tu aurais pu nous faire voir ce que tu as mis en place,

de mon coté, voici où j'en étais,

restait à voir les sauts de page

Voir Module1, Sub Synthèse()

départ Feuil2, ou autre structurée pareille

résultats sur feuille "imprim"

Amicalement

Claude

Bonjour, excuse-moi voici ce que j'avais...

Merci .

Bonjour, claude

J'aime bien ton cadre , je vais utiliser ta macro .

Merci

re,

Ok, c'est toujours intéressant de comparer des méthodes

N'oublie pas la petite formalité