XL 2010 Dupliquer une plage plusieurs fois et imprimer

aurelio.ewane · 6 Novembre 2024

Bonjour la Team
content de vous lire.
jai un fichier ou je trouve d'énorme difficultés jepositive1986@

jai deux feuilles
une feuille Base ou se trouve des données
et une feuille bulletins

je voudrais imprimer tous les bulletins dans un seul PDf pour cela je voudrais copier le bulletins modèle et le copier sur lea gauche le nombre de fois egale au nombre de Bulletins
nous allons par exemple supposer 50 et en incrémentant la plage et en faisant un saut de page.
Par exemple
la plage modèle est A1:AJ103

les autres Bulletins doivent etre copiées en
AK1:BT103 avec un saut de page à BT
BU1D103 avec un saut de page en DD et ainsi de suite

et ensuite imprimer tous ces Bulletins dans un seul PDf en à la fin supprimer toutes les copies et ne rester qu'avec la plage A1:AJ103

Je vous joins mon fichier

Cordialement

Pièces jointes

TooFatBoy · 6 Novembre 2024

Bonjour,

Ca ressemble un peu à ça :

XL 2010 - Problème pour Générer plusieurs PDf en VBA

Bonjour la Team content de vous lire. jai un fichier ou je trouve d'énorme difficultés jepositive1986@ jai deux feuilles une feuille Base ou se trouve des données et une feuille bulletins je voudrais imprimer tous les bulletins dans un seul PDf pour cela je voudrais copier le bulletins modèle...

excel-downloads.com

N'est-il pas ?

Phil69970 · 6 Novembre 2024

Bonjour à tous

@aurelio.ewane

Multiplier les demandes identiques est contre productif et ne nous incite pas à t'aider mais nous irrite plutôt.

Pose toi la question pourquoi il n'y a pas de réponse ?

Demande incompréhensible ?

Fichier incompréhensible ?

Ou bien un mélange des 2 ???

aurelio.ewane · 6 Novembre 2024

TooFatBoy à dit:
Bonjour,

Ca ressemble un peu à ça :

XL 2010 - Problème pour Générer plusieurs PDf en VBA

Bonjour la Team content de vous lire. jai un fichier ou je trouve d'énorme difficultés jepositive1986@ jai deux feuilles une feuille Base ou se trouve des données et une feuille bulletins je voudrais imprimer tous les bulletins dans un seul PDf pour cela je voudrais copier le bulletins modèle...

excel-downloads.com

N'est-il pas ?

jarrive pas a trouver de solution

aurelio.ewane · 7 Novembre 2024

De

Phil69970 à dit:
Bonjour à tous

@aurelio.ewane

Multiplier les demandes identiques est contre productif et ne nous incite pas à t'aider mais nous irrite plutôt.

Pose toi la question pourquoi il n'y a pas de réponse ?

Demande incompréhensible ?

Fichier incompréhensible ?

Ou bien un mélange des 2 ???

Desole grand frere je trime la dessu pendant plus de 2 mois

aurelio.ewane · 7 Novembre 2024

Phil69970 à dit:
Bonjour à tous

@aurelio.ewane

Multiplier les demandes identiques est contre productif et ne nous incite pas à t'aider mais nous irrite plutôt.

Pose toi la question pourquoi il n'y a pas de réponse ?

Demande incompréhensible ?

Fichier incompréhensible ?

Ou bien un mélange des 2 ???

je vais essayer de reformuler

TooFatBoy · 7 Novembre 2024

aurelio.ewane à dit:
je vais essayer de reformuler

On a compris que tu veux imprimer plusieurs bulletins dans un seul et unique PDF.

Mais ce que perso je ne comprends pas, c'est comment sont construits ces différents bulletins.
Où sont les données des bulletins ?
Où est la macro qui remplies les bulletins ?
etc.

aurelio.ewane · 7 Novembre 2024

TooFatBoy à dit:
On a compris que tu veux imprimer plusieurs bulletins dans un seul et unique PDF.

Mais ce que perso je ne comprends pas, c'est comment sont construits ces différents bulletins.
Où sont les données des bulletins ?
Où est la macro qui remplies les bulletins ?
etc.

Il ya une base de données qui contient les noms des eleves et les notes
cette Feuille sappelle Base
la feuille Bulletins contient un modèle de bulletin qui contient des forumules qui qui permettent ) partir du matricule et de la classe ainsi que de la sequence d'aller rechercher les notes..
la dessus pas de problème.

mon soucis cest que je voudrais copier cette plage de bulletins A1:Aj103 et la coller un certain nombre de fois a a gauche en respectant les largeurs des colonnes et en mettant des saut de pages chaque fois pour que je puisse imprimer sans coupure..

mon objectif c'est d'imprimer tous les bulletins dans un seul PDF

Merci si vous avez des Solutions
jai meme penser à copier/deplacer cette feuille un certain nombre de fois mais je narrive pas

Phil69970 · 7 Novembre 2024

@aurelio.ewane

Il faut lire et comprendre les réponses que l'on te fait.

TooFatBoy à dit:
On a compris que tu veux imprimer plusieurs bulletins dans un seul et unique PDF.

Phil69970 à dit:
Pose toi la question pourquoi il n'y a pas de réponse ?

Demande incompréhensible ?

Fichier incompréhensible ? <== c'est ici ton problème

Ou bien un mélange des 2 ???

TooFatBoy à dit:
Mais ce que perso je ne comprends pas, c'est comment sont construits ces différents bulletins.
Où sont les données des bulletins ?
Où est la macro qui remplies les bulletins ?

