XL 2016 Horloge dans feuille de calcul Excel

ReneDav14000

XLDnaute Occasionnel
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
 

Pièces jointes

  • Projet2.xlsm
    262.2 KB · Affichages: 61

ReneDav14000

XLDnaute Occasionnel
re
bubleWaterWatch
C'est un super boulot. Je m'incline devant ton savoir-faire 🥇 👏 👏 .Mes connaissances actuelles ne m'auraient jamais permises de réaliser ça. Je vais continuer sur mon application grâce à différents tutos dont beaucoup ont déjà participé et je les en remercie par avance, dont toi patrick.
Je soumettrais mon travail à vos regards professionnels et affûtés.
Encore mille merci à tous ceux qui ont contribué à cette discussion.
Je vous souhaite à tous une bonne fin de journée.
Très amicalement
ReneDav
 

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Hello Patrick, le Fil :)
Hello moqueur, j'aime bien ton horloge
Est-il possible de (tous les éléments ensembles) coder pour :
- la déplacer,
- la déduire en taille,
Cerise sur le gâteau coder pour : avoir la possibilité de changer "shfond",
J'ai fait un petit fichier propre.
Si ça te dit, ce serait super ;)
@plus peut-être sur ce fil...
lionel :)
 

Pièces jointes

  • horloge Patrick.xlsm
    105.8 KB · Affichages: 5

patricktoulon

XLDnaute Barbatruc
bon lionel regarde
j'ai du modifier pas mal de trucs mais j'y suis arrivé
demo.gif
 

dysorthographie

XLDnaute Accro
#If VBA7 Then
Private Declare PtrSafe Function SetTimer Lib "user32.dll" (ByVal hwnd As LongPtr, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As Long
Private Declare PtrSafe Function KillTimer Lib "user32.dll" (ByVal hwnd As LongPtr, ByVal nIDEvent As Long) As Long
#Else
Private Declare Function SetTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As Long
Private Declare Function KillTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
#End If
faut bien que je critique!
 

patricktoulon

XLDnaute Barbatruc
bah.... a force d'en faire
en plus moi sur 2013 les déclaration vb7(ptrsafe/long) ou vb6 (long) fonctionne et meme le longptr visiblement
donc perso si je me décarcasse a déclarer les deux c'est pour les autres par pour moi
mais c'est bien de le signaler (je corrige)
 

Discussions similaires

Réponses
7
Affichages
523
M
Réponses
9
Affichages
477
Maikales
M

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
312 305
Messages
2 087 084
Membres
103 459
dernier inscrit
Arnocal