XL 2010 Timer évenementiel Excel VBA

Dudu2 à dit:

Bonjour,

J'ai republié le dernier fichier ci-dessus pour un détail de déclaration de LongPtr -> Long en non-VBA7 qui ne concerne que peu de gens à ce jour.

Maintenant, il y a un point technique que je vérifierai quand j'aurai un peu de temps.
Si comme le dit @Dranreb dans son post #15 tout à fait abscons (pour moi en tous cas) , l'utilisation d'un RaiseEvent ne remet pas l'exécution de call back Timer dans un contexte sous contrôle d'Excel, ce dont je doute, ça ne sert à rien de passer par une classe et gérer un évènement. Il suffirait alors d'appeler une fonction au retour du Timer sans plus de formalités. Je ferai donc à l'occasion des tests pour tenter de différencier par plantage VBA les 2 cas de figures.

Cliquez pour agrandir...

Moi, je cherche juste un faire un timer ('tout bête'...) pour lancer une tâche cycliquement dans un classeur Excel

Cliquez pour agrandir...

Option Explicit

Private RunTime As Variant
Private Const TimerDurationInSeconds = 5

Sub StartTimer()
    RunTime = Now + TimeValue(Format(Int(TimerDurationInSeconds / 3600), "00") & ":" & _
                              Format(Int((TimerDurationInSeconds - Int(TimerDurationInSeconds / 3600) * 3600) / 60), "00") & ":" & _
                              Format(TimerDurationInSeconds Mod 60, "00"))
 
    Application.OnTime EarliestTime:=RunTime, Procedure:="RunTimer", Schedule:=True
End Sub

Sub StopTimer()
    On Error Resume Next
    Application.OnTime EarliestTime:=RunTime, Procedure:="RunTimer", Schedule:=False
    On Error GoTo 0
End Sub

Sub RunTimer()
    'Ici faire le traitement cyclique
    'MsgBox "RunTimer"
 
    'Relancer le Timer
    Call StartTimer
End Sub

Dudu2 à dit:

Bonjour,

Pour palier ce problème de Call Back procédure du Timer obligatoirement en Module, j'ai fait une version de la Classe_Timer qui créé elle-même le Module et les fonctions dont elle a besoin pour le Call Back de son Timer.

Ça simplifie grandement l'utilisation avec la petite contrainte d'autoriser l'accès au projet VBA dans la sécurité des Macros et d'inclure la bibliothèque "Microsoft Visual Basic for Applications Extensibility 5.3 Library" dans les References VBA.

La Classe_Timer possède une méthode Initialize et un méthode QueryClose qui gèrent la création / suppression du Module relatif au Call Back de son Timer et qui sont à appeler dans le UserForm au début et à la fin comme leurs noms l'indiquent (voir exemple du fichier).

Le plus dur a été de récupérer l'adresse de la procédure de Call Back, ce qu'un petit tour de passe-passe a permis de réaliser.

Cliquez pour agrandir...

pleasewait à dit:

Moi, je cherche juste un faire un timer ('tout bête'...) pour lancer une tâche cycliquement dans un classeur

Cliquez pour agrandir...

Dudu2 à dit:

son post #15 tout à fait abscons (pour moi en tous cas)

Cliquez pour agrandir...

Qu'est-ce qui est abscons la dedans ?

Cliquez pour agrandir...

Dranreb à dit:

Bonjour.

Oui mais vous ne dites jamais si c'est un traitement cyclique dans un module standard ou dans un module objet, or c'est totalement différent, puisque la procédure exécutée à la base par le Timer doit impérativement être dans un module standard. Mais attention, c'est souvent dans cette sorte de module qu'on travaille avec Excel, or, rappel: un timer exécutant des méthodes d'Excel est potentiellement dangereux. Pour des animations de contrôles dans un UserForm, pas de problème. Pour l'avoir dans un module objet tel qu'un UserForm il faut donc soit qu'elle en invoque une méthode, soit qu'elle y déclenche un évènement. C'est cette seconde solution que permet mon type d'objet Rythmeur très facile d'emploi sans la moindre adaptation nécessaire ailleurs que là où on veut l'utiliser. Juste prendre comme ils sont le module de classe Rythmeur (avec commentaires d'aide à l'emploi d'un objet de ce type) et le module standard d'intendance interne XRythmeur.
Qu'est-ce qui est abscons la dedans ? Excel n'a rien à voir avec les évènements. Il utilise simplement comme tout le monde le même arsenal de base pour des évènements d'objets à lui, c'est tout.

Cliquez pour agrandir...

1. Lancer subroutine (call MaSubroutine() )
2. Reset du timer
3. Run du Timer reseté
4. Si évent Fin du timer alors étape 1 (en boucle ...)

Dranreb à dit:

Elle fait quoi votre MaSubroutine ?
ThisWorkbook est un module objet. Un objet Rythmeur y est donc utilisable.
Un objet Planification aussi.
Joignez un classeur montrant ce que vous voulez faire. Ce n'est pas clair.
Ce que vous indiquez comme ébauche de code me donne à penser que c'est plutôt du ressort d'une planification par Application.OnTime.

Cliquez pour agrandir...