XL 2016 VBA Horloge

patricktoulon

XLDnaute Barbatruc

• 14 Janvier 2020

• #2

bpnsoir
peut être comme ça

VB:

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
😉

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 14 Janvier 2020

• #3

Bonsoir tout le monde,
En PJ un exemple.

 

Pièces jointes

• Horloge.xlsm

  13.9 KB · Affichages: 48

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 14 Janvier 2020

• #4

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.

 

Vote positif 0 Vote négatif

G

GP-xlsx

XLDnaute Nouveau

• 14 Janvier 2020

• #5

J

sylvanu à dit:

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.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 14 Janvier 2020

• #6

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 )

 

Pièces jointes

• Horloge 2.xlsm

  35 KB · Affichages: 79

Vote positif 0 Vote négatif

G

GP-xlsx

XLDnaute Nouveau

• 14 Janvier 2020

• #7

patricktoulon à dit:

bpnsoir
peut être comme ça

VB:

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
😉

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 14 Janvier 2020

• #8

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 ???? 😉

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 14 Janvier 2020

• #9

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.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

G

GP-xlsx

XLDnaute Nouveau

• 14 Janvier 2020

• #10

patricktoulon à dit:

re

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

Cliquez pour agrandir...

Te rappelle que je suis novice en VBA...

 

Vote positif 0 Vote négatif

excfl

XLDnaute Barbatruc

• 12 Février 2021

• #11

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 ......"

 

Pièces jointes

• Horloge ring--.xlsx

  232.9 KB · Affichages: 59

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 12 Février 2021

• #12

bonjour
quel macro!!? c'est un xlsx

 

Vote positif 0 Vote négatif

excfl

XLDnaute Barbatruc

• 12 Février 2021

• #13

Re,

Plus exactement :

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 12 Février 2021

• #14

??????????????
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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 12 Février 2021

• #15

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.

 

Pièces jointes

• Progression.xlsm

  201 KB · Affichages: 35

Vote positif 0 Vote négatif