XL 2016 Horloge dans feuille de calcul Excel

[ReneDav14000]

Bonjour à tous et merci de m'accueillir sur votre site.
Je ne suis pas un expert en Vba, mais je me débrouille un peu.
J'ai 61ans (bientôt la retraite) et j'exerce dans la fonction publique territoriale.
Je développe (j'essaie plutôt) des applications Excel pour améliorer les routines de travail.

J'ai donc un sujet à vous soumettre :
Avec l'aide de différents tuto, j'ai une horloge analogique que je souhaite insérer dans une feuille de calcul et que l'horloge se mette en route dès l'ouverture du fichier.
La feuille "Accueil" où se trouve l'horloge est la feuille qui sera affichée en première.
Pour le moment se met en route en cliquant sur un bouton (feuille "données horloge").
Merci par avance pour votre aide

 

[ReneDav14000]

Voici ce que j'ai réussi à faire avec des zones de texte dans l'UF.
Qu'en pensez-vous ?
J'ai la même chose avec des chiffres romains et ça rend pas mal non plus. Il faut juste que j'arrive à bien les aligner, mais ça ne devrait pas être trop difficile

 

[jm.andryszak]

Bonjour
Pas mieux, j'ai dû revoir une partie du code.
Pour aligner les labels représentant les heures, il faut tenir compte de la taille et de la position de l'horloge.
Je l'ai fait sur mon fichier de façon plus ou moins empirique et ça manque encore de finesse, mais j'avoue que
pour le moment je laisse tomber, je suis à court d'idée.
Pour l'image c'est OK.
Pour les réglages Labels Heures et Image c'est dans : Private Sub UserForm_initialize
Cordialement et courage pour la suite.

 

[ReneDav14000]

Bonjour à tous,
Merci jm.andryszak pour votre aide.
Je vous joins mon dernier modèle. J'y ai apporté une petite modif qui permet aux heures de passer à la numérotation du soir (13h, 14h etc..) le code se trouve dans l'initialise de l'UF. Il demande certainement à être amélioré mais j'ai fait avec mes connaissances.
Voici mon (notre) dernier résultat
N'hésitez pas à y apporter votre savoir-faire et encore merci pour votre coopération

 

[patricktoulon]

bonjour
si tu passe de Am à PM pour les chiffres met le 12 à 00 alors
me viens une question
quel est l’intérêt d'avoir une horloge aussi grande ?

 

[patricktoulon]

je regarde ton initialise et je simplifie

Private Sub UserForm_Initialize()
Dim i&, num
  For i = 1 To 12
  num = i + (12 * Abs(Time > "12:00"))
  If num = 24 Then num = "00"
  Usf.Controls("lab" & i) = num
  Next
Hwnd = FindWindow(vbNullString, Usf.Caption)
Me.Caption = "Horloge"
End Sub

 

[ReneDav14000]

Bonjour patricktoulon,
Merci pour ta réponse. L'intérêt d'une horloge aussi grande est qu'elle remplit un espace vide dans ma page d'accueil, rien d'autre.
Merci pour le code et ta suggestion pour le 12, je mets tout ça en pratique et je reviens dire ce qu'il en est.

 

[ReneDav14000]

patrick,
ça fonctionne très bien. Merci beaucoup.
Voici à quoi ressemble ma page d'accueil avec l'horloge.
N'hésites pas à critiquer, bien au contraire, cela me permet de progresser.

 

[patricktoulon]

re
1°
ben je vois ta page d'acceuil la montre ne se déclenche pas tout seule?
2° que se passera t-il le jour ou tu change de pc ou d’écran
car chez moi ta page d'acceuil prend trop de place
il est bien evident que si tu maitrise pas cela tu ura un affichage différent sur chaque ecran

 

[ReneDav14000]

Ah oui, je n'ai pas pensé à ça, zut !
Bon, je vais me remettre au travail et chercher comment résoudre le problème.
La montre va se déclencher toute seule lorsque j'aurai complètement fini mon application. Elle devrait démarrer dès l'ouverture du fichier et de l'affichage de la feuille "Accueil".
Merci d'avoir soulevé ce lièvre, je vais jouer les chasseurs maintenant.

 

[ReneDav14000]

Patrick,
Est-ce que je peux utiliser ce code que tu avais proposé dans une précédente conversation ? Est-ce qu'il va faire le boulot ?
Merci par avance

Private Sub UserForm_Initialize()
    Dim ctl As Control, ratioW#, ratioH#, wstate&
    With Application: wstate = .WindowState: .WindowState = xlMaximized:
        ratioW = Application.Width / Me.Width
        ratioH = Application.Height / Me.Height
        .WindowState = wstate
    End With
    With Me
        .StartUpPosition = 0: .Left = 0: .Top = 0
        .Width = (.Width * ratioW) - (.Width - .InsideWidth)
        .Height = (.Height * ratioH) - (.Height - .InsideHeight) + (.Width - .InsideWidth)
    End With
    For Each ctl In Me.Controls
        ctl.Move ctl.Left * ratioW, ctl.Top * ratioH, ctl.Width * ratioW, ctl.Height * ratioH
        Select Case TypeName(ctl)
        Case "TextBox", "Label", "Frame", "CommandButton", "MultiPage", "ListBox", "ComboBox", "CheckBox", "OptionButton"
            ctl.Font.Size = ctl.Font.Size * ratioH
        End Select
    Next

End Sub

 

[patricktoulon]

re
c'est pas a cela que je pensais au tout premier abords c'est à ta page d'aceuil
qui m'oblige a scroller vers le bas
pour chopper le bouton "<< Accéder aux données statistiques des personnels >>"
et encore j'ai redressé plein d'autres choses

pour faire une page d'acceuil il faut
déterminer au préalable une surface fixe pour n'importe quelle condition
après c'est juste un zoom sur cette surface
de façon a ce que cette page d’accueil soit visible dans n'importe quelle condition
commence déjà par ça et on verra après pour l’horloge
c'est le problème chez beaucoup d'amateurs , il développe sur leur bécanes et ne voient pas ce qui peut se passer ailleurs (sur une autre bécane )
maintenant tu vois
alors imagine demain tu change d’écran
LOL!!
ma politique
je pars du principe que l'utilisateur a le plus petit(résolution écran) ecran (800*600)notre bon vieux Win 95
soit 600 pixel environ par 450 environ
et je dois mettre tout mes boutons et photos a tout i cointi dans cette surface
QUITTE A FAIRE UN ZOOM PROPORTIONNEL sur cette surface ( et là j'ai tout dis )
ainsi sur chaque écran j'aurais tout mon interface devant mes yeux en toute circonstances

sans ça c'est pas la peine de faire une page d’accueil , ça n'a pas de sens

comme quoi tu vois c'est pas aussi simple de concevoir (ne serais ce qu'une page d’accueil jolie jolie )


et je réhitere ma question
à quoi pourrait bien te servir une horloge qui mange tout l'ecran (une bonne partie en tout ca )
je suis miope mais pas à ce point là en tout cas

 

[ReneDav14000]

Merci pour tes précieux conseils. Je vais retravailler tout ça.
Pour ce qui est de l'horloge, c'est une demande. Au début, elle était plus petite mais ne plaisait pas.
Il m'a fallu arriver à cette taille pour que ça plaise. Je ne fais qu'obéir, même si je suis d'accord avec toi, cela n'apporte pas une plus-value à l'utilisation de l'application, c'est du décors.

 

[patricktoulon]

re
OK d'accords en format maxi
mais au moins centré et un peu plus de design

 

[ReneDav14000]

J'ai ce code sous le coude qui pourrait peut-être servir à redimensionner les feuilles selon l'écran, qu'en penses-tu ?
Pour l'horloge, j'ai fait selon mes capacités. Toutefois, je vais essayer de faire mieux.
Voici le code :

Private Sub Workbook_Open()
Dim Feuille As Worksheet
For Each Feuille In ThisWorkbook.Sheets
    R$ = ""
    Select Case Feuille.Name
     Case "Feuil1": R$ = "b1:l1"
     Case "Feuil2": R$ = "b1:m1"
     Case "Feuil3": R$ = "b1:n1"
     Case "Feuil4": R$ = "b1:o1"
     Case "Feuil5": R$ = "b1:p1"
   End Select
   If R$ > "" Then
      Feuille.Activate
      Range(R$).Select: ActiveWindow.Zoom = True
      ActiveWindow.DisplayHeadings = False: Range("A1").Select
   End If
Next
End Sub

 

[patricktoulon]

ben c'est déjà un debut faut l'adapter a ton truc