Userform avec variable qui s'incrémente

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:

---

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.

Salut,

Utilise mot Static plutôt que Dim.

Dim Temp As Long devient Static Temp As Long

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

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

Bonne journée.