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+