XL 2021 VBA - Event / RaiseEvent Comment ça marche ? Timer avec SetTimer()

Dranreb

XLDnaute Barbatruc

• 8 Juillet 2025

• #2

Bonsoir.
Regardez la classe Rythmeur et le module de service XRythmeur.
N'hésitez pas à me poser des questions si vous ne comprenez pas tout.
La solution passe par une méthode Actionner de l'objet qui déclenche l'évènement.
Encore faut-il dans le module standard de service avoir gardé un pointeur vers l'objet pour pouvoir l'invoquer.

 

Pièces jointes

• Progression.xlsm

  245.1 KB · Affichages: 9

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 9 Juillet 2025

• #3

Bonjour,

Ok, merci, j'ai bien vu:
- un RaiseEvent Intervient(Tic - Tac) dans la Classe Rythmeur,
- des Private WithEvents <nom classe> As Rythmeur dans des UserForms,
- des Private Sub <nom classe>_Intervient dans des UserForms.
Ça confirme ce que j'ai + ou - compris des User Events.

Je suppose que l'intérêt dans ton code est qu'à chaque RaiseEvent Intervient, ça déclenche tous les Private Sub <nom classe>_Intervient des UserForms.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 9 Juillet 2025

• #4

L'intérêt c'est de pouvoir profiter d'un timer dans un module objet, vu que l'AddressOf à passer à un SetTimer n'accepte pas une méthode.
Oui, si un même exemplaire d'objet Rythmeur est connu WithEvents dans plusieurs modules objets. Personnellement je n'ai jamais fait ça.
RaiseEvent Intervient ne décrète l'évènement que pour son propre exemplaire, et la méthode Actionner qui l'effectue n'est invoquée que pour le seul exemplaire de Rythmeur qui a réclamé via la Function IdtRythmeurLancé cette Idt de lancement là, qui lui est propre.

 

Dernière édition: 9 Juillet 2025

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 9 Juillet 2025

• #5

De mon coté j'ai fait un Module_Timer pour gérer le SetTimer() qui dans sa TimerProc() appelle une fonction utilisateur à chaque déclenchement.
Fonction utilisateur qui peut être dans un Module standard ou Classe ou UserForm si déclarée Public et correctement qualifiée.

Le problème est qu'il faut "couvrir" l'appel de la fonction utilisateur par un On Error ce qui m'a longtemps questionné. D'où ce sujet.

En fait, la TimerProc() perd ses billes si certaines actions sont faites, par exemple clic d'un bouton Contrôle de Formulaire, sélection d'une cellule, modification d'une cellule et sans doute pleins d'autres cas. Et elle génère une erreur sur toute instruction qui ne relève pas strictement du code Timer. Ce qui empêche d'appeler la fonction utilisateur.

 

Dernière édition: 9 Juillet 2025

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 9 Juillet 2025

• #6

Au final j'ai fait une version qui gère les erreurs pour qu'on ait la garantie que la fonction utilisateur soit toujours appelée.

Edit: Fichier voir plus loin.

 

Dernière édition: 9 Juillet 2025

Vote positif 0 Vote négatif

N

nullosse

XLDnaute Occasionnel

• 9 Juillet 2025

• #7

Salut,
en ne faisant que désactiver les erreurs dans TimerProc , cela n'a pas l'air de planter le Timer et Excel (essai avec Edition de cellule) pendant le blink.

VB:

'-----------------------
'CallBack Timer Fonction
'-----------------------
#If VBA7 Then
    Private Sub TimerProc(ByVal hWnd As LongPtr, ByVal wMsg As LongPtr, ByVal nIDEvent As LongPtr, ByVal dwTime As LongPtr)
#Else
    Private Sub TimerProc(ByVal hWnd As Long, ByVal wMsg As Long, ByVal nIDEvent As Long, ByVal dwTime As Long)
#End If
    Dim ErrNumber As Long
  
    If Not TimerID = 0 Then
        On Error Resume Next   
        'Execute the user function
        Application.OnTime Now, KeepUserFunction   
    End If
End Sub

Le seul problème qu'il semble y avoir c'est que la procédure cible ne s'exécute pas ( pas de blink pendant l'edition de cellule). Cela dépend de ce que l'on doit faire avec le Timer. N'importe comment on ne peut pas faire l'action par exemple quand il y a une édition de cellule). Si c'est pour un décompte ou un chrono , se baser sur le temps système pas sur un compteur en espérant que ce qui peut bloquer l'action avec le Timer ne dure pas trop longtemps.

Nullosse.

 

Dernière édition: 9 Juillet 2025

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 9 Juillet 2025

• #8

Il y a en effet le cas de l'édition de cellule que je sais détecter et peux traiter spécifiquement en temps d'attente.

Alors il y a 2 écoles:
1 - Gérer les erreurs et au bout d'un certain nombre d'erreurs répétées terminer le Timer (ma version modifiée avec le cas de l'édition de cellule)
2 - Ne pas gérer les erreurs et laisser le Timer tourner (ta version, ma version initiale)

Finalement tu as raison, c'est plus simple en option 2.

 

Pièces jointes

• Blink SetTimer.xlsm

  32.5 KB · Affichages: 2

Dernière édition: 9 Juillet 2025

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 9 Juillet 2025

• #9

Cependant, cette version simplifiée pose un problème si le Timer doit être déclenché à espaces "longs", par exemple toutes les 3 minutes.
Une erreur retarde d'autant le déclenchement du Timer qui ne joue plus réellement son rôle car l'intervalle n'est plus respecté.
En cas d'erreur il doit être déclenché le plus tôt possible (disons 100ms) pour compenser le non appel de la fonction utilisateur sur l'erreur à l'échéance.

Alors je mets quand même ici la version qui gère les erreurs mais modifiée pour ne terminer le Timer à cause des erreurs que sur un nombre d'erreurs défini en Constante (modifiable) très grand.

 

Pièces jointes

• Blink SetTimer Error Management.xlsm

  30.9 KB · Affichages: 2

Dernière édition: 10 Juillet 2025

Vote positif 0 Vote négatif