Jeu du + ou -
Résolu
milexarc
Messages postés
92
Date d'inscription
Statut
Membre
Dernière intervention
-
milexarc Messages postés 92 Date d'inscription Statut Membre Dernière intervention -
milexarc Messages postés 92 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'essaye de faire le jeu du + ou - en VBA. Cependant ma variable "score" ne veut pas s'incrémenter (elle reste bloqué à 1)
Comment puis-je corriger ce problème ?
Private Sub CommandButton1_Click()
Dim nombre As Integer
Dim score As Integer
score = 0
Label4.Caption = score
nombre = Range("A1").Value
If TextBox1.Value = nombre Then
MsgBox "tu as gagné ! Ton score :" & score
Label4.Caption = score
End If
If TextBox1.Value < nombre Then
MsgBox "le nombre auquel je pense est plus grand ! "
score = score + 1
Label4.Caption = score
End If
If TextBox1.Value > nombre Then
MsgBox "le nombre auquel je pense est plus petit !"
score = score + 1
Label4.Caption = score
End If
TextBox1.Value = ""
j'essaye de faire le jeu du + ou - en VBA. Cependant ma variable "score" ne veut pas s'incrémenter (elle reste bloqué à 1)
Comment puis-je corriger ce problème ?
Private Sub CommandButton1_Click()
Dim nombre As Integer
Dim score As Integer
score = 0
Label4.Caption = score
nombre = Range("A1").Value
If TextBox1.Value = nombre Then
MsgBox "tu as gagné ! Ton score :" & score
Label4.Caption = score
End If
If TextBox1.Value < nombre Then
MsgBox "le nombre auquel je pense est plus grand ! "
score = score + 1
Label4.Caption = score
End If
If TextBox1.Value > nombre Then
MsgBox "le nombre auquel je pense est plus petit !"
score = score + 1
Label4.Caption = score
End If
TextBox1.Value = ""
A voir également:
- Jeu du + ou -
- 94 jeu - Télécharger - Puzzle & Réflexion
- 94 degrés jeu - Télécharger - Divers Jeux
- Jeu du pendu - Télécharger - Vie quotidienne
- Jeu zuma - Télécharger - Jeux vidéo
- Logo jeu - Télécharger - Jeux vidéo
2 réponses
Bonjour,
Essaie comme cela :
Il faut également que tu penses à initialiser ton score.
A+
Essaie comme cela :
Dim score As Integer
Private Sub CommandButton1_Click()
Dim nombre As Integer
nombre = Range("A1").Value
If CDbl(TextBox1.Value) = nombre Then
MsgBox "tu as gagné ! Ton score :" & score
ElseIf CDbl(TextBox1.Value) < nombre Then
MsgBox "le nombre auquel je pense est plus grand ! "
score = score + 1
ElseIf CDbl(TextBox1.Value) > nombre Then
MsgBox "le nombre auquel je pense est plus petit !"
score = score + 1
End If
Label4.Caption = score
TextBox1.Value = ""
End Sub
Il faut également que tu penses à initialiser ton score.
A+
