> Tous les forums > Forum Bureautique
 macro excel Tirage d'une tombolaSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
jeansérien
  Posté le 20/08/2019 @ 21:32 
Aller en bas de la page 
Petit astucien

Bonjour,
Notre association a décidé de faire une tombola et nous aimerions faire un tirage informatisé sous excel.

A partir d'une liste de lots nous voulons les attribuer à raison de un lot par carnet de 10 tickets. Nous espérons vendre une cinquantaine de carnets.

Nous aimerions que le tirage soit aléatoire pour chaque carnet.

Je fais appel aux spécialistes de la programmation en VBA qui ne seraient pas partis en vacances.

Merci de votre soutien.

Bel été à tous.

[Configuration automatique à compléter]
Windows 10
Chrome 76.0.3809.100

Publicité
poussebois
 Posté le 21/08/2019 à 00:21 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

Bonsoir ,

Je ne pense pas qu'il soit nécessaire de passer par une macro pour effectuer ce tirage au sort.

Excel possède la fonction ALÉA.ENTRE.BORNES qui permet aisément de tirer un carnet au sort pour la répartition des lots puis un billet au hasard parmi les 10 d'un carnet.

Peux-tu poster ton fichier via www.cjoint.com ?

@ +

cebe
 Posté le 21/08/2019 à 19:19 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

J'ai été confronté à tel problème. Sur le net, j'ai trouvé ceci.

