Tirage au sort aléatoire sans doublons

Modeste geedee

XLDnaute Barbatruc

• 31 Mars 2014

• #2

Re : Tirage au sort aléatoire sans doublons

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

 

Pièces jointes

• tirage-au-sort-aleatoire-sans-doublons.xlsx

  47.4 KB · Affichages: 75
• tirage-au-sort-aleatoire-sans-doublons.xlsx

  47.4 KB · Affichages: 81
• tirage-au-sort-aleatoire-sans-doublons.xlsx

  47.4 KB · Affichages: 85

Vote positif 0 Vote négatif

V

valles

XLDnaute Nouveau

• 31 Mars 2014

• #3

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 !

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 31 Mars 2014

• #4

Re : Tirage au sort aléatoire sans doublons

Bonjour à tous,

Un essai avec un bouton et donc une macro

A+ à tous

 

Pièces jointes

• JC Tirage.xlsm

  43.5 KB · Affichages: 87
• JC Tirage.xlsm

  43.5 KB · Affichages: 85
• JC Tirage.xlsm

  43.5 KB · Affichages: 85

Vote positif 0 Vote négatif

V

valles

XLDnaute Nouveau

• 31 Mars 2014

• #5

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 !

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 31 Mars 2014

• #6

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: 31 Mars 2014

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 31 Mars 2014

• #7

Re : Tirage au sort aléatoire sans doublons

Bonjour à tous,

Avec des noms

A+ à tous

 

Pièces jointes

• JC Tirage.xlsm

  43.7 KB · Affichages: 57
• JC Tirage.xlsm

  43.7 KB · Affichages: 63
• JC Tirage.xlsm

  43.7 KB · Affichages: 74

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 31 Mars 2014

• #8

Re : Tirage au sort aléatoire sans doublons

Bonsour®


toujours sans macro :

 

Pièces jointes

• tirage-au-sort-aleatoire-sans-doublons.xlsx

  46.2 KB · Affichages: 65
• tirage-au-sort-aleatoire-sans-doublons.xlsx

  46.2 KB · Affichages: 53
• tirage-au-sort-aleatoire-sans-doublons.xlsx

  46.2 KB · Affichages: 61
• Capture.jpg

  60.8 KB · Affichages: 122
• Capture.jpg

  60.8 KB · Affichages: 119

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 31 Mars 2014

• #9

Re : Tirage au sort aléatoire sans doublons

Bonsour® JCGL

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

 

Pièces jointes

• Capture.JPG

  39.7 KB · Affichages: 74
• Capture.JPG

  39.7 KB · Affichages: 87

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 31 Mars 2014

• #10

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

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 31 Mars 2014

• #11

Re : Tirage au sort aléatoire sans doublons

Bonsour®
le même avec une macro !

 

Pièces jointes

• tirage-au-sort-aleatoire-sans-doublons.xlsm

  52 KB · Affichages: 55
• tirage-au-sort-aleatoire-sans-doublons.xlsm

  52 KB · Affichages: 54
• tirage-au-sort-aleatoire-sans-doublons.xlsm

  52 KB · Affichages: 71

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 31 Mars 2014

• #12

Re : Tirage au sort aléatoire sans doublons

Bonsour®

JCGL à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 31 Mars 2014

• #13

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

Cliquez pour agrandir...

A+ à tous

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 31 Mars 2014

• #14

Re : Tirage au sort aléatoire sans doublons

Bonjour à tous

Une autre version

 

Pièces jointes

• tirage-au-sort-aleatoire-sans-doublons.xlsm

  59 KB · Affichages: 72
• tirage-au-sort-aleatoire-sans-doublons.xlsm

  59 KB · Affichages: 73
• tirage-au-sort-aleatoire-sans-doublons.xlsm

  59 KB · Affichages: 85

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 31 Mars 2014

• #15

Re : Tirage au sort aléatoire sans doublons

Bonsour®

JCGL à dit:

Bonjour à tous,

Avec un Application.CutCopyMode = False pour libérer le Presse Papier
A+ à tous

Cliquez pour agrandir...

et puis aussi créer et effacer dynamiquement les colonnes intermédiaires
ni vu ni connu...

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

 

Vote positif 0 Vote négatif