Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel afficher l'heure en temps réelle dans une cellule

afficher l'heure en temps réelle dans une cellule

7 réponses
Avatar
new teledisnet
Bonjour, j'aimerai afficher l'heure, min, secondes qui évoluent en temps
réel dans une cellule d'un tableau excel tout en continuant à travailler
dans ce tableau.
J'ai bien sûr trouvé une solution dans le forum mais il faut lancer l'heure
via un bouton et aussi l'arrêter via un bouton. Moi j'aimerai que l'heure
soit active dés l'ouverture du fichier et qu'elle reste en permanence.
Merci pour votre aide
Didiersee
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
isabelle
bonjour Didiersee,

met la macro dans
Private Sub Workbook_Open()
au lieu de la mettre dans
Private Sub CommandButton1_Click()

isabelle



Bonjour, j'aimerai afficher l'heure, min, secondes qui évoluent en temps
réel dans une cellule d'un tableau excel tout en continuant à travailler
dans ce tableau.
J'ai bien sûr trouvé une solution dans le forum mais il faut lancer l'heure
via un bouton et aussi l'arrêter via un bouton. Moi j'aimerai que l'heure
soit active dés l'ouverture du fichier et qu'elle reste en permanence.
Merci pour votre aide



Avatar
Pierre Fauconnier
Bonsoir

Private Sub Workbook_Open()
Do While True
Feuil1.[a1] = Now()
DoEvents
Loop

End Sub

Attention, l'U.C. est utilisée à 100% durant ce processus...

Cela convient-il?


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"new teledisnet" a écrit dans le message de
news:414b4d41$0$314$
Bonjour, j'aimerai afficher l'heure, min, secondes qui évoluent en temps
réel dans une cellule d'un tableau excel tout en continuant à travailler
dans ce tableau.
J'ai bien sûr trouvé une solution dans le forum mais il faut lancer
l'heure

via un bouton et aussi l'arrêter via un bouton. Moi j'aimerai que l'heure
soit active dés l'ouverture du fichier et qu'elle reste en permanence.
Merci pour votre aide
Didiersee




Avatar
didiersee
"Pierre Fauconnier" wrote in message news:...
Bonsoir

Private Sub Workbook_Open()
Do While True
Feuil1.[a1] = Now()
DoEvents
Loop

End Sub

Attention, l'U.C. est utilisée à 100% durant ce processus...

Cela convient-il?


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"new teledisnet" a écrit dans le message de
news:414b4d41$0$314$
Bonjour, j'aimerai afficher l'heure, min, secondes qui évoluent en temps
réel dans une cellule d'un tableau excel tout en continuant à travailler
dans ce tableau.
J'ai bien sûr trouvé une solution dans le forum mais il faut lancer
l'heure

via un bouton et aussi l'arrêter via un bouton. Moi j'aimerai que l'heure
soit active dés l'ouverture du fichier et qu'elle reste en permanence.
Merci pour votre aide
Didiersee


malheureusement non cette solution ne convient pas Pierre pcq il n'est


plus possible de travailler dans excel lorsque l'horloge fonctionne.
Voici le code avec bouton et ce code permet le fonctionnement de excel
même lorsque l'horloge est en service
code
----
Option Explicit
Public bStop As Boolean
--------------------------
Sub Start_Clock()
bStop = False


Application.OnTime Now + TimeValue("0:0:01"), "SetClock"
End Sub
----------------------------


Private Sub SetClock()
Range("A1").Value = Format(Now, "HH:MM:SS")


If bStop Then Exit Sub
Start_Clock
End Sub
---------------------------


Sub Stop_Clock()
bStop = True


End Sub
---------------------------



Voilà j'aimerai cette solution mais sans bouton, simplement que
l'horloge fonctionne à l'ouverture du fichier et que l'on puisse
utiliser excel normalement donc sans utiliser l'u.c à 100%.
J'ai bien sûr commencer par supprimer les boutons et placer le code
dans this workbook mais ça ne fonctionne pas il faut peut-être
d'autres instructions VBA que je ne connais malheureusement pas.
Merci pour votre aide.
Didiersee


Avatar
twinley
Bonjour,

je t'ai donné la solution dans l'autre fil.

--
à+twinley
"didiersee" a écrit dans le message de
news:
"Pierre Fauconnier" wrote in message
news:...