Et à quoi cela sert d'avoir un fichier pdf avec les 50 bulletins dessus ?

TooFatBoy · 7 Novembre 2024

Je suis 100 % d'accord avec Phil69970 : ta feuille "Base" est un beau bazar complètement incompréhensible !

patricktoulon · 7 Novembre 2024

Bonjour
ho! punaise
je vais me contenter de te donner un exemple de mécanique simple pour multiplier test tableau bulletin avec sauts de page
car ta base c'est un beau heu..comment dire heu....

VB:

Option Explicit
Sub nettoie()
    nettoyage
End Sub
Function nettoyage()
    With Sheets("bulletins")
        .Cells(1, "AJ").Resize(, .UsedRange.Columns.Count).EntireColumn.Delete Shift:=xlToLeft

        Do While .UsedRange.Cells(1, .UsedRange.Cells.Count).Column = .Cells(1, "AI").Column: DoEvents: Loop
    End With
    nettoyage = True
End Function

Sub createBulletin()
    Dim X As Boolean, NbCopY&, plage As Range, NbCol&, CoL1&, LargeurCol&, C&, NewPlage As Range
    X = nettoyage
    Application.ScreenUpdating = False
    NbCopY = 20

    Set plage = [Bulletins!L1:AI93]
    NbCol = plage.Columns.Count
    CoL1 = [AJ1].Column
    LargeurCol = [Bulletins!L1].Width
    DoEvents
    For C = 1 To NbCopY
        plage.Copy Destination:=Cells(1, CoL1)
        ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=Cells(1, CoL1)
        CoL1 = CoL1 + NbCol
        Set NewPlage = Sheets("Bulletins").Cells(1, CoL1).Resize(plage.Rows.Count, plage.Columns.Count)

        With NewPlage
            'on peut remplir le nouveau bulletin
            '.cells(x,y)=bidule
            'etc...
            '...


        End With

    Next
    ActiveSheet.UsedRange.ColumnWidth = [Bulletins!L:L].ColumnWidth
    ActiveSheet.PageSetup.PrintArea = Sheets("bulletins").Range(Cells(1, "L"), Cells(93, plage.Columns.Count * NbCopY)).Resize(93).Address
End Sub

aurelio.ewane · 8 Novembre 2024

patricktoulon à dit:

Bonjour
ho! punaise
je vais me contenter de te donner un exemple de mécanique simple pour multiplier test tableau bulletin avec sauts de page
car ta base c'est un beau heu..comment dire heu....

VB:

Option Explicit
Sub nettoie()
    nettoyage
End Sub
Function nettoyage()
    With Sheets("bulletins")
        .Cells(1, "AJ").Resize(, .UsedRange.Columns.Count).EntireColumn.Delete Shift:=xlToLeft

        Do While .UsedRange.Cells(1, .UsedRange.Cells.Count).Column = .Cells(1, "AI").Column: DoEvents: Loop
    End With
    nettoyage = True
End Function

Sub createBulletin()
    Dim X As Boolean, NbCopY&, plage As Range, NbCol&, CoL1&, LargeurCol&, C&, NewPlage As Range
    X = nettoyage
    Application.ScreenUpdating = False
    NbCopY = 20

    Set plage = [Bulletins!L1:AI93]
    NbCol = plage.Columns.Count
    CoL1 = [AJ1].Column
    LargeurCol = [Bulletins!L1].Width
    DoEvents
    For C = 1 To NbCopY
        plage.Copy Destination:=Cells(1, CoL1)
        ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=Cells(1, CoL1)
        CoL1 = CoL1 + NbCol
        Set NewPlage = Sheets("Bulletins").Cells(1, CoL1).Resize(plage.Rows.Count, plage.Columns.Count)

        With NewPlage
            'on peut remplir le nouveau bulletin
            '.cells(x,y)=bidule
            'etc...
            '...


        End With

    Next
    ActiveSheet.UsedRange.ColumnWidth = [Bulletins!L:L].ColumnWidth
    ActiveSheet.PageSetup.PrintArea = Sheets("bulletins").Range(Cells(1, "L"), Cells(93, plage.Columns.Count * NbCopY)).Resize(93).Address
End Sub

mrciiiiiiiiiii je vais regarder

patricktoulon · 8 Novembre 2024

re
Bonjour

réponse au MP: si c'est juste la duplication du bulletin alors ce que je t'ai donné fait parfaitement l'affaire
il te suffit de changer 20 pour plus si tu en veux plus (dans la limite des colonnes dispo bien evidemment
il te suffira de l'enregistrer cette feuille en pdf pour avoir chaque bulletins dans une page

XL 2010 Dupliquer une plage plusieurs fois et imprimer

aurelio.ewane

XLDnaute Occasionnel

Pièces jointes

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

XL 2010 - Problème pour Générer plusieurs PDf en VBA

Phil69970

XLDnaute Barbatruc

aurelio.ewane

XLDnaute Occasionnel

XL 2010 - Problème pour Générer plusieurs PDf en VBA

aurelio.ewane

XLDnaute Occasionnel

aurelio.ewane

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

aurelio.ewane

XLDnaute Occasionnel

Phil69970

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Pièces jointes

aurelio.ewane

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

Discussions similaires

XL 2010 Dupliquer une plage plusieurs fois et imprimer

XLDnaute Occasionnel

Pièces jointes​

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

XLDnaute Barbatruc

Discussions similaires

Pièces jointes