Une petite horloge
Bonjour a tous et toutes, Forum bonjour,
voila j'ai vu sur le net qu'on pouvais faire clignoter les deux premiers " : " de gauche, donc si quelqu'un svp saurait faire ca, je suis preneur, et merci bien a vous
REMISE a l'heure toutes 20 secondes, le creneau me va bien
'--- CODE HORLOGE PERMANENTE DANS CELLULE EN TEMPS REEL ThisWorkBook ---
Dim bstop As Boolean
Dim HeureProchainAppel
Private Sub Workbook_BeforeClose(Cancel As Boolean)
bstop = True
HorlogeEnC1
End Sub
Private Sub Workbook_Open()
HorlogeEnC1
End Sub
Sub HorlogeEnC1()
If bstop = True Then
'Annuler le paramétrage du OnTime programmé précédemment
Application.OnTime EarliestTime:=HeureProchainAppel, _
Procedure:="ThisWorkbook.HorlogeEnC1", Schedule:=False
Exit Sub
End If
Sheets("Compte").Range("C1").Value = Format(Now, "HH:MM:SS")
'Nouveau paramétrage de OnTime ici 20 secondes
HeureProchainAppel = Now + TimeValue("00:00:20")
Application.OnTime HeureProchainAppel, "ThisWorkbook.HorlogeEnC1", False
End Sub Merci et Bonne apres midi a vous tous
Raymond
Bonjour Eliot,
tu pourrais remplacer la ligne qui suit
Sheets("Compte").Range("C1").Value = Format(Now, "HH:MM:SS") par ce code
If blnDeuxPoint Then
Sheets("Compte").Range("C1").Value = Format(Now, "HH:MM:SS")
blnDeuxPoint = False
Else
Sheets("Compte").Range("C1").Value = Format(Now, "HH:MM SS")
blnDeuxPoint = True
End Ifbien sur il faut que l'intervalle soit de 1 seconde et non 20, sinon ça n'a pas de sens. En espérant que ça peut t'aider.
Bonsoir Math
Merci d'avoir repondu c'est sympa,
par contre petit souci, erreur de variable non definie, alors j'ai mis
Dim blnDeuxPoint 'ne sais pas si c'est bon,dit moi svp ??
regler temps a 1 seconde, bien sur
ca marche pas l'heure se balade dans la cellule de droite a gauche sans arret et ca clignote pas
Voila te dit a plus tard, " ne perd pas une seconde "; svp NON je déconne
En tout cas merci bonne soiree
Raymond
Rebonjour Eliot
je t'envoie le fichier où j'ai testé ton code.
https://www.excel-pratique.com/~files/doc/Testy.xls
La variable doit être définie comme suit
Dim blnDeuxPoint as BooleanPour ce qui est de l'heure qui se balade de droite à gauche, regle l'alignement de ta cellule et tu n'auras plus de problème,
A la prochaine
Bonsoir Math, forum
Merci, Merci ca me plait je l'ai incorporer a mon programme, tout va bien
Question: pendant que j'y pense svp
comment on met le fond de l'ecran d'une couleur ou autre en VBA (tout le fond de l'ecran) faut qu'on voit excel quand meme
merci et ne soit pas en retard pour le souper (horloge) hihihihi
Salut bonne soirée a toi
Raymond
Qu'est-ce que tu veux colorer au juste ?
Re Math
Juste etre sur que le fond de l'ecran est blanc, j'ai un tableau de compta simple
avec une barre de repere pour les lignes et si le fond n'est pas imperativement blanc
quand je double clic ma barre ne fonctionne plus donc fond blanc ca marche
c'est tout merci bien, bonne soiree a toi, te laisse je vais etre a la bourre avec une horloge qui clignote c'est bien moi ca
Merci Math
a plus tard
Raymond
merci pour tout les intervenants a ce sujet; j'ai eu l'idée de modifier un peut l’horloge mais le résultat n'est pas concluant
quelqu'un pourrai-t’il m'aider ?
voila ce que moi j'ai bidouiller
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
'Annuler le paramétrage du OnTime programmé précédemment
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
'Nouveau paramétrage de OnTime ici 01 secondes
HeureProchainAppel = Now + TimeValue("00:00:01")
Application.OnTime HeureProchainAppel, "Horloge", False
End Sub
PS; je suis novice donc si j'ai fait du n'import quoi aidez moi a m'ameliorer, MERCI