XL 2016 Horloge dans feuille de calcul Excel

ReneDav14000 · 26 Septembre 2022

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 · 4 Octobre 2022

re
bubleWaterWatch

patricktoulon · 4 Octobre 2022

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

VB:

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 · 4 Octobre 2022

patricktoulon à dit:
@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 · 4 Octobre 2022

patricktoulon à dit:

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

VB:

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 · 4 Octobre 2022

patricktoulon à dit:
tu la veut hein Lionel ??!!!

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

Staple1600 · 4 Octobre 2022

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 · 4 Octobre 2022

Usine à gaz à dit:
Ben OUI, elle est super ton horloge !
Allé, envoies

patrick, tu devrais la mettre aux enchères

ReneDav14000 · 4 Octobre 2022

Staple1600 à dit:
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 · 4 Octobre 2022

@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 · 4 Octobre 2022

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

Usine à gaz · 4 Octobre 2022

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

patricktoulon · 5 Octobre 2022

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 · 5 Octobre 2022

Bonjour à tous

@patricktoulon

J'ai un message ici sur mon pc

@Phil69970

patricktoulon · 5 Octobre 2022

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 · 5 Octobre 2022

Patrick

Excel 2010 64 bits
W10

@Phil69970

patricktoulon · 5 Octobre 2022

re
version 14 c'est quoi ça 2010?

XL 2016 Horloge dans feuille de calcul Excel

ReneDav14000

XLDnaute Occasionnel

Pièces jointes

patricktoulon

patricktoulon

XLDnaute Barbatruc

ReneDav14000

XLDnaute Occasionnel

@ReneDav14000

ReneDav14000

XLDnaute Occasionnel

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

ReneDav14000

XLDnaute Occasionnel

ReneDav14000

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Discussions similaires

XL 2016 Horloge dans feuille de calcul Excel

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

XLDnaute Occasionnel

@ReneDav14000​

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Discussions similaires

@ReneDav14000