Bonjour,
en VBA vous avez l'instruction RDN() qui revoie aléatoirement un nombre compris entre 0 et 0,999999...
Donc pour réussir à sortir un nombre entre 1 et 6, il faut prendre la partie entière de RND * 6 et additionner 1, exemple :
RND() = 0.24789521 x 6 = 1,48737126, partie entière = 1, +1 = 2
si RND() = 0.001254 x 6 = 0,007524, partie entière = 0, +1 = 1
si 0.99999 x 6 = 5.99994, partie entière = 5, +1 = 6
on a bien un tirage de 1 à 6, une fois le résultat du dès trouvé, il suffit de faire un truc du genre : pointVieMonstre = PointVieMonstre - Tirage
Et faire à l'issue : IF pointVieMonstre <= 0 Then "Gagnant Joueur"
@ bientôt
LouReeD