XL 2016 Horloge dans feuille de calcul Excel

ChTi160 à dit:

Bonjour le Fil
J'ai eu le même problème que ReneDav14000 her j'ai bien suivi la procédure mais rien dans "Insérer" ,"autres controls"
J'ai même essayé de placer le Fichier .Ocx dans System32 , mais rien Lol
J'ai abandonné Lol
Bonne fin de journée
Jean marie

Cliquez pour agrandir...

patricktoulon à dit:

Bonjour
perso je m'en suis fait une avec des shapes que je peux placer n'importe ou sur la feuille
et a n'importe quelle dimension
tout est construit dynamiquement rien n'existe au départ
démonstration
Regarde la pièce jointe 1151248

Cliquez pour agrandir...

patricktoulon à dit:

en de moment je suis en train d'en faire une autre un peu plus élaboré
regarde comment elle va etre belle celle la
je l'ai appelé bubleWaterWatch
et pareil tout avec des shapes et construite dynamiquement
Regarde la pièce jointe 1151250

Cliquez pour agrandir...

patricktoulon à dit:

re
ton projet c'est quoi
1° mettre une horloge analogique a un endroit precis de ta page d'acceuil
ben c'est simple tu n'a besoins que de cette plage
2° on prend le plus petit coté de la plage qui sera le diametre et divisé par 2 = le rayon
3°on crée une shape ellipse (ronde) de cette taille (ça c'est le fond de l'horloge)après tu décors comme tu veux
4 °on va crée une meme shape ronde mais transparente meme taille meme position
ca c'est le fond de l'aiguille des heures

5° on crée une shape (moi j'ai pris triangle isocelle) et on la positionne en haut du fond aiguille et au milieu du fond sa taille mesure donc le rayon (on met un tout petit peu moins c'est l'aiguille des heures
ce fond heure et cette aiguille on les GROUPE pour quelle ne face plus qu'une
dorénavant ce groupe quand tu applique une rotation tu aura l'aiguille qui fait le tour

6° et 7 on fait pareil pour les minutes et les secondes

voilà en gros le principe de base de la construction avec des shapes
tout le reste c'est de l'arrangement esthétique

pour mettre l'horloge a l'heure la formule est on ne peut plus simple
dans une sub en addressof par le settimer on met les aiguilles a l'heure

VB:

Sub heure()
    Dim H#, M#, S#
    On Error Resume Next    'gestion d'erreur supprimée

    H = (360 / 12) * Hour(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

terminé
simple non
allez une exemplaire de la basic grise

Cliquez pour agrandir...

patricktoulon à dit:

re
non il y a
1er groupe
1 fond
peu être d'autre shapes avec (exemple les points autour du fond dans mon model)

2d groupe
1fond transparent + aiguille (pour heure)

3eme groupe
1fond transparent+aiguille (pour minute)

4eme groupe
1fond transparent+aiguille(pour secondes)

Cliquez pour agrandir...

patricktoulon à dit:

regarde
je reprend ton projet 1
je regle le zoom chez moi sinon ca deborde (mais c'est qu'un detail
je vais y mettre mon module de creation d'horloge et mon module timer
je vais prendre la plage dispo visible a droite
voyons voir questque l'on a en dispo

Regarde la pièce jointe 1151260c'est donc la P10 :T27
ok donc je change ca dans ma sub d'appel
Regarde la pièce jointe 1151261

allez on tente pour voir ?
Regarde la pièce jointe 1151263

voilà monsieur

Cliquez pour agrandir...