numerotation de billets

Bonjour

Je suis entrainde créer des billetts de spectacles à souche (le même billet sur une feuille A4, soit 4 billets pas page)
Comment numeroter ces billets (un n° sur la souche, le même sur le billet), sachant que la 1ère page aura comme n°, 1 à 4, la 2ème, 5 à 8, etc etc

Merci d'avance pour votre aide

[porcinet82]

salut ,

Peux tu joindre un fichier en exemple pour que ce soit plus simple, de ce fait, nous pourrons adapter directement a ce que tu cherches

bon aprem @+

Salut

Voilà, j'ai joint mon fichier et je vais être le plus explicite possible.

Donc cette page doit etre imprimée 150 fois pour obtenir 600 billets.
La numerotation commence à 001 jusqu'à 600; mais le 002 sera sur la 2ème feuille, le 003 sur la 3ème feuille, etc jusqu'à 150. Et le 151 reviens sur la 1ère feuille, le 152 sur la 2ème feuille, etc... jusqu'à 600.

Merci [file name=billets.zip size=27153]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/billets.zip[/file]

[porcinet82]

re Tovotiana

le pb c'est que je ne vois pas comment faire sans réaliser tous les billets. peut-etre que qqun aura une idée

dsl :huh:

@+

Excusez-moi, je me suis mal exprimé, bien sûr que mes 150 pages seront à l'écran

Merci encore

[andré]

Salut,

Je ne peux ouvrir ton ficher joint, mais cela n'a pas d'importance pour l'explication.

Supposns que le nombre 001 doive se trouver en ligne 5, le 002 en ligne 55, le 003 en ligne 105, ....

La formule : =ENT(ligne()/50)+1 donnera 001 en ligne 5, 002 en ligne 55, ...
Le diviseur 50 dans la formule est le nombre de lignes entre le 001 et le 002.

Pour afficher 001 et non 1, il faut mettre la cellule au format 000

Pour le 151, il suffit d'additionner 150 à la cellule contenant le 001, pour le 301, aditionner 300 ...

Une fois les quatre premiers billets numérotés, cette page peut être copiée vers le bas, les formules s'ajusteront automatiquement.

Bonne soirée.
Ândré.

[galopin01]

Bonsoir,
La macro suivante fait celà avec une seule feuille :
Dans cet exemple les souches sont numérotées
Colonne A Lignes 12/24/36/48
les billets
Colonne B Lignes 12/24/36/48
Il y a juste à formater les cellules

Sub test()
For i = 1 To 597 Step 4
Range(Cells(12, 1), Cells(12, 2)).Value = i
Range(Cells(24, 1), Cells(24, 2)).Value = i + 1
Range(Cells(36, 1), Cells(36, 2)).Value = i + 2
Range(Cells(48, 1), Cells(48, 2)).Value = i + 3
ActiveSheet.PrintPreview
Next
End Sub

Ok ?

[galopin01]

Oups !
Correction: l'idée est la même mais en plus j'ai relu l'énoncé !

Sub test()
For i = 1 To 150
Range(Cells(12, 1), Cells(12, 2)).Value = i
Range(Cells(24, 1), Cells(24, 2)).Value = 150 + i
Range(Cells(36, 1), Cells(36, 2)).Value = 300 + i
Range(Cells(48, 1), Cells(48, 2)).Value = 450 + i
ActiveSheet.PrintPreview
Next
End Sub

A+

Merci bien à tous, j'essaie et je vous tiens au courant

Bonsoir

[galopin01]

bonjour,
le plus simple, dans la feuille unique :
Nommer la première souche par exemple : ref

formule du 1er billet : = ref
formule pour 2ème souche = ref + 150 (et 2ème billet = )
formule pour 3ème souche = ref + 300 (et 3ème billet = )
formule pour 4ème souche = ref + 450 (et 4ème billet = )
Ensuite :

Sub test()
For i = 1 To 150
Range('ref').Value = i
ActiveSheet.PrintPreview
Next
End Sub

[Dugenou]

Salut Tovotiana et les gentils contributeurs,

J'ai utilisé un jour un fichier fait par quelqu'un d'autre qui faisait ça tout seul. On choisit le Nb de billet par page, le nb total de billet et hop !

mais il est resté à la maison

j'eassaye de le joindre ce soir en rentrant

Cordialement

[Dugenou]

Tadaaaaa !

Je l'ai retrouvé le fameux fichier.

C'est génial : on choisit le Nb de billets par page, le nb de billet à imprimer et même le N° du premier billet comme ça on peut imprimer au fur et à mesure des besoins.

Il faut juste faire la mise ne page pour le N° tombe au bon endroit car en plus c'est prévu pour être fait sur des feuilles de billets imprimées (ronéotypées) en couleur avec dessin, liste des lots et tout et tout. (la couleur change chaque année pour éviter les tricheurs).

Ah oui encore un petit détail croustillant : pour faire la découpe entre la souche et le billet vendu je vous conseille la machine à coudre avec l'aiguille à Blue Jeans mais seulement dix feuilles à la fois. ça permet de préparer les carnet de 10 après massicotage et agrafage.

Bon courage ! [file name=Billets Tombola_20050406214330.zip size=22775]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Billets Tombola_20050406214330.zip[/file]