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

ppepin à dit:

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...

Cliquez pour agrandir...

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

Jacky67 à dit:

Bonjour,
Une proposition en Pj avec ce code

VB:

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

Cliquez pour agrandir...