Cellule heure

Bonjour à tous,

Je me permets de vous demander après une recherche sur la cellule heure automatique.

Dans une macro j'ai mis la formule : range(A1")= date et comment faire pour la formule pour avoir de l'heure.

Merci de me tenir informer.

Amicalement

Noel

Bonjour

Test cela pour l'heure

   ActiveCell.FormulaR1C1 = Format(Time, "Hh:mm:ss")

et date et heure

ActiveCell.FormulaR1C1 = Now

Re,

Bonjour CB60,

J'ai pris note de ta formule.

Après avoir installé dans une macro à ma stupéfaction c'est de le voir dans mon cas dans la cellule G9.

Alors j'ai bien compris R1C1 c'est bien la cellule "A1".

Confirme moi cela.

Merci d'avance

Amicalement

Noel

bonjour

pour faire simple

1) clic droit sur l'onglet de la feuille

2) visualiser le code

3) selectionner "worksheet" puis dans declaration " change" et non pas selection_change

4) saisir range("a1").value= now

5) tu retournes sur ta feuille >tu cliques sur a1 > il va probablement falloir dimensionner la cell pour eviter les #####

voila ,j'espere que cela t'aide

re

Pour l'heure en A1, bien sur à mettre dans ta macro existante

   range("A1").FormulaR1C1 = Format(Time, "Hh:mm:ss")
ou
   range("A1").value = Format(Time, "Hh:mm:ss")

et date et heure

range("A1").FormulaR1C1 = Now
ou
range("A1").value = Now

Bonjour à tous,

Bonjour CB60 et Tulipe,

Ca marche. pour que j'ai l'heure il faut enregistrer à chaque fois car j'ai mis le code dans un bouton enregistrer.

Pensez-vous que quelqu'un sur le forum a pu se pencher sur un réveil qui tournerai en continue ou éventuellement une cellule qui donnerai l'haure en continue.

Merci de votre aide.

Amicalement

Noel

Bonjour Noel

La cellule qui donne l'heure

Cordialement

Bonjour à tous,

Bonjour Amadeus,

J'espère que tous les forumeurs ont passé un agréable WE aec l'heure d'été qui est tombée. Cela nous fait que 2 H de décalage.

Amadeus, j'ai bien reçu l'exemple de l'horloge.xls. Je l'ai appliqué à mon projet mais le hic c'est qu'il ralenti mon système et mon curseur se met à clignoter. Mais ça marche.

Merci de ton aide

Amicalement

Noel

Bonjour Amadeus,

Je m'excuse, ce fil a été réglé.

Tu fais bien de m'avertir

@+

Amicalement

Noel