Tirage au sort aléatoire sans doublons

valles

XLDnaute Nouveau
Bonjour toute la communauté Excel-downloads.com !

Etant aujourd'hui organisateur d'un tirage au sort, j'ai besoin de déterminer les gagnants à partir d'une base de données excel. L'objectif est, à partir d'une liste de 939 participants, de tirer 14 gagnants uniques déterminés aléatoirement.

Je vous transmets en pièce-jointe un classeur excel indicatif.

Merci d'avance pour votre aide très précieuse.

Bien cordialement,
valles.
 

Fichiers joints

valles

XLDnaute Nouveau
Re : Tirage au sort aléatoire sans doublons

Bonjour et merci de votre réponse rapide !

Un seul soucis, une fois le tirage effectué, cela me donne le rang de la cellule et non son contenu.

De plus, dès que je remplis une case de type (=A69) pour obtenir le contenu, cela modifie le tirage.

Une solution svp ? :D

Merci beaucoup !
 

valles

XLDnaute Nouveau
Re : Tirage au sort aléatoire sans doublons

Bonjour JC et merci de votre réponse!

En effet, votre macro est beaucoup plus pertinente !

Cependant, lorsque je remplace les chiffres par les noms des participants, le tirage au sort ne fonctionne pas et des 0 s'affichent à la place des gagnants.

Une solution éventuellement ? :D

Merci beaucoup !
 

JCGL

XLDnaute Barbatruc
Re : Tirage au sort aléatoire sans doublons

Bonjour à tous,

La prochaine fois dépose un fichier significatif et proche de la réalité...

Je regarde.

A+ à tous
 
Dernière édition:

JCGL

XLDnaute Barbatruc
Re : Tirage au sort aléatoire sans doublons

Bonjour à tous,

Est-il plus rapide de faire un Copier-Coller Spécial Valeurs que de refaire un clic sur le bouton jusqu'à disparition des doublons ?

A+ à tous
 

Modeste geedee

XLDnaute Barbatruc
Re : Tirage au sort aléatoire sans doublons

Bonsour®
Bonjour à tous,

Est-il plus rapide de faire un Copier-Coller Spécial Valeurs que de refaire un clic sur le bouton jusqu'à disparition des doublons ?

A+ à tous
:rolleyes:
justement c'est le "Jusqu'a" qui devient aléatoire pour ne pas dire est indéterminé...

pour éviter les clicks multiples, voir également la solution avec l'objet dictionnaire...:cool:
 

Modeste geedee

XLDnaute Barbatruc
Re : Tirage au sort aléatoire sans doublons

Bonsour®
Bonjour à tous,

Avec un Application.CutCopyMode = False pour libérer le Presse Papier ;)
A+ à tous
et puis aussi créer et effacer dynamiquement les colonnes intermédiaires ;)
ni vu ni connu...:rolleyes:

VB:
Sub Macro1()
    Application.ScreenUpdating = False
    [B1].FormulaR1C1 = "=RAND()"
    [B1].AutoFill Destination:=Range("B1:B" & Range("A65535").End(xlUp).Row)
    [E1].Formula = "=INDEX($A$1:$A$" & Range("A65535").End(xlUp).Row & ",RANK(B1,$B$1:$B$" & Range("A65535").End(xlUp).Row & "))"
    [E1].AutoFill Destination:=Range("E1:E14")
    [E1:E14] = [E1:E14].Value
    [B1:B939].Clear
    Application.ScreenUpdating = True
    
End Sub
 

Discussions similaires


Haut Bas