Discussion :

[horemheb]

Bonjour, j'expérimente le fonctionnement de l'évènement "Clic" à travers une petite application : un chrono qui démarre à l'ouverture de la feuille et s'arrête quand on clique sur un bouton de commande; ce qui a aboutit au code suivant :

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
Public Fin As Boolean
 
Private Sub Worksheet_Activate()
Dim Debut As Single
Dim Duree As Single
 
'point de départ
    Cells(2, 2).Value = ""
    Range("B4").Select
    Debut = Timer
    Fin = False
'progression
    Do
        Duree = Timer - Debut
        Cells(2, 2).Value = Duree
        DoEvents
    Loop Until Fin = True
 
End Sub
 
Private Sub Stop_Cliquer()
 
Fin = True
 
End Sub

Ce code est placé dans la "Feuil1"
Lorsque je passe de la "Feuil2" à la "Feuil1" cela fonctionne correctement, le chrono démarre et s'arrête si je clique sur le bouton.
Mais il devrait démarrer dès l'ouverture du classeur qui se place automatiquement sur la "Feuil1", ce qu'il ne fait pas (le départ du chrono).
J'ai alors placé dans "ThisWorkbook" le code suivant :

Code :

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

1
2
3
4
5
6
7
Private Sub Workbook_Open()
 
Worksheets("Feuil1").Select
Worksheets("Feuil1").Activate
Range("A1").Select
 
End Sub

pour m'assurer que la "Feuil1" était bien activée mais le chrono ne se met toujours pas en route.
Pourriez-vous m'indiquer la cause de ce dysfonctionnement ?
Merci d'avance

[horemheb]

En relisant les tutoriels sur Excel je me suis rendu compte qu'une partie de la réponse y est donnée : Worksheet_Activate() est un évènement qui se déclanche uniquement lorsque l'on passe d'une feuille à une autre, ici de la "Feuil2" à la "Feuil1". Ce qui explique le comportement que j'indiquais. Il me reste une question :
Comme il n'y a pas d'évènement Worsheet_Open() dois-je mettre directement ma procédure dans le Workbook_Open() ?

[Theze]

Bonjour,

Si tu veux que le chrono démarre à l'ouverture du classeur alors, c'est "Workbook_Open" mais tu as aussi des événements dans le module du classeur comme "Workbook_SheetActivate" ou l'argument Sh est la feuille en cours.

Hervé.

[horemheb]

Merci pour cette précision.