Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Modification légère de la fonction Rnd

vincent noah

XLDnaute Junior
Bonjour à tous,
je souhaite effectuer des tirages au sorts en favorisant quelque numéros
exemple ;
Code:
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

Nous a quittés en 2020
Repose en paix
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
 

Pièces jointes

  • 111.xlsm
    17.8 KB · Affichages: 19
  • 111.xlsm
    17.8 KB · Affichages: 28
  • 111.xlsm
    17.8 KB · Affichages: 31

vincent noah

XLDnaute Junior
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

Nous a quittés en 2020
Repose en paix
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

Nous a quittés en 2020
Repose en paix
Re : Modification légère de la fonction Rnd

Re,

un magouillage plus "soft" en pièce jointe

à+
Philippe
 

Pièces jointes

  • 111.xlsm
    18.8 KB · Affichages: 21
  • 111.xlsm
    18.8 KB · Affichages: 24
  • 111.xlsm
    18.8 KB · Affichages: 27

phlaurent55

Nous a quittés en 2020
Repose en paix
Re : Modification légère de la fonction Rnd

Re,

une autre magouille en pièce jointe

à+
Philippe
 

Pièces jointes

  • 111.xlsm
    20.2 KB · Affichages: 23
  • 111.xlsm
    20.2 KB · Affichages: 20
  • 111.xlsm
    20.2 KB · Affichages: 26

Discussions similaires

Réponses
8
Affichages
666
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…