Jeu du + ou -

Résolu/Fermé
milexarc Messages postés 92 Date d'inscription lundi 25 février 2013 Statut Membre Dernière intervention 2 décembre 2016 - 1 oct. 2014 à 20:03
milexarc Messages postés 92 Date d'inscription lundi 25 février 2013 Statut Membre Dernière intervention 2 décembre 2016 - 2 oct. 2014 à 00:13
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 = ""
A voir également:

2 réponses

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
1 oct. 2014 à 20:36
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+
milexarc Messages postés 92 Date d'inscription lundi 25 février 2013 Statut Membre Dernière intervention 2 décembre 2016 8
1 oct. 2014 à 22:43
Le score reste toujours bloqué à 1 ... :/
Puis-je t'envoyer mon fichier pour que tu regardes si cela t'es possible ?

Merci
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 946
1 oct. 2014 à 23:37
Salut le Forum

Pour joindre un fichier : Tutoriel

Mytå
0
milexarc Messages postés 92 Date d'inscription lundi 25 février 2013 Statut Membre Dernière intervention 2 décembre 2016 8
2 oct. 2014 à 00:13
Merci :)
j'ai eu la réponse sur un autre forum ..

Merci encore pour votre aide !
0