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]

@ReneDav14000
change la sub heure pour celle ci et tu aura le vrai comportement de l'aiguille heure

Sub heure()
    Dim H#, M#, S#
    On Error Resume Next   
    H = (360 / 12) * Hour(Now) + ((360 / 60) / 12) * Minute(Now)
    M = (360 / 60) * Minute(Now)
    S = (360 / 60) * Second(Now)
    ActiveSheet.Shapes("shgroupHeure").Rotation = H
    ActiveSheet.Shapes("shgroupminute").Rotation = M
    ActiveSheet.Shapes("shgroupseconde").Rotation = S
    Err.Clear
End Sub

 

[ReneDav14000]

@ReneDav14000​

ben 8 c'est 20 h non?
je pourrais trouver éventuellement l'astuce pour qu'elle avance un peu proportionnellement entre deux point d'heure

Oui bien sûr patrick, je voulais juste faire remarquer que l'aiguille des heures n'avance pas proportionnellement au temps, mais ce n'est pas important.

 

[ReneDav14000]

@ReneDav14000
change la sub heure pour celle ci et tu aura le vrai comportement de l'aiguille heure

Sub heure()
    Dim H#, M#, S#
    On Error Resume Next  
    H = (360 / 12) * Hour(Now) + ((360 / 60) / 12) * Minute(Now)
    M = (360 / 60) * Minute(Now)
    S = (360 / 60) * Second(Now)
    ActiveSheet.Shapes("shgroupHeure").Rotation = H
    ActiveSheet.Shapes("shgroupminute").Rotation = M
    ActiveSheet.Shapes("shgroupseconde").Rotation = S
    Err.Clear
End Sub

Merci patrick, mais ce n'était pas très important.
Encore merci pour ton Excellent travail. J'espère que je pourrai te rendre un si grand service.

 

[Usine à gaz]

tu la veut hein Lionel ??!!!

Ben OUI, elle est super ton horloge !
Allé, envoies

 

[Staple1600]

Bonsoir le fil

[aparté]
Heureusement qu'on conseille aux nouveaux membres, de ne pas poser leur question dans le fil d'un autre forumeur, mais de créer sa propre discussion (en mettant éventuellement un lien vers la discussion source)...
N'est-ce pas Lionel ? (qui n'est pas pourtant pas un newbie sur XLD
[/aparté]

 

[ReneDav14000]

Ben OUI, elle est super ton horloge !
Allé, envoies

patrick, tu devrais la mettre aux enchères

 

[ReneDav14000]

Bonsoir le fil

[aparté]
Heureusement qu'on conseille aux nouveaux membres, de ne pas poser leur question dans le fil d'un autre forumeur, mais de créer sa propre discussion (en mettant éventuellement un lien vers la discussion source)...
N'est-ce pas Lionel ? (qui n'est pas pourtant pas un newbie sur XLD
[/aparté]

Oui mais elle est tellement belle qu'elle attire... C'est la rançon du succès.

 

[Staple1600]

@ReneDav14000

L'aparté ne n'était pas destiné
Simplement, il y a des us et coutumes sur le forum
(Et il est étonnant que des membres anciens les zappent)

 

[patricktoulon]

ouais!! c'est vrai ça hein lionel c'est pas bien
allez pour lionel

 

[Usine à gaz]

Partrick
Merci pour le fichier.
Mais il ne manque pas des codes ?
Car rien ne se passe à l'ouverture

 

[patricktoulon]

re
Bonjour Lionel
dis moi un peu tu n'est pas un débutant , tu sera faire quand même
testcreate dans le open du workbook et le activate de la feuille
et destroyhorloge dans le beforeclose du workbook et le déactivate de la feuille

 

[Phil69970]

Bonjour à tous

@patricktoulon

J'ai un message ici sur mon pc

@Phil69970

 

[patricktoulon]

bonjour @Phil69970
alors là j'en sais fichtrement rien
aurais tu un soucis avec la user32?
tu tourne avec quoi vu les declaration 32 en rouge j'en conclu que tu est sur 64
n'aurais tu pas une version clickandrun de 365 par hasard

 

[Phil69970]

Patrick

Excel 2010 64 bits
W10

@Phil69970

 

[patricktoulon]

re
version 14 c'est quoi ça 2010?