Date&heur, minute et seconde permanente

[Sidah.med]

Bonjour le forum, Bonjour maitre
Question : je veux affiche dans une cellule la date&heur, minute et seconde permanente et en temps réel
MERCI
--------------------------
Vivre Bien Avec VBA
Pourquoi faire facile quand on peut faire compliquer.
Appréciation : 0/5
--------------------------------------------------

 

[mutzik]

Re : Date&heur, minute et seconde permanente

bonjour
la formule : =maintenant()
mettre la cellule en format heure min et sec
laisser le doigt sur F9
en fait la formule (comme toutes les formules) n'est recalculée que lors d'un changement dans cette ou dans une autre cellule
ou
quand on appuie sur F9 (=recalculer toute la feuille)
ou
quand on lance une macro qui doit tourner en permanence pour recalculer
ou
une autre solution que je connais pas et que mes camarades vont te soumettre

 

[Sidah.med]

Re : Date&heur, minute et seconde permanente

Bonjour MUTZIK

Merci pour la reponse mais mon souci est :

bonjour
quand on lance une macro qui doit tourner en permanence pour recalculer

merci
---------------------------------------------------
Vivre Bien Avec VBA
Pourquoi faire facile quand on peut faire compliquer.
Appréciation : 1.5/5
-----------------------------------------------------

 

[JHA]

Re : Date&heur, minute et seconde permanente

Bonjour à tous,

Ci joint un exemple du forum légèrement modifié, merçi à l'auteur

Sur cette ligne de code, tu peux modifier le rafraîchissement de la cellule qui est actuellement de toutes les secondes

HeureProchainAppel = Now + TimeValue("00:00:01")

JHA

 

[Sidah.med]

Re : Date&heur, minute et seconde permanente

Bonjour forum
Merci mes amis de forum
Super réponse
--------------------------------------------------
Vivre Bien Avec VBA
Pourquoi faire facile quand on peut faire compliquer.
Appréciation : 5/5
---------------------------------------------------

 

[job75]

Re : Date&heur, minute et seconde permanente

Bonjour le fil, le forum,

Ce n'est peut-être pas forcément gênant de faire tourner une macro en permanence :

Dim t# 'mémorise la variable

Private Sub Worksheet_Calculate()
1 DoEvents
If Int(Timer) > t Then
  Application.EnableEvents = False
  [A1].Calculate
  t = Int(Timer)
  Application.EnableEvents = True
End If
GoTo 1
End Sub

Cependant sur mon ordi avec Excel 2003 on ne peut plus modifier le code VBA, intéressant...

Fichier joint.

A+

 

[job75]

Re : Date&heur, minute et seconde permanente

Re,

Une amélioration avec la touche F9 pour arrêter ou relancer l'horloge :

Dim t#, tourne As Boolean 'mémorise les variables

Private Sub Worksheet_Calculate()
tourne = Not tourne 'marche/arrêt
1 DoEvents
If Int(Timer) > t Then
  Application.EnableEvents = False
  [A1].Calculate
  t = Int(Timer)
  Application.EnableEvents = True
End If
If tourne Then GoTo 1
End Sub

Fichier (2).

A+

 

[job75]

Re : Date&heur, minute et seconde permanente

Re,

Pas terrible la solution précédente car l'horloge s'arrête si l'on modifie une cellule.

Une liste déroulante en B1 paraît mieux.

Fichier (3).

A+

 

[job75]

Re : Date&heur, minute et seconde permanente

Re,

La solution (2) n'était pas mauvaise, il suffit de la compléter avec :

Private Sub Worksheet_Change(ByVal Target As Range)
tourne = Not tourne
End Sub

Maintenant la modification d'une cellule n'affecte plus l'horloge.

Fichier (4).

A+