[déplacé VB6 - VBA] Blocage horloge

Question

excel 2007-windows xp
J'ai un certain nombre de formules qui sont liée à une horloge en vb qui se met à jour toutes les secondes.
A minuit tout mes calculs et l'horloge s'arrêtent!
Il faut que je redémarre manuellement.
Il a t-il une solution pour éviter ce PB?

ucfoutu · Answer

Bonsoir, GBRACINGteam,
1)
excel 2007-windows xp
J'ai un certain nombre de formules 
et tu es ici sous :
Accueil > Forum > Visual Basic 6 > Divers
Il n'y aurait pas comme un malaise, là ?
VB6 ne sait même pas ce que pourrait être une 'formule" !
2) unbe réponse viendra peut-être lorsque :
---a) la discussion aura été déplacée là où elle aurait d^yu être ouverte (tu as gagné du temps ... tiens... à ne pas observer cette règle ! ...
---b) tu nous auras montré ces formules Excel (même pas VBA) dont il s'agit ... (c'est tellement évident !) 

____________________
Très intéressante fable, L'OISELEUR, L'AUTOUR ET L'ALOUETTE !
Cliquer sur "Réponse acceptée" (en bas d'une solution avérée adéquate) rendra service à d'autres. PENSEZ-Y.

Renfield · Answer

si tu utilises la fonction Timer dans ta macro, ne cherche pas plus loin ...

elle est remise à 0 a minuit


Renfield - Admin CodeS-SourceS - MVP Visual Basic

GBRACINGteam · Answer

Désolé pour l'erreure de forum, c'est la première fois que je l'utilise...
Merci pour cette info. Mais que doit-on utiliser à la place de TIMER pour régler ce PB?

PCPT · Answer

déplacé

BONJOUR

on devine ton code pour le refaire entièrement et te le donner?

il n'y a pas de timer en VBA

tu utilises peut-être la fonction TIMER, comme Renfield l'a suggérer

on peut te proposer des solution (timer VB6 à intégrer en ocx, timer par API, autre), mais ceci dépend du code qu'on ne connais pas

on revient donc à ma première question (et à celle d'ucfoutu)

ps : avant de répondre, merci de consulter ceci 
http://www.vbfrance.com/reglement.aspx
http://www.vbfrance.com/1erevisite.aspx


[hr]

GBRACINGteam · Answer

Private Sub Workbook_BeforeClose(Cancel As Boolean)
bstop = True
Timer
End Sub
*******************************
Private Sub Workbook_Open()
Timer
End Sub
********************************
Sub Timer()
If bstop = True Then
Application.OnTime EarliestTime:=HeureProchainAppel, _
Procedure:="ThisWorkbook.TIMER", Schedule:=False
Exit Sub
End If

Sheets("1").Range("A1").Value = Format(Now, "HH:MM:SS")

HeureProchainAppel = Now + TimeValue("00:00:01")
Application.OnTime HeureProchainAppel, "ThisWorkbook.TIMER", False

End Sub
********************************
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

************************************


Exemple macro liée au TIMER:

Temps restant
Heure de FIN - TIMER

PCPT · Answer

et toi tu ré-ouvres un thread, en VB.NET cette fois-ci (pour changer un peu).....


cool....
supprimé

[déplacé VB6 -> VBA] Blocage horloge

6 réponses

Votre réponse

Discussions similaires