Dans ton fichier vierge, colonne A, tu places les numéros de ton choix (j'ai mis 1, 2, 3, 4, etc. de haut en bas jusqu'à 50

Colonne B, en BI tu mets la formule : =SI(A1<>"";ALEA();""), que tu étires jusqu'en B50

Colonne C, en C1, tu mets la formule : =SI(LIGNE()>$G$23;"";INDIRECT("A" & EQUIV(PETITE.VALEUR(INDIRECT("$B$1:$B$" & $G$23);LIGNE());INDIRECT("$B$1:$B$" & $G$23);0))) que tu étires jusqu'en C50.

Dans la case G23, il faut mettre la fonction matricielle suivante : {=MAX(SI(A1:A65535<>"";LIGNE(A1:A65535)))} (les formules de la colonne C y font référence, c'est le calcul du nombre d'objets dans la colonne A)

Ainsi, dans la colonne B se trouvent des valeurs aléatoires, dans la colonne C, les numéros indiquent le rang occupé, dans mon exemple le N°1 est 2°, le 2 est 28°, etc.

Cela te convient-il ?

PS La touche F9 permet de refaire des tirages...

Liberado
 Posté le 21/08/2019 à 21:25 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Cebe, ta formule semble intéressante. Il faudrait, je pense, changer la numérotation de la colonne A par les numéros des billets. Mais il me semble qu'avec cette méthode, plusieurs tickets d'un même carnet peuvent se retrouver aux premières places et ce n'est pas le but recherché par jeansérien, il me semble. Ta formule donnerait la place obtenue par chacun des 50 carnets vendus, déterminant ainsi le prix qui lui correspond.

Si chaque carnet de 10 tickets est indivisible, ta solution est parfaite. Si les tickets peuvent être vendus séparément, nous nous retrouvons avec 500 numéros dont 1 sur 10 obtiendra un prix sans que deux prix reviennent à des tickets d'un même carnet.

Je n'y ai pas trop réfléchi mais, avec ta solution et dans l'hypothèse de tickets individuels, il ne faudrait que 10 lignes pour désigner le ticket gagnant d'un carnet. Puis, 49 fois F9 pour les autres carnets. Suis-je sur la bonne voie ?

- Ta formule complète pour désigner quel lot sera attribué à quel carnet

- La même formule mais avec seulement 10 lignes pour déterminer le ticket gagnant pour chaque carnet.

Quoi qu'il en soit, je garde ta formule et je vais l'essayer car elle est intéressante. Merci

Cordialement

Liberado

cebe
 Posté le 21/08/2019 à 21:41 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

Bienheureux de t'aider ! Probable qu'en "bidouillant" ce principe tu puisses arriver à une solution convenable...

J'y pense : construire 5 feuilles avec chacune 10 lignes pour avoir 50 lots en tout ?

jeansérien
 Posté le 22/08/2019 à 06:57 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour "poussebois"

Merci de t'intéresser à mon problème.

J'ai posté le fichier des lots à https://www.cjoint.com/c/IHwe0LW35kB

Je ne ferai pas le tirage moi-même et j'aimerais un bouton d'exécution sur la feuille de calcul car les personnes en charge du tirage ne sont pas rompues aux manipulations informatiques en général et d'excel en particulier.

Cordialement



Modifié par jeansérien le 22/08/2019 08:42
jeansérien
 Posté le 22/08/2019 à 08:39 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour "Cebe"

J'ai essayé ta procédure, et, en dehors du fait que je ne comprends pas les formules, elle ne fonctionne que pour le premier article (1iere ligne).

Peut-être l'ai-je mal mise en oeuvre, mais je dois utiliser une procédure facile à mettre en oeuvre par des néophytes en excel.

Liberado met le doigt sur les dysfonctionnements de ta procédure.

Merci pour ton travail.

Cordialement

cebe
 Posté le 22/08/2019 à 11:32 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

Désolé ! Pour ma part cette procédure a bien fait mon affaire lorsque j'en ai eu besoin. Mes compétences pour l'heure ne vont pas au-delà ...

Une recherche sur Internet pourrait peut-être t'apporter des solutions ?

Liberado
 Posté le 22/08/2019 à 19:26 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour

C'est on ne peut plus simple et minimaliste mais je me suis amusé, avec mes maigres connaissances d'excel, à concocter une proposition.

Aucune macro, pas de VBA. Les pros du VBA sauront sans aucun doute faire quelque chose de beaucoup, beaucoup, beaucoup mieux et plus esthétique.

Comme j'ai dit, c'est sans aucune prétention mais c'est totalement fonctionnel. Cela pourrait peut-être t'orienter ou en orienter d'autres plus aguerris.

Voici le fichier : https://www.cjoint.com/c/IHwrx3gSbBO

En attendant les pros du VBA qui sont surement à pied d’œuvre.

Cordialement

Liberado

Publicité
jeansérien
 Posté le 22/08/2019 à 22:18 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonsoir Liberado

Joli travail qui fonctionne parfaitement en dehors du fait que je ne sais pas comment obtenir le fichier a sa forme initiale afin de ne pas faire croire qu'un tirage a déjà eu lieu car ce n'est pas moi qui procéderai à celui-ci.

Néanmoins je garde ton travail en attendant que peut-être les pros du VBA s'emparent du sujet et je mettrai le sujet comme résolu

Merci encore... j'apprends beaucoup avec le forum

Cordialement



Modifié par jeansérien le 22/08/2019 22:19
Lui
 Posté le 24/08/2019 à 17:08 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,

A tester, espérant avoir bien compris la demande

https://www.cjoint.com/c/IHypbOONQlj

Cordialement,

Liberado
 Posté le 24/08/2019 à 20:35 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour

Je crois ne pas trop m"avancer en t'assurant que c'est exactement ce que jeansérien souhaitait. C'est, tout du moins, ce que je pense.

C'est également ce que j'aurais voulu obtenir, au lieu de ma modeste mouture. Mais, je suis loin d'avoir tes connaissances en excel.

Personnellement, ton fichier me plaît beaucoup : Tirage 1 par 1 (parfait pour un tirage public, avec affichage au dessus et remise à zéro...

Que demander de plus !? Chapeau

PS : Tout vérifié en détail et tout fonctionne. Un seul Lot par Carnet, super ! Les compte-rendus, dans les onglets 'Tickets" et "Lots" sont top.

Un seul "hic" (mais qui en fait n'en est pas un mais une simple remarque personnelle).

Ta liste de Lots n'a pas le même ordre que celle communiquée par jeansérien. Apparemment, il a classé la liste par ordre d'importance ou de valeur des Prix, le SMATPHONE occupant la première place.

Ta liste est classée par ordre alphabétique ce qui, dans l'onglet "Lots" nous pousse à faire une recherche manuelle (visuelle) des Prix par ordre d'importance. Ce qui pourrait être fastidieux surtout pour afficher ou imprimer une listes des Lots attribués après tirage et de la présenter dans l'ordre (du 1er prix au 50ème prix).

Je sais qu'Excel oblige à ordonner une liste ou une plage par ordre alphabétique ou numéraire croissant. Ton classement est donc, sans doute, obligé.

Mais, serais-ce possible de garder la liste dans l'ordre que jeansérien a communiqué ? Peut-être simplement en numérotant les Lots.

Je n'y connais pas grand-chose mais, pardon, c'est en posant des questions que j'apprends.

Bonne soirée



Modifié par Liberado le 24/08/2019 21:32
jeansérien
 Posté le 24/08/2019 à 21:23 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonsoir Lui,

Je n'en n'espérait pas tant.

C'est parfait et répond entièrement et au-delà à ma demande comme le souligne Liberado que je remercie aussi.

Bravo et mille mercis

Mon association vous remercie tous http://www.grandirausenegal.fr

J'ai le plaisir de mettre ma demande en "résolu"

Très cordialement

Lui
 Posté le 24/08/2019 à 21:45 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonsoir,

Content d'avoir pu aider. Et merci pour vos commentaires.

Liberado , l'ordre n'a pas d'importance, jensérien pourra mettre les lots dans l'ordre qu'il souhaite.

Cordialement,

Liberado
 Posté le 24/08/2019 à 21:46 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Désolé,

La modification de mon dernier post a croisé celui de jeansérien qui a mis le sujet en "RESOLU".

Je pense qu'il n'a pas remarqué ce que je décris ou, tout simplement, que le résultat lui convient tel quel (résultat qui est déjà top, soit dit en passant).

Pardon pour chercher toujours la petite bête ou d'essayer que, ce qui est déjà très bien, soit encore meilleur.

Si Lui veut bien m'éclairer sur si ma demande serait possible ou pas, ce serait super. Merci.

Lui
 Posté le 24/08/2019 à 21:51 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Liberado a écrit :

Désolé,

La modification de mon dernier post a croisé celui de jeansérien qui a mis le sujet en "RESOLU".

Je pense qu'il n'a pas remarqué ce que je décris ou, tout simplement, que le résultat lui convient tel quel (résultat qui est déjà top, soit dit en passant).

Pardon pour chercher toujours la petite bête ou d'essayer que, ce qui est déjà très bien, soit encore meilleur.

Si Lui veut bien m'éclairer sur si ma demande serait possible ou pas, ce serait super. Merci.

Réponse faite , je rajoute que ça marche quelque soit le nombre de carnets ou de lots, pour l'exemple j'ai pris 50 carnets de 10 tickets.

Liberado
 Posté le 24/08/2019 à 21:52 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Lui a écrit :

Bonsoir,

Content d'avoir pu aider. Et merci pour vos commentaires.

Liberado , l'ordre n'a pas d'importance, jensérien pourra mettre les lots dans l'ordre qu'il souhaite.

Cordialement,

Encore un croisement de posts, décidément...!

En tout cas, merci Lui pour ta réponse car si jeansérien en trouve l'utilité, il pourra tout simplement et facilement mettre la liste des lots dans l'ordre qu'il a établit.

Cordialement

Publicité
Liberado
 Posté le 24/08/2019 à 22:00 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Génial ! Il suffit donc d'ajouter (ou de soustraire) autant de carnets que nécessaire et/ou de tickets par carnet et le nombre de Lots.

C'est un must Bravo Lui !

Lui
 Posté le 24/08/2019 à 22:25 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Liberado a écrit :

Génial ! Il suffit donc d'ajouter (ou de soustraire) autant de carnets que nécessaire et/ou de tickets par carnet et le nombre de Lots.

C'est un must Bravo Lui !

,

C'est bien ça

jeansérien
 Posté le 24/08/2019 à 22:26 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonsoir Lui et Liberado

Je viens après lecture de vos post de constater que vous avez résolu des questions que je ne me posais pas mais dont je vais certainement avoir l'utilité.

N'en jetez plus ma cour est pleine.

Encore bravo pour la résolution de Lui mais aussi pour les remarques fort à propos de Liberado

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
Aucun sujet pertinent lié trouvé
 > Tous les forums > Forum Bureautique