Tirage au sort pour une tombola

[Peterping]

Bonjour
Je prépare actuellement le gala de ma faculté, et nous aimerions durant
la soirée faire gagner des lots, et pour faciliter le tirage nous voudrions
utiliser excel. Malheureusement le nombre de participants sera donné
le soir même ainsi que leurs noms (les numéro des participants sera donnée en fonction de leur arrivée).
Serait-il possible de faire ce tirage où nous n'aurions plus qu'à entrer les noms et les participants?
d'autres part une fois le tirage fait, comment peut-on retrouver facilement
un numéro gagnant?

j'ai trouver sur votre site cette feuille qui me semble une bonne base,
mais mes faibles connaissances en excel ne me permettent pas de le
modifier à ma guise.

Merci pour votre aide!

 

[WILFRIED]

Re : Tirage au sort pour une tombola

Salut,

voici un petit programme de tirage alèatoire avec retour des noms correspondant au numéro. Seul impératif : le numéro doivent ce suivre et le dernier de la colonne B doit être le numéro maximum.

A+

 

[CBernardT]

Re : Tirage au sort pour une tombola

Bonsoir Peterping88@msn.com, WILFRIED,

Un autre système de tirage de tombola avec un tirage des numéros et des noms des gagnants de la tombola.

Le processus se commande avec un seul bouton pour les deux opérations d'effacement et de tirage :
1- Le processus commence par l'effacemet total du tirage de la tombola précédente ; Le mot de passe est "***" Trois étoiles ;
2- Inscriptions des numéros et des noms des participants dans le cartouche de gauche devenu accessible. Le cartouche actuel permet de lister l'inscripion de 1000 personnes mais ce n'est pas limité ;
3- Les inscriptions finies, lancement du tirage de la tombola et sortie des numéros et des noms des gagnants dans le cartouche de droite ;
4- Dès ce moment, la feuille est protégée par le mot de passe précédent et les deux cartouches sont inaccessibles pour la sécurité du tirage.

Cordialement

Bernard

 

[Peterping]

Re : Tirage au sort pour une tombola

Bonjour bernard,
J'ai un problème, lorsque je clique sur le bouton, on devrait me demander le mot de
passe ou du moins le cartouche de gauche devrait effacer les noms et numéro
j'ai pourtant effacé le cartouche de gauche "manuellement" (pourtant tu écris qu'il
est protégé) et réessayé de cliquer, rien n'y fait.

Merci

Pierre

 

[phlaurent55]

Re : Tirage au sort pour une tombola

Bonjour Peterping88, bernard, wilfried


le fichier fonctionne très bien chez moi (Excel 2003)
je pense que ton problème vient de la sécurité des macros

clique sur "Outils", "Options", "Sécurité", "Sécurité des macros" et coche "niveau moyen"

à l'ouverture du fichier, il te faudra activer les macros

 

[CBernardT]

Re : Tirage au sort pour une tombola

Bonsoir à tous,

même système mais avec un petit plus ! Il est possible de fixer le nombre de gagnants lors des inscriptions.

Quelques modifications dans la forme.

Je ne vois pas bien les difficultés dont tu parles vu que tout fonctionne parfaitement sur ma bécane.

Cordialement

Bernard

 

[tahitibob]

Re : Tirage au sort pour une tombola

Salut,

voici un petit programme de tirage alèatoire avec retour des noms correspondant au numéro. Seul impératif : le numéro doivent ce suivre et le dernier de la colonne B doit être le numéro maximum.

A+

salut tous le monde, j'ai une question au sujet du fichier poster par Wilfried. j'aimerai bien avoir des tuto ou quelque chose pour apprendre a le créé moi même, merci d'avance pour votre aide!

 

[annette63]

Re : Tirage au sort pour une tombola

Bonjour,

Ce petit programme m'intéresse vraiment mais j'ai 1500 tickets de tombola, j'ai donc ajouté des numéros jusqu'à 1500 mais cela ne fonctionne pas : erreur d'execution'6' dépassement de capacité...

Pouvez-vous m'aider, je ne suis pas une pro du tout juste une présidente d'association qui voudrait bien simplifier le tirage de la tombola

Merci d'avance

 

[CBernardT]

Re : Tirage au sort pour une tombola

Bonjour annette63, le forum,


Bienvenue sur le forum

Quelques modifications pour étendre le tirage jusqu'à 2000.

MDP= *** "Trois étoiles"

 

[annette63]

Re : Tirage au sort pour une tombola

Waouh, merci !
Quelle réactivité !
Y'a-t-il moyen de faire apparaître le tirage numéro après numéro ?
Si pas simple, ce n'est pas grave, je ferai le tirage en paramétrant un seul gagnant et en supprimant le numéro gagnant précédent.
Encore merci pour votre aide

 

[Si...]

Re : Tirage au sort pour une tombola

salut

un autre exemple avec quelques fantaisies.
Le tirage, en fait une permutation des noms, est total mais les noms apparaissent un par un.

Avec un test de plus : choisir le nombre de cas à afficher

 

[JBARBE]

Re : Tirage au sort pour une tombola

Bonjour annette63, le forum,


Bienvenue sur le forum

Quelques modifications pour étendre le tirage jusqu'à 2000.

MDP= *** "Trois étoiles"

Bonjour à tous, Bonjour Bernard,

Le module "Tris" contenant la macro avec le mot de passe *** étant accessible, il convient de mettre un mot de passe sur ce module !

Procédure :
- Clic droit sur le module "Tris"
- Propriétés de VBA Project
- Protection
- clic sur Verrouiller le projet pour l'affichage
- mettre un mot de passe

Sauvegarder et fermer le fichier et au redémarrage du fichier, vous constaterez que l’opération c'est bien exécuté !

bonne journée !

 

[annette63]

Re : Tirage au sort pour une tombola

Merci !!!!!!!!!!

 

[CBernardT]

Re : Tirage au sort pour une tombola

Bonjour annette63, Bonjour à tous,

Bonjour JBARBE

Le VBAProject est maintenant protégé avec le mot de passe général = ***

Pour les tirages, trois macros différentes :
1- Pour simplement supprimer le tirage affiché dans la feuille;
2- Une macro pour effectuer un tirage numéro après numéros jusqu'au nombre de gagnants souhaités.
3- Une macro pour effectuer un tirage unique de tous les numéros gagnants.

Les explications des macros sont dans le code.
Le mot de passe est demandé à chaque exécution pour éviter tout intervention indésirable dans les résultats.

Bonne journée à tous

 

[annette63]

Re : Tirage au sort pour une tombola

Franchement c'est parfait, tirage cette après-midi, l'Amicale de St Julien de Coppel vous remercie chaleureusement !