Jeu du + ou -
Résolu
milexarc
Messages postés
106
Statut
Membre
-
milexarc Messages postés 106 Statut Membre -
milexarc Messages postés 106 Statut Membre -
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 = ""
2 réponses
-
Bonjour,
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+ -
Le score reste toujours bloqué à 1 ... :/
Puis-je t'envoyer mon fichier pour que tu regardes si cela t'es possible ?
Merci
