Modification légère de la fonction Rnd

[vincent noah]

Bonjour à tous,
je souhaite effectuer des tirages au sorts en favorisant quelque numéros
exemple ;

sub tir
dim t as range , r as range 
set r=[A1:A10]
nb=r.count
set t= r(int(1+Rnd*nb))
end sub

je souhaite pouvoir attribuer aux numéros de ma liste plus ou moins de chance de sortie . du moins un coefficient

voila j’espère avoir était clair
Merci de votre aides

 

[phlaurent55]

Re : Modification légère de la fonction Rnd

Bonjour Vincent,

je souhaite effectuer des tirages au sorts en favorisant quelque numéros

pas trop honnête tout cela,

voir fichier joint

à+
Philippe

 

[vincent noah]

Re : Modification légère de la fonction Rnd

Bonjour phlaurent55,

je ne voulais pas une telle arnaque

c'est plus dans un esprit d'attribuer un pourcentage de sortie tout en restant dans un tirage "aléatoire "
ton code propose de programmer une sortie de numéros
pas trop honnête tout cela

exemple une liste de cadeaux :
le cadeaux le plus cher moins de chance de sortir que le cadeaux le moins cher et ainsi de suite ...


A+
vincent

 

[phlaurent55]

Re : Modification légère de la fonction Rnd

Re,

à partir du moment où on magouille sur un tirage aléatoire la crédibilité de l'organisateur risque d'être mise à mal

le cadeaux le plus cher moins de chance de sortir que le cadeaux le moins cher et ainsi de suite ...

................. on se partage les lots non distribués

à+
Philippe

 

[phlaurent55]

Re : Modification légère de la fonction Rnd

Re,

un magouillage plus "soft" en pièce jointe

à+
Philippe

 

[vincent noah]

Re : Modification légère de la fonction Rnd

re,
Oui on peut faire cela comme ça.
j'ai sans doute voulu faire plus compliqué

Merci beaucoup
A+ sur le forum

vincent.

 

[phlaurent55]

Re : Modification légère de la fonction Rnd

Re,

une autre magouille en pièce jointe

à+
Philippe

 

[vincent noah]

Re : Modification légère de la fonction Rnd

re,


oui, merci ça marche aussi .

A+