Discussion :

[patrick.iribarne]

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

[Invité]

Bonjour,

Un exemple dans le fichier joint. Regarder dans les modules Feuil1, ThisWorkbook et Module1

Cordialement.

[patrick.iribarne]

Bonjour

Merci beaucoup pour le fichier d'aide - Comment avez-vous inséré l'image dans Feuil1 et obtenu l'évènement clic sur image ? Moi j'ai inséré l'image toute bête et affecté une maco sur clic ...

[Invité]

Merci beaucoup pour le fichier d'aide - Comment avez-vous inséré l'image dans Feuil1 et obtenu l'évènement clic sur image ?

Bonjour,

A partir d'un contrôle active x comme ceci :

Pièce jointe 173041


Nb :

Ce qui ne va pas dans votre premier message, c'est la déclaration de votre variable Quiz_Compteur. Elle doit être déclarée Public comme je l'ai fait dans mon module1 pour qu'elle soit utilisable depuis ThisWorkbook et votre onglet.




Cordialement.

[Theze]

Bonjour,

Dans le cas de ton code, la variable Compteur doit être déclarée "Public" dans le module du classeur et non dans la proc "Open" ensuite, il te faut la faire précéder de "ThisWorkbook" avec le point comme pour une propriété si tu veux l'utiliser ailleurs, sinon, la déclarer dans un module standard.
En partant de ce que tu as écris, ce code dans le module du classeur :

Code :

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

1
2
3
4
5
6
7
8
 
Public Quiz_Compteur As Integer
 
Private Sub Workbook_Open()
 
    Quiz_Compteur = 1
 
End Sub

et celui-ci dans un module standard :

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
 
Sub Quiz_Clic()
 
    With ThisWorkbook
 
        .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 With
 
End Sub

Hervé.

[patrick.iribarne]

Bonjour,

Dans le cas de ton code, la variable Compteur doit être déclarée "Public" dans le module du classeur et non dans la proc "Open" ensuite, il te faut la faire précéder de "ThisWorkbook" avec le point comme pour une propriété si tu veux l'utiliser ailleurs, sinon, la déclarer dans un module standard.
En partant de ce que tu as écris, ce code dans le module du classeur :

Code :

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

1
2
3
4
5
6
7
8
 
Public Quiz_Compteur As Integer
 
Private Sub Workbook_Open()
 
    Quiz_Compteur = 1
 
End Sub

et celui-ci dans un module standard :

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
 
Sub Quiz_Clic()
 
    With ThisWorkbook
 
        .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 With
 
End Sub

Hervé.

[patrick.iribarne]

Bonjour,

A partir d'un contrôle active x comme ceci :

Pièce jointe 173041


Nb :

Ce qui ne va pas dans votre premier message, c'est la déclaration de votre variable Quiz_Compteur. Elle doit être déclarée Public comme je l'ai fait dans mon module1 pour qu'elle soit utilisable depuis ThisWorkbook et votre onglet.




Cordialement.