Heure comme une Horloge dans une Cellule

[MuscatMimi]

Bonjour a toutes et a tous

Comment mettre l'heure (heure Minutes Seconde)dans une Cellule
comme si cela était une Horloge



merci a l'avance

 

[LPandre]

Re : Heure comme une Horloge dans une Cellule

Fonction maintenant, et choisir le format de cellule qui te convient le mieux.

= MAINTENANT()
format/ cellule / heure / tu choisis

@+

Edit : Oups ! avais pas bien compris. job75 a raison !

 

[job75]

Re : Heure comme une Horloge dans une Cellule

Bonjour,

IL faut entrer l'heure toutes les secondes (ou toutes les minutes) dans la cellule, par une macro qui se déclanche par Application.OnTime.

Le sujet a été traité plusieurs fois sur ce forum.

A+

 

[Raja]

Re : Heure comme une Horloge dans une Cellule

Bonjour, Salut à tous,

Met ce code dans un module et fait exécuter :

Sub Heure()
    Application.OnTime Now + TimeValue("00:00:01"), "Heure"
    Range("A1") = Time
End Sub

 

[MuscatMimi]

Re : Heure comme une Horloge dans une Cellule

Bonjour job75 et raja

Merci de vos réponses

Cordialement
A bientôt

 

[BOISGONTIER]

Re : Heure comme une Horloge dans une Cellule

Bonjour,

Dim temps
Sub majHeure()
  Sheets("feuil1").[A1]=Now
  temps = Now + TimeValue("00:00:1")
  Application.OnTime temps, "majHeure"
End Sub

Sub auto_open()
  majHeure
End Sub

Sub auto_close()
  On Error Resume Next
  Application.OnTime temps, Procedure:="majHeure", Schedule:=False
End Sub

http://boisgontierjacques.free.fr/fichiers/OnTimeHeure.xls

JB

 

[MuscatMimi]

Re : Heure comme une Horloge dans une Cellule

Merci Boisgontier

Avec le code qui m'a été donné plus haut ça m'enpêchait de fermer mon classeur

Milles fois merci

 

[MuscatMimi]

Re : Heure comme une Horloge dans une Cellule

je viens d'essayer la macro heure dans cellule
mais ça fonctionne pas avec celle "Heure dans mon label" ,que j'ai déja dans mon usf

 

[BOISGONTIER]

Re : Heure comme une Horloge dans une Cellule

Voir PJ

JB

 

[MuscatMimi]

Re : Heure comme une Horloge dans une Cellule

Bonjour Boisgontier et le Forum

Merci pour ce dernier fichier

J'ai retranscrit ton code dans le classeur joint
par contre ,je ne comprends pas pourquoi
une fois dans l'Editeur Vba
je ne peux pas afficher mon Usf???

Bonne Journée

 

[BOISGONTIER]

Re : Heure comme une Horloge dans une Cellule

Bonjour,

A l'ouverture du fichier, appuyer sur la touche Maj pour empêcher l'exécution de auto_open().

JB

 

[Dull]

Re : Heure comme une Horloge dans une Cellule

Re vaucluse immo
Salut Jacques, Raja, Job75, Lepandre, le Forum

Petite astuce

Ouvre ton Projet VBA
Click Droit sur Userform1
Click sur Code

Bonne Journée

 

[MuscatMimi]

Re : Heure comme une Horloge dans une Cellule

Bonjour Boisgontier

Belle astuce fallait le savoir

Merci pour le temps que tu m'a consacré
Bonne journée

 

[MuscatMimi]

Re : Heure comme une Horloge dans une Cellule

Bonjour Boisgontier, et le Forum

Le code pour afficher l'heure dans un label, dans un Usf, ça fonctionne
idem si je met l'heure dans un label de l'Usf et dans une cellule

Gros blème, est que j'ai continu mon projet,et j'ai constaté , au stade ou j'en suis
avec le code ajouté, ça empéche la fermeture du classeur,enfin je crois que ça le ferme ,mais que ça l'ouvre de suite a nouveau

Il y a t'il astuce??

Merci a l'avance

 

[jeanpierre]

Re : Heure comme une Horloge dans une Cellule

Bonjour vaucluse immo, le fil,

La méthode OnTime présente les mêmes problèmes chez-moi. Si tu fermes, le fichier se réouvre... Genre de gadget à éviter.... surtout qu'il n'est pas primordial.

Bon WE tous.

Jean-Pierre