Tirage au sort aléatoire sans doublons

[valles]

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.

 

[Modeste geedee]

Re : Tirage au sort aléatoire sans doublons

Bonsour®
utiliser la fonction Alea() et la fonction RANG

 

[valles]

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 ? 😀

Merci beaucoup !

 

[JCGL]

Re : Tirage au sort aléatoire sans doublons

Bonjour à tous,

Un essai avec un bouton et donc une macro

A+ à tous

 

[valles]

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 ? 😀

Merci beaucoup !

 

[JCGL]

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

 

[JCGL]

Re : Tirage au sort aléatoire sans doublons

Bonjour à tous,

Avec des noms

A+ à tous

 

[Modeste geedee]

Re : Tirage au sort aléatoire sans doublons

Bonsour®

🙄
toujours sans macro :

 

[Modeste geedee]

Re : Tirage au sort aléatoire sans doublons

Bonsour® JCGL

tssss.... tssss....
il y a des doublons... 🙄

 

[JCGL]

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]

Re : Tirage au sort aléatoire sans doublons

Bonsour®
le même avec une macro !

 

[Modeste geedee]

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

🙄
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...😎

 

[JCGL]

Re : Tirage au sort aléatoire sans doublons

Bonjour à tous,

Avec un Application.CutCopyMode = False pour libérer le Presse Papier 😉

[K1].PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub

A+ à tous

 

[pierrejean]

Re : Tirage au sort aléatoire sans doublons

Bonjour à tous

Une autre version

 

[Modeste geedee]

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...🙄

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