Une petite horloge affichant l'heure en lettres

Une petite horloge que j'ai retrouvé dans un coin de mon ordinateur (généré avec une ancienne version d'Excel).

Si cela peut donner des idées 😀.

Lien : Télécharger

Elle affiche l'heure en lettre par intervalle de 5 minutes (Les points blanc dans les angles représentent les minutes intercalaires).

(Heure affichée 1h 05+2 => 1h07).

Le fichier ne contient pas de macro donc la mise à jour ne se fait que lors d'une saisie ou avec la touche F9 du clavier.

Pour l'automatiser cette mise à jour, on pourrait ajouter les codes suivants :

Dans le module ThisWorkbook.

Private Sub Workbook_Open()
    dtMAJ = TimeValue("00:00:01")
    If Range("Q2").Value = "ON" Then _
            Application.OnTime Now + dtMAJ, "ActualiserFeuil2"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Application.OnTime Now + dtMAJ, "ActualiserFeuil2", , False
    On Error GoTo 0
End Sub

Dans le module Feuil2.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target = Range("Q2") And Range("Q2").Value = "ON" Then Application.OnTime Now + dtMAJ, "ActualiserFeuil2"
End Sub

Dans un module classique.

Public dtMAJ As Date

Public Sub ActualiserFeuil2()
    With ThisWorkbook.Sheets("Feuil2")
        Application.EnableEvents = False
        .Cells(1, 1).Value = .Cells(1, 1).Value ' Modification forcer le recalcul
        Application.EnableEvents = True
        .Calculate
        If .Range("Q2").Value = "ON" Then Application.OnTime Now + dtMAJ, "ActualiserFeuil2" ' Récusivité
    End With
End Sub

Remarques sur les formules en feuil1 :

• Tableau des lettres en D1 (lettres supplémentaires en fond blanc pour afficher un message par exemple).
• Tableau en R16 programmant quand afficher quelle lettres (1 = afficher).
  • Les lignes : Les heures et les minutes (R19:R43).
  • Les colonnes : Les lignes et colonnes.
• Tableaux en R46, D19 : Extraction des données en fonction de l'heure.

Merci pour votre attention bienveillante.