jeu du + ou - Résolu/Fermé

Question

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 = ""

Gyrus · Answer

Bonjour,

Essaie comme cela :

Dim score As IntegerPrivate 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+

milexarc · Answer

Le score reste toujours bloqué à 1 ... :/
Puis-je t'envoyer mon fichier pour que tu regardes si cela t'es possible ? 

Merci

Jeu du + ou -

2 réponses

Discussions similaires