Tirage au sort

[Michel68000]

Bonjour

Je voudrais dans le cadre d'un concours de belote en individuel, une macro qui me mettrait deux par deux les 40 participants de ce concours au hasard bien sur.
J'ai regardé les application déjà faites sur le sujet elles ne font pas l'affaire parce qu'elles gèrent le concours par binome.
Si qq à une idée sur la question, merci d'avance

 

[MJ13]

Re : Tirage au sort

Bonjour

Ton problème est très simple.

Tu mets tes 40 noms dans la colonne A. A côté de chaque nom ,dans la colonne B, tu tapes =alea(). Ensuite tu copies le tout en valeur. Enfin tu tries sur la valeur de la colonne B.

Tu peux même créer toi même une petite macro avec l'enregistreur pour mettre tes noms sur 2 colonnes (attention il faut enregistrer la macro en coordonnées relatives).

Personnellement dans ton cas je l'enregistre 1 fois puis je lance la macro et je tapes F4 jusque la fin (c'est ce que j'appelle la macro instantanée!).

 

[JCGL]

Re : Tirage au sort

Bonjour à tous,

Va voir ce fil chez nos amis VeriTi :

Tirage Belote et Retard​

Si j'ai compris la Belote (arf), cela devrait répondre en partie à ta demande

A+

 

[fanfan38]

Re : Tirage au sort

Bonjour
Tu as 2 fonctions: Sous excel
=ALEA.ENTRE.BORNES(1;40)
en vba: randomize
Ci joint ton trie par equipe en VBA...
A+ François

 

[MJ13]

Re : Tirage au sort

Re bonjour à tous

Pour illustrer mon propos précédent, j'ai fait une petite vidéo qui peut être instructif pour ceux qui débutent dans les macros:

Attention le fichier zippé fait 3,6 Mo (il vaut mieux être en ADSl). Mon écran est paramètré en 1280*1024.

http://jost.michel.free.fr/telechargement/FaireUnTriRapidement.zip

 

[MJ13]

Re : Tirage au sort

Re bonjour à tous

Ce fil m'intéressant, j'ai dévelopé grâce à l'enregistreur de macros ce fichier.
Fait sous XL2007 (A voir pour les autres versions).
On peut facilement l'adapter en fonction du nombre de participants avec un comptage de lignes et une boucle sur le nombre à traiter.

 

[jeanpierre]

Re : Tirage au sort

Bonjour à tous,

Michel, sous 2000, le code tousse ici :

ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear

Mot clé introuvable avec F1...

Bon WE.

Jean-Pierre

 

[MJ13]

Re : Tirage au sort

Bonjour JeanPierre

Dans ce cas, il suffit que tu enregistres une macro faisant la même action et que tu places le code que te donne ta version en lieu et place de celui qui ne fonctionne pas (ce sont les subtilités du passage entre versions).

 

[Staple1600]

Re : Tirage au sort

Bonjour à tous


Voici une version modifiée pour Excel 2000 du fichier de MJ13.

 

[jeanpierre]

Re : Tirage au sort

Re tous, Michel, Jean-Marie,

Ne t'inquiètes pas, chaque fois que j'ai un souci, j'utilise l'enregistreur pour revérifier...
Je n'avais pas le temps, tout à l'heure, pour le faire.

Ceci dit, néanmoins un bémol... J'ai eu, il y a plus d'un an, un problème entre 2000 et 2003. Mon appli. sous 2000 fonctionnait et sous 2003, bug... Je n'ai plus l'exemple ici, mais après avoir joué de l'enregistreur, les deux codes étaient semblable à la virgule près.... et pourtant cela ne fonctionnait pas.... Comme quoi....

Bon WE.

Jean-Pierre