Bonsoir

Private Sub Workbook_Open()
Do While True
Feuil1.[a1] = Now()
DoEvents
Loop

End Sub

Attention, l'U.C. est utilisée à 100% durant ce processus...

Cela convient-il?


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"new teledisnet" a écrit dans le message de
news:414b4d41$0$314$
Bonjour, j'aimerai afficher l'heure, min, secondes qui évoluent en
temps



réel dans une cellule d'un tableau excel tout en continuant à
travailler



dans ce tableau.
J'ai bien sûr trouvé une solution dans le forum mais il faut lancer
l'heure

via un bouton et aussi l'arrêter via un bouton. Moi j'aimerai que
l'heure



soit active dés l'ouverture du fichier et qu'elle reste en permanence.
Merci pour votre aide
Didiersee


malheureusement non cette solution ne convient pas Pierre pcq il n'est


plus possible de travailler dans excel lorsque l'horloge fonctionne.
Voici le code avec bouton et ce code permet le fonctionnement de excel
même lorsque l'horloge est en service
code
----
Option Explicit
Public bStop As Boolean
--------------------------
Sub Start_Clock()
bStop = False


Application.OnTime Now + TimeValue("0:0:01"), "SetClock"
End Sub
----------------------------


Private Sub SetClock()
Range("A1").Value = Format(Now, "HH:MM:SS")


If bStop Then Exit Sub
Start_Clock
End Sub
---------------------------


Sub Stop_Clock()
bStop = True


End Sub
---------------------------



Voilà j'aimerai cette solution mais sans bouton, simplement que
l'horloge fonctionne à l'ouverture du fichier et que l'on puisse
utiliser excel normalement donc sans utiliser l'u.c à 100%.
J'ai bien sûr commencer par supprimer les boutons et placer le code
dans this workbook mais ça ne fonctionne pas il faut peut-être
d'autres instructions VBA que je ne connais malheureusement pas.
Merci pour votre aide.
Didiersee




Avatar
twinley
Je répète, il arrive que des fils ne soient pas accessible.

C'est là
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnexcl2k2/html/odc_xlrtdbuild.asp
Je l'ai fait et ça marche. Il te faut récupérer une dll qui est dans l'exe à
DL.
Mais faut 2002 mini...


--
à+twinley
"didiersee" a écrit dans le message de
news:
"Pierre Fauconnier" wrote in message
news:...

Bonsoir

Private Sub Workbook_Open()
Do While True
Feuil1.[a1] = Now()
DoEvents
Loop

End Sub

Attention, l'U.C. est utilisée à 100% durant ce processus...

Cela convient-il?


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"new teledisnet" a écrit dans le message de
news:414b4d41$0$314$
Bonjour, j'aimerai afficher l'heure, min, secondes qui évoluent en
temps



réel dans une cellule d'un tableau excel tout en continuant à
travailler



dans ce tableau.
J'ai bien sûr trouvé une solution dans le forum mais il faut lancer
l'heure

via un bouton et aussi l'arrêter via un bouton. Moi j'aimerai que
l'heure



soit active dés l'ouverture du fichier et qu'elle reste en permanence.
Merci pour votre aide
Didiersee


malheureusement non cette solution ne convient pas Pierre pcq il n'est


plus possible de travailler dans excel lorsque l'horloge fonctionne.
Voici le code avec bouton et ce code permet le fonctionnement de excel
même lorsque l'horloge est en service
code
----
Option Explicit
Public bStop As Boolean
--------------------------
Sub Start_Clock()
bStop = False


Application.OnTime Now + TimeValue("0:0:01"), "SetClock"
End Sub
----------------------------


Private Sub SetClock()
Range("A1").Value = Format(Now, "HH:MM:SS")


If bStop Then Exit Sub
Start_Clock
End Sub
---------------------------


Sub Stop_Clock()
bStop = True


End Sub
---------------------------



Voilà j'aimerai cette solution mais sans bouton, simplement que
l'horloge fonctionne à l'ouverture du fichier et que l'on puisse
utiliser excel normalement donc sans utiliser l'u.c à 100%.
J'ai bien sûr commencer par supprimer les boutons et placer le code
dans this workbook mais ça ne fonctionne pas il faut peut-être
d'autres instructions VBA que je ne connais malheureusement pas.
Merci pour votre aide.
Didiersee




