Bonjour

Je veux incrémenter un compteur dès lors qu'un utilisateur clique sur une image.

Tel qu'est le code ci-dessous, ce compteur ne s'incrémente pas et reste à 1 ...

Quelqu'un peut-il m'aider ?

Merci - Patrick


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
 
 
Private Sub Workbook_Open()
    Dim Quiz_Compteur As Integer
    Quiz_Compteur = 1
 
End Sub
 
Sub Quiz_Clic()
 
    Quiz_Compteur = Quiz_Compteur + 1
 
    Select Case Quiz_Compteur
        Case 1
            MsgBox "Case 1"
            Quiz_Compteur = Quiz_Compteur + 1
 
        Case 2
             MsgBox "Case 1"
             Quiz_Compteur = Quiz_Compteur + 1
 
        Case Else
             MsgBox "Case Else"
             Quiz_Compteur = Quiz_Compteur + 1
 
    End Select
 
End Sub