VBA Excel Projet Yahtzee

Bonjour, je fais appel à vos service afin résoudre un petit problème.

Je réalise un projet sur vba sur le jeu du Yahtzee. Le jeu est assez simple, on lance 5 dés au hasard en espérant faire la meilleure combinaison possible (brelan, full, suite,etc...). Pour créer les 5 dés j'ai donc fait :

Code:

---

1 2 3 4 5

Dim d1 As Integer Dim d2 As Integer Dim d3 As Integer Dim d4 As Integer Dim d5 As Integer

---

puis pour que les dés soient de 1 à 6 et pour voir les résultats:

Code:

---

1 2 3 4 5 6 7

d1 = Int(Rnd() * 5 + 1) d2 = Int(Rnd() * 5 + 1) d3 = Int(Rnd() * 5 + 1) d4 = Int(Rnd() * 5 + 1) d5 = Int(Rnd() * 5 + 1)   MsgBox ("Vos résultats sont : " & d1 & " ," & d2 & " ," & d3 & " ," & d4 & " ," & d5)

---

Enfin au niveau des combinaisons voici par exemple ce que j'ai fait si on obtenait un full:

Code:

---

1 2

If ((d1 = d2) And (d2 = d3) And (d4 = d5)) Or ((d1 = d2) And (d2 = d4) And (d3 = d5)) Or ((d1 = d2) And (d2 = d5) And (d3 = d4)) Or ((d1 = d3) And (d3 = d4) And (d2 = d5)) Or ((d1 = d3) And (d3 = d5) And (d2 = d4)) Or ((d1 = d4) And (d4 = d5) And (d2 = d3)) Or ((d2 = d3) And (d3 = d4) And (d5 = d1)) Or ((d2 = d4) And (d4 = d5) And (d3 = d1)) Or ((d3 = d4) And (d4 = d5) And (d1 = d2)) Then MsgBox ("Bravo vous avez fait un Full")

---

Vous l'aurez compris ma méthode a été de réunir toutes les solutions possibles de full

Mon problème est que je ne trouve pas le moyen de réunir toutes les solutions pour obtenir une suite de 4 chiffres (1,2,3,4 ou 2,3,4,5 ou 3,4,5,6)
voici ce que j'ai essayé de faire :

Code:

---

1 2 3

If ((d1 Or d2 Or d3 Or d4 Or d5 = 1) And (d1 Or d2 Or d3 Or d4 Or d5 = 2) And (d1 Or d2 Or d3 Or d4 Or d5 = 3) And (d1 Or d2 Or d3 Or d4 Or d5 = 4) And (d1 And d2 And d3 And d4 And d5 <> 5)) Or ((d1 Or d2 Or d3 Or d4 Or d5 = 2) And (d1 Or d2 Or d3 Or d4 Or d5 = 3) And (d1 Or d2 Or d3 Or d4 Or d5 = 4) And (d1 Or d2 Or d3 Or d4 Or d5 = 5) And (d1 And d2 And d3 And d4 And d5 <> 1) And (d1 And d2 And d3 And d4 And d5 <> 6)) Or ((d1 Or d2 Or d3 Or d4 Or d5 = 3) And (d1 Or d2 Or d3 Or d4 Or d5 = 4) And (d1 Or d2 Or d3 Or d4 Or d5 = 5) And (d1 Or d2 Or d3 Or d4 Or d5 = 6) And (d1 And d2 And d3 And d4 And d5 <> 2)) Then   MsgBox ("Bravo vous avez fait une suite")

---

En gros pour la suite 1,2,3,4 j'ai écris que d1 ou d2 ou d3 ou d4 devrait être égale à 1 ou 2 ou 3 ou 4 mais pas à 5 car sinon on aurait une suite de 5 chiffres, et j'ai recommencé pour les 2 autres suites de 4 chiffres possibles.

Voilà, j'espère que vous trouverez la solution, ou peut être une méthode plus simple

Merci d'avance pour votre aide !

Bonjour,
Je ne connais pas le jeu mais je vous propose quand même une méthode à le faire et que vous pourrez tripoter à votre guise.

Trés facile sans complications.

-- Le code suivant récupère vos chiffres aléatoires dans la plage A1:A5
-- Dans la plage B1:B5 sont listées les valeurs entre 1 et 5
-- La plage C1:C5 je met la formule: NB.SI (CountIf en Anglais) exemple: =NB.SI(A1:A5,B1)

En suite le code qui suit dans un bouton ActiveX je propose:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Dim rng As Range Range("A1").Value = Int(Rnd() * 5 + 1) Range("A2").Value = Int(Rnd() * 5 + 1) Range("A3").Value = Int(Rnd() * 5 + 1) Range("A4").Value = Int(Rnd() * 5 + 1) Range("A5").Value = Int(Rnd() * 5 + 1)   For Each rng In Range("c1:c5") Select Case rng.Value Case 3 MsgBox "Bravo ! vous obtenez un full de " & rng.Offset(0, -1) & "." Case 4 MsgBox "Bravo ! vous obtenez un brelan de " & rng.Offset(0, -1) & "." Case 5 MsgBox "Bravo ! vous obtenez une suite de " & rng.Offset(0, -1) & "." End Select Next

---

Jettez un coup d’œil dans le fichier joint.

Cordialement
Karim

Pardon,
Dans le fichier joint, au niveau de la folrmule NB.SI je devais fixer les références de la plage source à l'aide de la touche F4 (marqué par le signe du dollar), cela permet de glisser les cellules vers le bas sans toutefois altérer la formule: cela nous donnerai comme formule : NB.SI($A$1:$A$5,B1) au lieu de NB.SI(A1:A5,B1).

Désolé.

Cordialement.
Karim

Bonjour combisuit

puis pour que les dés soient de 1 à 6, cette commande ne donnera jamais 6

Code:

---

Valeur = Int(Rnd() * 5 + 1)

---

La bonne commande est

Code:

---

Valeur = Int(Rnd() * 6 + 1)

---

Docmarti: Ah oui tiens effectivement, merci beaucoup je change cela tout de suite !


XLRATOR: j'ai finalement trouvé la solution à mon problème, sans votre méthode (bien que j'ai essayé mais décidément je ne suis pas très doué sur VBA), mais merci tout de même pour l'aide proposée

Cordialement,

Combisuit