Avatar
new teledisnet
Merci twinley mais c'est au boulot, et le patron ne met que Excel 2000 à ma
disposition. Dommage.
Didiersee
"twinley" <twinleym(at)hotmail.com> a écrit dans le message de news:

Je répète, il arrive que des fils ne soient pas accessible.

C'est là

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnexcl2k2/h

tml/odc_xlrtdbuild.asp
Je l'ai fait et ça marche. Il te faut récupérer une dll qui est dans l'exe
à

DL.
Mais faut 2002 mini...


--
à+twinley
"didiersee" a écrit dans le message de
news:
"Pierre Fauconnier" wrote in message
news:...

Bonsoir

Private Sub Workbook_Open()
Do While True
Feuil1.[a1] = Now()
DoEvents
Loop

End Sub

Attention, l'U.C. est utilisée à 100% durant ce processus...

Cela convient-il?


--
Pierre Fauconnier ()
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"new teledisnet" a écrit dans le message de
news:414b4d41$0$314$
Bonjour, j'aimerai afficher l'heure, min, secondes qui évoluent en
temps



réel dans une cellule d'un tableau excel tout en continuant à
travailler



dans ce tableau.
J'ai bien sûr trouvé une solution dans le forum mais il faut lancer
l'heure

via un bouton et aussi l'arrêter via un bouton. Moi j'aimerai que
l'heure



soit active dés l'ouverture du fichier et qu'elle reste en
permanence.




Merci pour votre aide
Didiersee


malheureusement non cette solution ne convient pas Pierre pcq il n'est


plus possible de travailler dans excel lorsque l'horloge fonctionne.
Voici le code avec bouton et ce code permet le fonctionnement de excel
même lorsque l'horloge est en service
code
----
Option Explicit
Public bStop As Boolean
--------------------------
Sub Start_Clock()
bStop = False


Application.OnTime Now + TimeValue("0:0:01"), "SetClock"
End Sub
----------------------------


Private Sub SetClock()
Range("A1").Value = Format(Now, "HH:MM:SS")


If bStop Then Exit Sub
Start_Clock
End Sub
---------------------------


Sub Stop_Clock()
bStop = True


End Sub
---------------------------



Voilà j'aimerai cette solution mais sans bouton, simplement que
l'horloge fonctionne à l'ouverture du fichier et que l'on puisse
utiliser excel normalement donc sans utiliser l'u.c à 100%.
J'ai bien sûr commencer par supprimer les boutons et placer le code
dans this workbook mais ça ne fonctionne pas il faut peut-être
d'autres instructions VBA que je ne connais malheureusement pas.
Merci pour votre aide.
Didiersee








Avatar
docm
Bonjour new teledisnet

'----------------------
'Code à mettre dans ThisWorkBook
Dim bstop As Boolean
Dim HeureProchainAppel

Private Sub Workbook_BeforeClose(Cancel As Boolean)
bstop = True
HorlogeEnA1
End Sub

Private Sub Workbook_Open()
HorlogeEnA1
End Sub

Sub HorlogeEnA1()
If bstop = True Then
'Annuler le paramétrage du OnTime programmé précédemment.
Application.OnTime EarliestTime:=HeureProchainAppel, _
Procedure:="ThisWorkbook.HorlogeEnA1", Schedule:úlse
Exit Sub
End If

Sheets("Feuil1").Range("A1").Value = Format(Now, "HH:MM:SS")

'Nouveau paramétrage de OnTime
HeureProchainAppel = Now + TimeValue("00:00:10")
Application.OnTime HeureProchainAppel, "ThisWorkbook.HorlogeEnA1", False

End Sub
'----------------------

Amicalement

"new teledisnet" wrote in message
news:414b4d41$0$314$
Bonjour, j'aimerai afficher l'heure, min, secondes qui évoluent en temps
réel dans une cellule d'un tableau excel tout en continuant à travailler
dans ce tableau.
J'ai bien sûr trouvé une solution dans le forum mais il faut lancer
l'heure

via un bouton et aussi l'arrêter via un bouton. Moi j'aimerai que l'heure
soit active dés l'ouverture du fichier et qu'elle reste en permanence.
Merci pour votre aide
Didiersee