Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 VBA Horloge

GP-xlsx

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

Pièces jointes

  • VBA Horloge.docx
    11.5 KB · Affichages: 52

patricktoulon

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

sylvanu

XLDnaute Barbatruc
Supporter XLD
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

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

GP-xlsx

XLDnaute Nouveau
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.
 

excfl

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

patricktoulon

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

XLDnaute Barbatruc
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: 34

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…