> Tous les forums > Forum Bureautique
 Macro excel pour attribution de lotSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
jeansérien
  Posté le 09/09/2015 @ 10:24 
Aller en bas de la page 
Petit astucien

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

Publicité
pcastuces
 Posté le 09/09/2015 à 16:24 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Equipe PC Astuces
Bonjour,

Le sujet a été déplacé par la modération dans le forum Bureautique qui semble plus adéquat.

Vous pouvez continuer la discussion à la suite de ce message.

A bientôt.
rj390111
 Posté le 09/09/2015 à 17:31 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

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.



Modifié par rj390111 le 09/09/2015 17:34
jeansérien
 Posté le 09/09/2015 à 18:35 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

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

dlxpat
 Posté le 09/09/2015 à 21:37 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

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

ferrand
 Posté le 10/09/2015 à 13:53 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

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

jeansérien
 Posté le 10/09/2015 à 14:47 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

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

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
437,31 €Processeur AMD Ryzen 7 5800X à 437,31 € livré
Valable jusqu'au 28 Février

Amazon Allemagne fait une promotion sur le tout nouveau processeur AMD Ryzen 7 5800X qui passe à 452,77 € (avec la TVA ajustée). Comptez 4,71 € pour la livraison en France soit un total de 457,48 € livré. On le trouve ailleurs (quand il est disponible !) autour de 520 €. 

Vous pouvez utiliser votre compte Amazon FR sur Amazon DE et il n'y a pas de douane.


> Voir l'offre
237,98 €TV 50 pouces LED 4K Continental Edison à 237,98 € avec le code 25EUROS
Valable jusqu'au 28 Février

Cdiscount fait une promotion sur la TV 50 pouces 4K Continental Edison qui passe à 237,98 € avec le code 25EUROS au lieu de 270 €. Derrière son écran 50 pouces Ultra HD 4K au design sans bordure, vous trouverez les fonctionnalités HDR, 3 ports HDMI et 2 ports USB. Vous pouvez lui ajouter un Fire TV Stick 4K pour la transformer en TV connectée.


> Voir l'offre
291,73 €Smartphone Samsung M51 (6,7 pouces FHD+, 6 Go RAM, 128 Go) à 291,73 € livré
Valable jusqu'au 01 Mars

Amazon Espagne fait une belle promotion sur le nouveau smartphone Samsung M51 qui passe à 286,61 € (avec la TVA ajustée). Comptez 5,12 € pour la livraison en France soit un total de 291,73 € livré alors qu'on le trouve ailleurs à partir de 359 €. Le smartphone Samsung Galaxy M51 dispose d'un écran Super AMOLED6.7 pouces d'une résolution de 1080 x 2400 pixels, d'un processeur 8 coeurs Snapdragon 730G et 6 Go de RAM. 128 Go de stockage sont présents et sont extensibles par MicroSD (512 Go max). Pour les moments inattendus de la vie, le quadruple appareil photo est idéal. Prenez de superbes photos de votre monde avec un appareil photo principal de 64 MP ou obtenez une image plus large avec l’angle de vue de 123 ° de l’objectif ultra grand angle 12 MP. Le capteur de profondeur 5 MP ajoute un flou d’arrière-plan et l’objectif macro 5 MP optimise la mise au point sur les gros plans.  A l'avant, un appareil photo 32 MP vous permettra de réaliser vos selphies avec un léger flou d'arrière-plan grâce à la mise au point en direct. Il est soutenu par une batterie de 7000 mAh avec recharge rapide. Les fonctionnalités de connectivité du smartphone incluent WiFi, Bluetooth, GPS, Volte, etc. 

Le Galaxy M51 dispose d’un capteur d’empreinte digitale à l’arrière pour vous connecter aux applications compatibles et déverrouiller votre appareil en toute simplicité. Le tout tourne sous Android 10 en français et est garanti 2 ans. Vous pouvez commander avec votre compte Amazon FR sur Amazon ES et il n'y a pas de douane.


> Voir l'offre

Sujets relatifs
Creation d' une boucle macro dans fichier EXCEL pour impression
Macro pour ouverture d'un fichier Excel
Macro pour créer un Gencode sur Excel - EAN 18
Macro pour un envoi feuille excel par mail
Macro excel pour enregistrer
macro excel pour convertir données
EXCEL RECHERCHEV pour autre fichier. Macro?
macro pour passer de word vers excel
Excel : macro pour récupérer ttes les données ?
macro excel pour convertir données d'un txt
Plus de sujets relatifs à Macro excel pour attribution de lot
 > Tous les forums > Forum Bureautique