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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas