Salut Maan,
En fait c'est que tu ne rebats pas les carte avant d'en choisir une.
Il faut préalablement remélanger les nombres avec la fonction randomize.
Je te colle d'ailleurs une fonction toute faite pour avoir un nombre
aléatoire entre deux bornes en vbScript ci-dessous.
Début du code vbScript
Function RandomizeBetween (lDown, lUp)
' génère un nombre aléatoire entre deux nombres
Dim l
Randomize ' nécessaire pour rebattre les cartes
l = Int(Rnd() * (lUp - lDown) + lDown)
RandomizeBetween = l
End Function
Fin du code vbScript
Ce code, j'ai simplement du aller le rechercher dans mon logiciel code
archiver qui sert à conserver, à retrouver par un mini moteur de
recherche et à partager via une banque de données en ligne des bouts de
codes source.
Vous pouvez le télécharger sur mon site
www.visuweb.net/
A plus !
Yannick Daniel Youalé
La programmation est une religion. Aimez-la ou quittez-la.
www.visuweb.net
Progliste :
Pour se d�sinscrire de la liste :
mailto:progliste-requ...@ml.free.fr?subject=unsubscribe
Pour voir les archives de la liste :
http://www.mail-archive.com/progliste@ml.free.fr/
Je vous rappelle que les pièces jointe sont activés leur taille est limité à 2 MO
Pour acc�der aux fichiers de la liste
http://outils.archive-host.com/partage.php?id=2Qar9Hy6ftzr
Ou en utilisant la nouvelle page de partage :
http://outils-n.archive-host.com/partage-fm0m7b947vglikp9Efpso94gt
Pour y ajouter des fichiers demandez-moi le ou sur la liste ou en priv�, je
vous r�pondrez en priv�.