Une DLL qui ajoute un timer simple et efficace à la millisecondes à VBA.

📘 Manuel développeur – Timer COM pour Excel VBA (TimerRd)​

🔧 1. Objectif​

• plus précis
• événementiel (basé sur WithEvents)
• facilement contrôlable (Start / Stop / Interval)

⚙️ 2. Installation​

Étapes :​

1. Compiler la DLL TimerRd.dll
2. Enregistrer la DLL avec RegAsm.exe :
   C:\Windows\Microsoft.NET\Framework\v4.0.30319\RegAsm.exe "C:\MyRep\TimerRd.dll" /tlb /codebase
   • Ouvrir l’éditeur VBA (ALT + F11)
   • Menu Outils > Références
   • Ajouter la référence à TimerRd

🧱 3. Architecture​

Classes principales :​

🚀 4. Utilisation de base en VBA​

Exemple complet :​

Dim WithEvents T As TimerRd.CTimer

Private Sub UserForm_Initialize()
    Set T = New TimerRd.CTimer
    T.Interval = 100   ' 100 ms
    T.Start
End Sub

Private Sub T_Tic(ByVal TickCount As Integer)
    Label1.Caption = TickCount
End Sub

⏱️ 5. Fonctionnement​

Cycle :​

1. Création du timer
2. Définition de l’intervalle
3. Appel de Start
4. Réception des événements Tic
5. Appel de Stop pour arrêter

📌 6. Propriétés​

Interval​

• Type : Long
• Unité : millisecondes
• Minimum : 1

T.Interval = 10   ' 10 ms = 0,01 seconde

IsRunning​

• Type : Boolean
• Indique si le timer est actif

If T.IsRunning Then
  MsgBox "Le timer tourne"
End If

▶️ 7. Méthodes​

Start()​

• Démarre le timer
• Réinitialise le compteur

Stop()​

• Arrête le timer
• Libère les ressources

🔔 8. Événement​

Tic(TickCount As Integer)​

• TickCount = nombre de ticks depuis Start

Private Sub T_Tic(ByVal TickCount As Integer)
  Debug.Print TickCount
End Sub

🧠 9. Bonnes pratiques​

✔ Toujours utiliser WithEvents​

✔ Libérer le timer​

Private Sub UserForm_Terminate()
T.Stop
    Set T = Nothing
End Sub

✔ Éviter les intervalles trop faibles​

⚠️ 10. Limitations​

• Fonctionne sur le thread principal d’Excel (STA)
• Dépend du message loop Windows
• Pas temps réel strict (Windows Forms Timer)

🔍 11. Cas d’usage​

🧪 12. Exemple avancé : chronomètre​

Dim WithEvents T As TimerRd.CTimer
Dim startTime As Double

Private Sub UserForm_Initialize()
    Set T = New TimerRd.CTimer
    T.Interval = 100
    startTime = Timer
    T.Start
End Sub

Private Sub T_Tic(ByVal TickCount As Integer)
    Label1.Caption = Format(Timer - startTime, "0.00") & " s"
End Sub

🏁 13. Résumé​

• CTimer = cœur du système
• Interval = fréquence
• Start/Stop = contrôle
• Tic = événement clé
• WithEvents = obligatoire en VBA