XL 2016 je galere avec tickets de tombola

[geronim77]

Bonjour j'ai un fichier excel avec des tickets de tombola qui s'arretent a 2600 j'ai besoin de les dupliquer pour qu'ils aillent jusqu'a 8000 avec la numérotation automatique comment faire merci par avance

 

[TooFatBoy]

Bonjour,

Il suffit de sélectionner les tickets existants et de tirer vers le bas (jusqu'à la ligne 4001, je pense).

Tu sélectionnes la plage B1299:L1301 puis tu tires sur la poignée jusqu'à la ligne 4001 et ensuite tu mets toutes les lignes à une hauteur de 160.


Tu feras gaffe, tes tickets sont périmés depuis cinq ans...

 

[Jacky67]

Bonjour j'ai un fichier excel avec des tickets de tombola qui s'arretent a 2600 j'ai besoin de les dupliquer pour qu'ils aillent jusqu'a 8000 avec la numérotation automatique comment faire merci par avance

Bonjour à tous,
Une proposition en PJ par vba avec ce code

Sub imprimer()
    Dim i&
    For i = 1 To 8000 Step 6
        [b2,f2] = i: [h2,L2] = i + 1
        [b3,f3] = i + 2: [h3,L3] = i + 3
        [b4,f4] = i + 4: [h4,L4] = i + 5
        Feuil1.PrintPreview
        'Valider la ligne ci dessous pour imprimer la totalité et supprimer celle du dessus
        'Feuil1.PrintOut
    Next
End Sub

Seul 6 tickets de tombola sont nécessaire sur la feuille avec ce code (lignes 1:4)
1334 feuilles seront imprimés à raison de 6 tickets par feuilles
Les 4 dernier tickets seront a éliminer (si nécessaire)
Reste à modifier les dates de ce tombola sur les 6 tickets avant l'impression.

**Version économique V3
Imprime 8 tickets par feuille, donc seulement 1000 feuilles
Possibilité de définir la date sans avoir à modifier les tickets ou le code

 

[geronim77]

Bonjour,

Il suffit de sélectionner les tickets existants et de tirer vers le bas (jusqu'à la ligne 4001, je pense).

Tu sélectionnes la plage B1299:L1301 puis tu tires sur la poignée jusqu'à la ligne 4001 et ensuite tu mets toutes les lignes à une hauteur de 160.


Tu feras gaffe, tes tickets sont périmés depuis cinq ans...

en faisant ca j'ai pas les bons numéros sur les suivants as tu essayé

 

[TooFatBoy]

en faisant ca j'ai pas les bons numéros sur les suivants as tu essayé

De rien...
Non non, j'ai pas essayé avant de faire cette proposition, j'ai dit un truc au hasard, juste pour passer le temps...

Bon, plus sérieusement : oui, bien sûr que j'ai essayé avant de donner une procédure avec chaque étape.
Je suis comme toi sous Excel 2016, donc ça devrait fonctionner aussi chez toi.

 

[geronim77]

De rien...
Non non, j'ai pas essayé avant de faire cette proposition, j'ai dit un truc au hasard, juste pour passer le temps...

Bon, plus sérieusement : oui, bien sûr que j'ai essayé avant de donner une procédure avec chaque étape.
Je suis comme toi sous Excel 2016, donc ça devrait fonctionner aussi chez toi.

mais ta bien en dessous de 2599 le 2601 car moi en dessous de 2599 ils me remet un 2600 et donc decale tout

 

[TooFatBoy]

Chez moi ça numérote parfaitement jusqu'à 8000 !

A mon avis t'as tout simplement pas suivi la procédure décrite. Sinon je ne vois pas pourquoi ça marcherait chez moi mais pas chez toi.

 

[geronim77]

Chez moi ça numérote parfaitement jusqu'à 8000 !

je prends ton fichier c'est niquel mais quand j'essaye de le faire moi ca merde en tout cas merci

 

[soan]

Bonjour Marcel, le fil,

Chez moi ça numérote parfaitement jusqu'à 8000 !

je ne vois pas pourquoi ça marcherait chez moi mais pas chez toi.

c'est simple : parce que toi tu sais compter jusqu'à 8 000 !

soan

 

[TooFatBoy]

Reprends ton fichier, suis la procédure de #2, mais au lieu de tirer jusqu'à la ligne 4001, tire sur seulement jusqu'à la ligne 1302.

Par contre, je viens de voir un truc bizarre : ça écrit une partie du texte en "chinois" !

 

[TooFatBoy]

Bonjour Marcel, le fil,





c'est simple : parce que toi tu sais compter jusqu'à 8 000 !

soan

Faut pas rester là monsieur, ici on travaille...

 

[soan]

alors bon travail, et courage !

soan