Discussion :

[bol45]

Bonjour à tous,

J'ai réalisé un userform dans VBA dans lequel j'ai créé un bouton. Et à chaque fois que je clique sur ce bouton le userform s'affiche de nouveau et je voudrais avoir une variable "temp" qui s'incrémente de 1 lorsque je clique sur ce bouton de manière à ce que mon userform ne s'affiche plus quand la variable "temp" arrive à 10.
Cependant, une fois arrivé à 2 ma variable temp revient à 1 et je ne comprends pas pourquoi.

Voici une partie de mon code. Merci pour votre aide.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
Option Explicit
Option Base 1
 
 
Private Sub valid_Click()
 
Dim temp As Integer
Dim score As Integer
 
' Initialisation des variables
'If temp > 1 Then
If Sheets("voc").Cells(5, 4).Value > 1 Then GoTo reprise
 
temp = 1
score = 0
 
' Marqueur
reprise:
 
If TextBox2.Value = Sheets("voc").Cells(5, 5).Value Then
temp = temp + 1
score = score + 1
MsgBox "Bonne réponse"
Else
temp = temp + 1
MsgBox "Mauvaise réponse !"
End If
 
jeu.Hide
Sheets("voc").Cells(5, 4).Value = temp
 
If temp = 10 Then
MsgBox "La partie est terminée. Votre score est &score /10"
Else
Call Userform_initialize
jeu.Show
End If
 
 
End Sub

Bonne soirée à tous.

[Invité]

Salut,

Utilise mot Static plutôt que Dim.

Dim Temp As Long devient Static Temp As Long

[kiki29]

Salut, trop tard , enfin bref, à titre d'info voir Portée & Durée de vie

[bol45]

Super, merci pour votre aide. Tout fonctionne correctement désormais.

Bonne journée.