numerotation de billets

porcinet82

XLDnaute Barbatruc

• 5 Avril 2005

• #2

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

 

Vote positif 0 Vote négatif

T

Tovotiana

Guest

• 5 Avril 2005

• #3

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]

 

Pièces jointes

• billets.zip

  26.5 KB · Affichages: 954
• billets.zip

  26.5 KB · Affichages: 955
• billets.zip

  26.5 KB · Affichages: 953

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 5 Avril 2005

• #4

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:

@+

 

Vote positif 0 Vote négatif

T

Tovotiana

Guest

• 5 Avril 2005

• #5

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

Merci encore

 

Vote positif 0 Vote négatif

A

andré

XLDnaute Barbatruc

• 5 Avril 2005

• #6

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

 

Vote positif 0 Vote négatif

G

galopin01

XLDnaute Occasionnel

• 5 Avril 2005

• #7

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 ?

 

Vote positif 0 Vote négatif

G

galopin01

XLDnaute Occasionnel

• 5 Avril 2005

• #8

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+

 

Vote positif 0 Vote négatif

T

Tovotiana

Guest

• 5 Avril 2005

• #9

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

Bonsoir

 

Vote positif 0 Vote négatif

G

galopin01

XLDnaute Occasionnel

• 6 Avril 2005

• #10

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

 

Vote positif 0 Vote négatif

Dugenou

XLDnaute Barbatruc

• 6 Avril 2005

• #11

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

 

Vote positif 0 Vote négatif

Dugenou

XLDnaute Barbatruc

• 6 Avril 2005

• #12

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]

 

Pièces jointes

• Billets Tombola_20050406214330.zip

  22.2 KB · Affichages: 1 274

Vote positif 0 Vote négatif