Loto sous Excel

[sbx59]

Bonjour,

J'ai trouver un tableau sous Excel pour des cartons de loto.

Je cite ma source : http://forum.excel-pratique.com/excel/creer-des-cartons-du-loto-quine-t56456.html

Je mais le tableau en pièces jointe.

J'aimerai savoir comment faire pour avoir 3 carton sur le 3eme onglet.

Merci de votre aide.

 

[Modeste geedee]

Bonjour,

J'ai trouver un tableau sous Excel pour des cartons de loto.

Je cite ma source : http://forum.excel-pratique.com/excel/creer-des-cartons-du-loto-quine-t56456.html

Je mais le tableau en pièces jointe.

J'aimerai savoir comment faire pour avoir 3 carton sur le 3eme onglet.

Merci de votre aide.

Contacter l'auteur

sinon voir aussi ceci :

 

[sbx59]

merci. Mais votre tableau ne correcpond pas a mes attente. Par contre l'autre oui. J'ai essayer de contacter l'auteur et la personne qui la aider mais pas de reponse ...

Savez vous comment editer la page ? D'autant plus que l'auteur dit bien que son travail est libre de droit de tout changement.

Merci de votre aide.

 

[Modeste geedee]

Bonsour®

merci. Mais votre tableau ne correcpond pas a mes attente. Par contre l'autre oui. J'ai essayer de contacter l'auteur et la personne qui la aider mais pas de reponse ...

Savez vous comment editer la page ? D'autant plus que l'auteur dit bien que son travail est libre de droit de tout changement.

Merci de votre aide.

- recopier un carton (A7:I11) en respectant les mises en forme et intervalles précédents (en A13)
- redefinir la zone d'impression : A1:J18
- modifier la macro :

Sub PrintGrid()
Dim Tablo As Variant, z As Range, i%, j%, k%
k = (Worksheets("Cartons").Range("M1").Value * 3) - 8
Worksheets("Cartons").Activate
j = 1
For i = 1 To k Step 9
Tablo = Worksheets(2).Range("A" & i & ":I" & i + 2)
Range(Cells(2, 1), Cells(4, 9)) = Tablo
Tablo = Clear
Tablo = Worksheets(2).Range("A" & i + 3 & ":I" & i + 5)
Range(Cells(8, 1), Cells(10, 9)) = Tablo
Tablo = Clear
Tablo = Worksheets(2).Range("A" & i + 6 & ":I" & i + 8)
Range(Cells(14, 1), Cells(16, 9)) = Tablo
Tablo = Clear

Range("I5").Value = j
    ActiveWindow.SelectedSheets.PrintPreview
j = j + 3
Next
End Sub

 

[sbx59]

Super sa fonctionne !!

Par contre, j'aimerais maintenant savoir, comment je peut en mettre 12 sur la meme feuille ?

J'ai essayer avec la metode, cela ne fonctionne pas. Et j'ai deplacer le bouton "imprimer" et celui ci ne veut plus imprimer.

 

[sbx59]

Voila ce que j'aimerais avoir 24 carton. Les 500 feuilles se trouve en A100

 

[sbx59]

Avec des recherches, j'ai réussi a faire une 2eme colonne. Par contre, il y a des double. cela ne prendre pas la bonne ligne.

Tablo = Worksheets(2).Range("A" & i & 18 & ":I" & i + 20)
Range(Cells(2, 11), Cells(4, 19)) = Tablo
Tablo = Clear
Tablo = Worksheets(2).Range("A" & i & 21 & ":I" & i + 23)
Range(Cells(8, 11), Cells(10, 19)) = Tablo
Tablo = Clear
Tablo = Worksheets(2).Range("A" & i & 24 & ":I" & i + 26)
Range(Cells(14, 11), Cells(16, 19)) = Tablo
Tablo = Clear
Tablo = Worksheets(2).Range("A" & i & 27 & ":I" & i + 29)
Range(Cells(20, 11), Cells(22, 19)) = Tablo
Tablo = Clear
Tablo = Worksheets(2).Range("A" & i & 30 & ":I" & i + 32)
Range(Cells(25, 11), Cells(27, 19)) = Tablo
Tablo = Clear
Tablo = Worksheets(2).Range("A" & i & 33 & ":I" & i + 35)
Range(Cells(30, 11), Cells(32, 19)) = Tablo
Tablo = Clear

 

[sbx59]

Voila pour la 2eme colonne. Par contre j'ai des double ... Comment faire ?

Tablo = Worksheets(2).Range("A" & i & 18 & ":I" & i + 20)
Range(Cells(2, 11), Cells(4, 19)) = Tablo
Tablo = Clear
Tablo = Worksheets(2).Range("A" & i & 21 & ":I" & i + 23)
Range(Cells(8, 11), Cells(10, 19)) = Tablo
Tablo = Clear
Tablo = Worksheets(2).Range("A" & i & 24 & ":I" & i + 26)
Range(Cells(14, 11), Cells(16, 19)) = Tablo
Tablo = Clear
Tablo = Worksheets(2).Range("A" & i & 27 & ":I" & i + 29)
Range(Cells(20, 11), Cells(22, 19)) = Tablo
Tablo = Clear
Tablo = Worksheets(2).Range("A" & i & 30 & ":I" & i + 32)
Range(Cells(25, 11), Cells(27, 19)) = Tablo
Tablo = Clear
Tablo = Worksheets(2).Range("A" & i & 33 & ":I" & i + 35)
Range(Cells(30, 11), Cells(32, 19)) = Tablo
Tablo = Clear

 

[sbx59]

Monologue, mais tempi ! j'ai enffin trouvé !

Je vous joint donc le fichier. Par contre, aucun 90 dans la colonne des 80 comment l'ajouté au script ?

J'ai aussi remarqué, qu'il n'y a jamais le 89...

 

[Modeste geedee]

Bonsour®

Monologue, mais tempi ! j'ai enffin trouvé !

Je vous joint donc le fichier. Par contre, aucun 90 dans la colonne des 80 comment l'ajouté au script ?

J'ai aussi remarqué, qu'il n'y a jamais le 89...

revoir l'algorithme...

Mais votre tableau ne correcpond pas a mes attente. Par contre l'autre oui.

c'est vous qui voyez ...
on n'imprime que les cartons payés...

 

[sbx59]

Oui mais justement j'ai besoin d'aide pour l'algorithme ... je ne sais meme pas ou il se trouve dans le fichier ... dans les macro ?


Le but etant de faire 500 carton et de les faire impimer chez un imprimeur sur du papier cartonné.

 

[Modeste geedee]

Bonsour®

Oui mais justement j'ai besoin d'aide pour l'algorithme ... je ne sais meme pas ou il se trouve dans le fichier ... dans les macro ?
Le but etant de faire 500 carton et de les faire impimer chez un imprimeur sur du papier cartonné.

si l'algorithmique (VBA, EXCEL) importe peu ...
Alors quite à payer l'imprimeur ...
http://www.initiatives.fr/loto/cartes-et-cartons-de-loto-8171-publication

sinon la macro s'appelle : Tiragegrid dans le module Main
j variant de 1 à 9
l'instruction :
.Cells(i, j).Value = a + (j - 1) * 10
ne peut en aucun cas être égale à 90