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

  • Initiateur de la discussion Initiateur de la discussion ppepin
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

ppepin

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

Pièces jointes

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

Pièces jointes

Dernière édition:
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
Un très grand merci c'est exactement ce qu'il me fallait!
Bonne soirée
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
166
Réponses
2
Affichages
720
  • Question Question
Microsoft 365 Macro VBA - Excel
Réponses
12
Affichages
623
Retour