Affichage De L'heure

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

bingo57

XLDnaute Junior
je ne sais pas ou mettre donc je poste ici...
c'est pour avoir l'heure dans excel il se met dans la case A1



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:=False
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

a la place de TimeValue "00:00:10...vous pouvez mettre 1
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Problème de date
Réponses
5
Affichages
167
Retour