XL 2016 VBA Horloge

[GP-xlsx]

Bonsoir,
J'ai récupéré un VBA pour installer une horloge dans un fichier Excel.
Le souci c'est que quand cette macro est lancée, elle empêche toutes les autres de fonctionner.
Quelqu'un peut-il m'aider??

 

[patricktoulon]

bpnsoir
peut être comme ça

Dim go As Boolean
Sub startandstop()
go = Not go
Horloge
End Sub
Sub Horloge()
   Range("C3") = Format(Now, "hh:nn:ss")
DoEvents
  If go  Then Application.OnTime Now + TimeValue("00:00:01"), "horloge"
End Sub

la même sub pour la démarrer et l’arrêter

 

[sylvanu]

Bonsoir tout le monde,
En PJ un exemple.

 

[sylvanu]

Votre horloge ne peut pas donner l'heure avec votre code. L'heure de votre code est affichée en C3.
L'image de l'horloge est surement liée à l'origine à un module Flash, comme son nom l'indique quand on la sélectionne :
=INCORPORER("ShockwaveFlash.ShockwaveFlash.1";"")
Donc il vous manque quelque chose par rapport à votre fichier original.

 

[GP-xlsx]

J

Votre horloge ne peut pas donner l'heure avec votre code. L'heure de votre code est affichée en C3.
L'image de l'horloge est surement liée à l'origine à un module Flash, comme son nom l'indique quand on la sélectionne :
=INCORPORER("ShockwaveFlash.ShockwaveFlash.1";"")
Donc il vous manque quelque chose par rapport à votre fichier original.

J'y retravaille alors... merci pour les conseils!

 

[sylvanu]

En PJ une horloge qui marche.
Inspiré de : https://www.developpez.net/forums/d...ribuez/horloge-analogique-utilisation-shapes/

( Modifié PJ : Démarrage automatique de l'horloge )

 

[GP-xlsx]

bpnsoir
peut être comme ça

Dim go As Boolean
Sub startandstop()
go = Not go
Horloge
End Sub
Sub Horloge()
   Range("C3") = Format(Now, "hh:nn:ss")
DoEvents
  If go  Then Application.OnTime Now + TimeValue("00:00:01"), "horloge"
End Sub

la même sub pour la démarrer et l’arrêter

Bonsoir PatrickToulon, ton code actualise mon horloge mais je perds le déroulement continu quand je suis sur la page active. Hors je cherche à le mettre en pause dès que je quitte cette page par commande d'une autre macro. Alors ta proposition rend les autres fonctionnelles mais je perds l'intérêt de l'horloge active sur la page d'accueil.

 

[patricktoulon]

re
bonsoir a tous
est ce bien utile d'avoir une rolex dans un sheets???
une cellule mis a jour toutes les secondes n'est il pas suffisant ????

 

[patricktoulon]

re

Hors je cherche à le mettre en pause dès que je quitte cette page par commande d'une autre macro. Alors ta proposition rend les autres fonctionnelles mais je perds l'intérêt de l'horloge active sur la page d'accueil.

et alors???.... tu fait un startstop au déactivate c'est tout

 

[GP-xlsx]

re

et alors tu fait un startstop au déactivate c'est tout

Te rappelle que je suis novice en VBA...

 

[excfl]

Bonjour le forum,

"J'ai récupéré un VBA pour installer une horloge dans un fichier Excel.
Le souci c'est que quand cette macro est lancée, elle empêche toutes les autres de fonctionner".

Horloge qui n'empêche pas les macros de fonctionner :

Cliquer sur "Autoriser la lecture ......"

 

[patricktoulon]

bonjour
quel macro!!? c'est un xlsx

 

[excfl]

Re,

Plus exactement :

Horloge qui n'empêche pas les autres macros de fonctionner

 

[patricktoulon]

??????????????
c'est pas une horloge qu'il te faut ce sont des gestion d'attente (rien a voir )
pour ça il faut être un peu moins radin en descriptif et un fichier représentant le problème même réduit à l'essentiel pourrait nous permettre d'y voir plus clair

 

[Dranreb]

Bonjour à tous
@excfl N'y a-t-il vraiment que chez vous que ces choses que vous joignez parfois fonctionnent ?
Chez moi elles ont toujours été complètement inertes, et ne proposent jamais nulle part d'autoriser une quelconque lecture.
@GP-xlsx Des fournitures possiblement utilisables dans ce classeur joint.