Formulaire plusieurs conditons ifRésolu

Question

Bonjour, J'ai créer un formulaire avec des cartes qui s'affiche en fonction d'un nombre aléatoire. J'indique le total des cartes du joueur et du dealer dans deux Textbox. Je souhaite effectuer des contrôles sur ces Textbox afin de savoir qui a gagné. Pour cela j'ai créer un bouton de commande qui effectue les différents contrôles. Cependant cela ne fonctionne pas. J'ai mis différentes conditions ( les 2 dernières ne fonctionnent pas, en effet je n'ai pas de msg box lorsque la condition devrait être bonne). If TextBox3.Value = 21 ThenMsgBox "Blackjack"If TextBox3.Value = TextBox4.Value ThenMsgBox "match nul"If TextBox4.Value > 21 ThenMsgBox "Vous avez gagné"If 17 <= TextBox4.Value And TextBox4.Value <= 21 And TextBox4.Value < TextBox3.Value ThenMsgBox "Vous avez gagné"If 17 <= TextBox4.Value And TextBox4.Value <= 21 And TextBox4.Value > TextBox3.Value ThenMsgBox "Vous avez perdu"end ifend if end if end ifend if

jordane45 · Answer

Bonjour, En général on teste si une variable est <= à un nombre et non pas l'inverse.... donc.. ton 17<= TextBox3.value.... ne me plait pas vraiment et est très certainement la cause de ton souci.. Par contre, je t'invite à tester le code suivant (qui utilise un SELECT CASE plutot que des IF en pagaille...) Sub blackJack() Dim msg As String Dim Win As String Dim Loose As String Dim blackJ As String Win = "Vous avez gagné !" blackJ = " BLACKJACK !!!" Loose = " Vous avez PERDU !" matchNul = "Mach nul" joueur1 = TextBox4.Value dealer = TextBox3.Value If joueur1 > 21 Then msg = Loose Else Select Case True Case joueur1 = 21 msg = (Win & blackJ) Case joueur1 > dealer msg = Win Case joueur1 = dealer msg = matchNul Case joueur1 < dealer And dealer < 21 msg = Loose Case Else If dealer > 21 Then msg = Win End If End Select Debug.Print msg End If End Sub

Eliot7500 · Answer

Merci, ça marche très bien. Debug.Print msg cela sert à quoi?

Formulaire plusieurs conditons if

2 réponses

Votre réponse

Discussions similaires