XL 2016 dupliquer des tickets de tombola avec un numéro différent dans excel

[ppepin]

Bonjour,
J'ai créé un ticket de tombola pour l’école de mon fils dans une feuille sur excel.
Ma question, comment dupliquer ce ticket avec un numéro différent à chaque fois?
J'ai besoin de pouvoir imprimer 6 billets par page, et j'ai besoin de 1800 billets au total...
Comment faire?
Il y a déjà de nombreux posts à ce sujet mais j'ai tut essayé et je n'y arrive pas... Je crois que je fais un blocage avec excel!
Un grand merci d'avance...

 

[Jacky67]

Bonjour,
J'ai créé un ticket de tombola pour l’école de mon fils dans une feuille sur excel.
Ma question, comment dupliquer ce ticket avec un numéro différent à chaque fois?
J'ai besoin de pouvoir imprimer 6 billets par page, et j'ai besoin de 1800 billets au total...
Comment faire?
Il y a déjà de nombreux posts à ce sujet mais j'ai tut essayé et je n'y arrive pas... Je crois que je fais un blocage avec excel!
Un grand merci d'avance...

Bonjour,
Une proposition en Pj avec ce code

Sub imprimer()
    Dim i&
    For i = 1 To 1800 Step 6
        [c5] = i: [h5] = i: [l5] = i + 1: [q5] = i + 1
        [c11] = i + 2: [h11] = i + 2: [l11] = i + 3: [q11] = i + 3
        [c17] = i + 4: [h17] = i + 4: [l17] = i + 5: [q17] = i + 5
        Feuil1.PrintPreview
        'Valider la ligne ci dessous pour imprimer la totalité et supprimer celle du dessus
        'Feuil1.PrintOut
     Next
End Sub

Ceci imprimera 300 feuilles avec 6 tickets de tombola par feuille

 

[ppepin]

Bonjour,
Une proposition en Pj avec ce code

Sub imprimer()
    Dim i&
    For i = 1 To 1800 Step 6
        [c5] = i: [h5] = i: [l5] = i + 1: [q5] = i + 1
        [c11] = i + 2: [h11] = i + 2: [l11] = i + 3: [q11] = i + 3
        [c17] = i + 4: [h17] = i + 4: [l17] = i + 5: [q17] = i + 5
        Feuil1.PrintPreview
        'Valider la ligne ci dessous pour imprimer la totalité et supprimer celle du dessus
        'Feuil1.PrintOut
     Next
End Sub

Ceci imprimera 300 feuilles avec 6 tickets de tombola par feuille

Un très grand merci c'est exactement ce qu'il me fallait!
Bonne soirée