XL 2016 Horloge dans feuille de calcul Excel

jm.andryszak à dit:

Même constatation que le post #47
Je pense qu'il est l'heure de trouver des compromis.
On voit effectivement des traces des aiguilles sur l'image, c'est le passage de l'aiguille 1 seconde avant
Il faudrait trouver une couleur proche du fond de cette image pour la mettre dans DrawLine
En remplaçant usf.BackColor par cette couleur, je n'ai pas cherché.
Beaucoup de paramétrage dans le module USERFORM, ça m'a pris du temps...
Avec ce fichier, je vois tout et j'ai un tout petit écran.
En ce qui me concerne, je ne pense pas pouvoir aller plus loin, je reste cependant à l'écoute.
Cordialement

Cliquez pour agrandir...

patricktoulon à dit:

avec les api tu peux dessiner du texte (drawtext avec les api )
sert toi des calculs déjà fait pour dessiner les chiffres au lieu d'utiliser des labels
mais bon si tu n'a pas les connaissances ça va être coton pour toi
perso j'aurais fait ça avec des shapes a ta place

Cliquez pour agrandir...

patricktoulon à dit:

re
pour ma part
l'userform horloge n’apparaît toujours pas à l’écran pourtant il est bien affiché (quelque part je ne sais ou)
puisque je suis bloqué en terme de selection dans la feuille donc il est modal et bien present
tu continue donc a coder avec tes propres dimensions et résolutions
parti de là personne ne pourra t'aider tant que tu comprendras pas le travail qu'il y a a faire avant
afin que l'affichage soit le même partout(proportionnellement) sur n'importe quel pc
tu t'es engagé dans un truc mon pauvre ami tu n'en est pas sorti

Cliquez pour agrandir...

patricktoulon à dit:

bonsoir @jcf6464
ben chez toi il y a carrément 3 boutons cachés par l'horloge

avant de faire l'horloge
notre amis devrait rendre cette interface d’accueil compatible tout affichage
c’a veut dire
réserver un pourcentage en largeur /hauteur /left et top de chaque éléments
et recalculer avec l'activewindow.visiblerange.width et height au démarrage
et même réserver une partie de plage pour accueille l'horloge mais ça c'est un 2d points
et d'ailleurs a ce titre puisque l'horloge est sensée s'afficher a droite des boutons(donc sur la feuille)
je ne vois par pourquoi passer par un userform et tout le toutim

Cliquez pour agrandir...

Sub test()
    zooming_columns Range("A:R")
End Sub
Function zooming_columns(rng As Variant)
    Dim p_topx, marge#
    Dim coeff#
    With ActiveWindow
        .Zoom = 100
        p_topx = (.ActivePane.PointsToScreenPixelsX(72) - .ActivePane.PointsToScreenPixelsX(0)) / 72
        marge = ((.ActivePane.PointsToScreenPixelsX(0) / p_topx) - Application.Left) * (1 + (Abs(ActiveWindow.DisplayVerticalScrollBar)))
        If TypeName(rng) = "Range" Then
            coeff = (Application.UsableWidth - marge) / rng.Width
            .Zoom = 100 * coeff
        Else
            .Zoom = 100
        End If
    End With
    [A1].Select
   End Function

patricktoulon à dit:

et d'ailleurs a ce titre puisque l'horloge est sensée s'afficher a droite des boutons(donc sur la feuille)
je ne vois par pourquoi passer par un userform et tout le toutim

Cliquez pour agrandir...

jcf6464 à dit:

Bonsoir à tous et le forum
Voilà ce que cela donne chez moi maintenant,

Regarde la pièce jointe 1151118

Cliquez pour agrandir...