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

 

[ReneDav14000]

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

Bonjour Chti160,
J'ai eu peur un instant d'avoir commis une bourde, ça me rassure. Mais c'est quand même bizarre cette affaire.

 

[dysorthographie]

C'est pas grave je vais te proposer une autre solution

 

[ChTi160]

Merci Robert
as-tu une idée du pourquoi de cette non-inscription de ce Control ?
Jean marie

 

[patricktoulon]

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

 

[ReneDav14000]

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

Bonsoir Patrick,
ça a l'air très bien mais je n'ai jamais utiliser les shapes, je ne sais même pas ce que c'est.
Je vais aller faire des recherches. J'admire ton travail.

 

[patricktoulon]

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

 

[ReneDav14000]

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

Tu me fais baver là. Si tu avais un mode d'emploi, je m'y attellerai. Je me coucherai moins bête ce soir.

 

[patricktoulon]

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

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

 

[ReneDav14000]

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

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

Merci patrick, c'est super sympa de m'expliquer ainsi.
Avant de regarder ton exemple, je vais essayer de suivre ta méthode, comme ça la prochaine fois je saurais.
Encore merci

 

[ReneDav14000]

Est-ce que les minutes et les secondes font parties du même groupe que le fond heure et aiguille heure ?
Qu'est-ce que tu appelles adressof ?

 

[patricktoulon]

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)

 

[ReneDav14000]

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)

D'accord merci et l'adressof

 

[patricktoulon]

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

c'est donc la P10 :T27
ok donc je change ca dans ma sub d'appel

allez on tente pour voir ?

voilà monsieur

 

[ReneDav14000]

Est-ce que je doit utiliser les 2 modules

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

Comment te remercier, c'est du super boulot. Franchement je m'incline. Je ne pourrai pas faire mieux.
Merci, merci beaucoup

 

[patricktoulon]

apres tu arrange les couleurs comme tu veux
demain je finaliserais tout ca
et je te donnerais un exemple de ton fichier avec ma beauté la bublewaterwatch
je m'amuse comme un gamin avec ce truc