Bonjour,

Mon association organise une tombola.

Nous attribuons un lot par carnet acheté.

Nous vendons 100 carnets et avons ainsi 100 lots à distribuer répertoriés dans un fichier excel .

Pour éviter la tricherie, l'attribution doit se faire le jour du tirage par exécution d'un programme de manière à ne pas avoir une liste pré-établie d'affectation.

Je ne doute pas de trouver parmi les astuciens la réponse à ma demande de macro.

Je connais un peu excel mais pas les macros.

Je consulte régulièrement les forums de PCastuces mais ne suis pas à l'aise pour faire moi-même une demande.

Merci à tous ceux qui m'auront lu.

Guy

Bonjour,

Cela manque un peu d'explications

Je suppose que chaque carnet contient un nombre de billets. Combien ? Les carnets sont vendu entier ou par billet ? Un billet de chaque carnet sera tiré au sort pour déterminer le billet gagnant ? Tous les n° des billets se suivent pour tous les carnets ?

Le 1er n° est : ? Le dernier n° est (n'est important que s'ils se suivent) sinon il faut les n° des différentes séries.

Bonjour RJ

merci pour cette lecture rapide.

Nous avons 10 lots que nous attribuerons par tirage au sort et 100 lots distribués à raison de 1 lot par carnet de 10 tickets, cela signifie que nous avons 100 carnets de tickets vendus.

Les lots sont répertoriés dans un fichier numéroté de 6 à 106.

Pour éviter toute suspicion de tricherie, nous ne voulons pas prévoir à l'avance l'attribution des lots à chaque carnet afin d'éviter qu'une fuite puisse permettre le choix du carnet en fonction du lot.

Donc nous avons pensé à une macro à exécuter au moment du tirage au sort pour l'affectation des lots.

Il y a 1000 tickets répartis par carnets de 10 tickets, ce qui fait 100 carnets

carnet n°1 de ticket 1 à 10

carnet n°2 de ticket 11 à 20

etc....

L'exécution de la macro produirait un fichier de résultat.

Suis je assez clair ?

Cordialement

Guy

Une solution : vous créez en colonne A (par exemple !) les chiffres du carnet 1, soit de à 10, en C les chiffres du carnet 2, soit de 11 à 20, en E les chiffres du carnet 3, soit de 21 à 30......

En B1 entrez la formule =ALEA.ENTRE.BORNES(A1;A10), en D1 =ALEA.ENTRE.BORNES(c1;c10), en F1, =ALEA.ENTRE.BORNES(e1;e10) et ainsi de suite ....Vous mettez ces cellules avec formule en couleur de texte blancs (idem à la couleur de fond de la cellule concernée !.

Dans VBA vous entrez la macro ci-dessous, en rajoutant après Range("B1........) toutes les cellules dans lesquelles figure la formule alea, vous remplacez H1 avant Activate par la dernière cellule concernée par la formule..........et le tour est joué

Sub COULEUR()

'' COULEUR Macro

Range("B1,D1,F1,H1").Select

Range("H1").Activate

With Selection.Font

.ColorIndex = xlAutomatic

.TintAndShade = 0

End With

Range("A1").Select

End Sub

Bonjour,

Il y 100 carnets de 10 tickets. Les tickets sont numérotés de 1 à 1000.

Il y a 100 lots à répartir par tirage au sort par carnet. Si les carnets n'ont pas de numéro propre, ce sera de 0 à 99 (en se basant sur la numérotation des tickets.
[lots numérotés de 6 à 106, ça fait 101 lots, et ça ne colle pas.]

Il y a 10 lots à tirer parmi les 1000 tickets.

Pour le tirage, une macro simple sur un modèle inspiré par Galopin :

Sub Tirage()
Dim Ch, i%, n%, c$
For i = 1 To 100
Ch = Ch & Chr(32 + i)
Next i
Randomize
With Range("B1:B100")
For i = 1 To 100
n = Int(Rnd * Len(Ch) + 1)
c = Mid(Ch, n, 1)
.Cells(i, 1).Value = Asc(c) - 33
Ch = Replace(Ch, c, "")
Next i
End With
End Sub

Il faut remplacer l'indication B1:B100 par la plage (colonne) en regard des 100 lots, et l'exécution de la macro aboutira à un nombre de 0 à 99 [numéro de carnet] en regard de chaque lot.

Pour le reste, il faut être plus précis dans ce que tu veux, et mettre autant que possible un modèle, sur lequel on puisse voir le résultat à obtenir et répondre de façon concrète.

Corrdialement

Bonjour Ferrand

Beau travail !

Malgré des explications approximatives la macro fonctionne parfaitement.

Je n'ai plus qu'à trier le résultat pour avoir tout cela dans l'ordre.

Merci beaucoup pour votre diligence.

Merci à dixpat également dont j'essaierai la macro

Je considère et positionne la demande comme résolue