Bonsoir;
après avoir navigué sur le site j'ai appris quelque chose de bon mais l'idée de changer un peu la donne m'a traverser l’esprit
j'ai donc bidouillé cela pour le lier a un bouton associé a ladite macro, en revanche au final ça n'affiche que l'heure de l’exécution , alors quelqu'un pourrait m'aider SVP?
Sub Horloge()
Dim cellule As String
Dim blnDeuxPoint As Boolean
Dim bstop As Boolean
cellule = InputBox("ou ca?")
On Error GoTo Encaserreur
If bstop = True Then
Application.OnTime EarliestTime:=HeureProchainAppel, Procedure:="Horloge", Schedule:=False
Exit Sub
End If
If blnDeuxPoint = True Then
ActiveSheet.Range(cellule).Activate
ActiveSheet.Range(cellule).Value = Format(Now, "HH:MM:SS")
Else
blnDeuxPoint = False
ActiveSheet.Range(cellule).Activate
ActiveSheet.Range(cellule).Value = Format(Now, "HH:MM SS")
End If
Encaserreur:
Exit Sub
HeureProchainAppel = Now + TimeValue("00:00:01")
Application.OnTime HeureProchainAppel, "Horloge", False
End Sub
PS; je suis novice donc si j'ai fait quelque chose qu'il faut pas merci de m’orienter vers le droit chemin en expliquant l'erreur