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

 

[patricktoulon]

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

 

[patricktoulon]

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

 

[jm.andryszak]

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

 

[ReneDav14000]

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

Merci beaucoup pour votre aide et votre travail. Effectivement comme ça ce n'est pas très joli.
ça m'énerve de galérer sur un truc qui ne sert à rien et surtout qui vous prend du temps.
Je vais tenter de faire des compromis et de simplifier la page d'accueil.
Encore mille merci

 

[ReneDav14000]

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

Je n'ai pas les connaissances pour ça. Franchement ça m'ennuie d'occuper votre temps à un truc qui ne sert à rien dans l'application. Je ne vais pas passer tout mon temps sur une fichue horloge.

 

[ReneDav14000]

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

Bonjour Patrick,
Je vais retravailler le sujet. Si tu as quelques tuyaux à me donner je suis preneur.
Je cherche dans les tutos et je pensais avoir trouver la solution. Ton analyse remet les pendules à l'heure.
Merci toutefois pour tes commentaires constructifs.

 

[ReneDav14000]

Patrick,
Est-ce que comme ça c'est mieux ? Je n'ai pas de moyen de tester sur un écran plus petit que le mien.

 

[patricktoulon]

re
bonsoir je viens d'arriver
voilà comment ca sort chez moi

 

[jcf6464]

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

 

[patricktoulon]

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

 

[ReneDav14000]

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

Bonsoir Patrick, bonsoir jcf6464,
Je suis passé par un UserForm parce que je ne sais pas faire mieux.
J'avoue ne plus savoir quoi faire à part de laisser tomber cette horloge qui m'embête plutôt qu'autre chose.
Avec mes connaissances, je n'arrive pas à faire mieux en terme de compatibilité d'affichage. Je suis complètement désarmé. Pour arriver à cette dernière version j'ai utilisé un code que tu avais donné. Mais n'ai certainement pas du l'utiliser comme il faut.

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

Pour l'horloge, c'est moi qui ait mal calibré sa position.

 

[ReneDav14000]

J'ai recalibré l'horloge

 

[jcf6464]

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

 

[mapomme]

Bonsoir à tous,

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

Perso, j'utiliserai dans ce cas Excel pour ce qu'il est : un tableur!
Et je passerai par une horloge digitale.
Beaucoup moins de code, pas de placement délicat et des informations précises et lisibles.

Le code est dans Module1 et un petit peu dans le module de ThisWorkbook.

 

[ReneDav14000]

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

Regarde la pièce jointe 1151118

Ce sont les chiffres de l'horloge que je n'arrive pas à mettre autour du cercle.
Déjà tout est visible, c'est une bonne chose. Je vais continuer à chercher