Timing avec calcul auto toute les 10 secondes

[Jilde]

Bonjour les gens !!

Pour des formations de 4 heures avec un rythme soutenu, j'ai des modules qui durent de 5 mn à 30 mn.

J'ai donc créer un petit fichier Excel avec un timing sur une 4 heures.
Mon fichier m'affiche donc l'heure [=maintenant()] dans une cellule, et, en fonction de celle-ci, me met, par le biais de mise en forme conditionnelle :
- en rouge le module qui vient de se terminer,
- en vert le module qui est en cours,
- en bleu le prochain module.
Je m'en sert pour respecter au mieux mon timing et ainsi balayer tous les points de ma formation dans les délais.

Mon problème c'est que je suis obligé de faire [F9] régulièrement pour mettre à jour le tableau.

Donc je cherche juste à mettre, à l'ouverture du fichier, une routine qui me fasse se calcul toute les 5 ou 10 secondes.

Doit pas être bien compliqué si ?

Merci d'avance !!

 

[jetted]

Re : Timing avec calcul auto toute les 10 secondes

allo, tu peux essayer cette methode

Sub Workbook_Open()
    newhour = Hour(Now())
    newminute = Minute(Now())
    newsecond = Second(Now()) + 10
    waittime = TimeSerial(newhour, newminute, newsecond)
    Application.Wait waittime
    Application.CalculateFull    ' ou Application.SendKeys "%^{F9}"
End Sub

 

[Jilde]

Re : Timing avec calcul auto toute les 10 secondes

Merci jetted !

Ton code fonctionne mais une seul fois à l'ouverture ...

Je vais essayer de mettre une boucle "Do ... Loop".

 

[jetted]

Re : Timing avec calcul auto toute les 10 secondes

mon erreur, essaie ceci

Sub Workbook_Open()
    Call RefreshData
End Sub

Sub RefreshData()
       Application.OnTime Now + TimeValue("00:00:10"), "RefreshData"
       Application.CalculateFull 
End Sub

 

[Jilde]

Re : Timing avec calcul auto toute les 10 secondes

Bon, j'ai rajouté un "Do ... Loop" tout bete :

Private Sub workbook_open()
    Do While Now() < Now() + 10 'oui je sais, c'est pas terrible mais ça marche !
        newhour = Hour(Now())
        newminute = Minute(Now())
        newsecond = Second(Now()) + 10
        waittime = TimeSerial(newhour, newminute, newsecond)
        Application.Wait waittime
        Application.CalculateFull    ' ou Application.SendKeys "%^{F9}"
    Loop
End Sub

Par contre, il me reste deux problèmes :
1. J'ai le sablier qu is'affiche en permanence
2. Il faudrait que je puisse sortir proprement de la boucle avec [Echap] sans provoquer un bug ...

 

[jetted]

Re : Timing avec calcul auto toute les 10 secondes

Jilde

Est ce que mon nouveau code a solutionné ton probleme?

 

[Jilde]

Re : Timing avec calcul auto toute les 10 secondes

Est ce que mon nouveau code a solutionné ton probleme?

Ben j'étais en train de tester, mais il me met systématiquement un message d'eereur :
Impossible de trouver la macro "C:\...\Timing.xls'RefreshData'

Je piges pas pourquoi ...

 

[jetted]

Re : Timing avec calcul auto toute les 10 secondes

bizarre j'ai excel 2003 et le tout fonctionne normalement
As-tu essayer de fermer excel et re-ouvrir ton document?

 

[Jilde]

Re : Timing avec calcul auto toute les 10 secondes

Oui, j'ai fermé Excel mais ça change rien, et je suis aussi sur Excel 2003 (SP3) ...(

 

[jetted]

Re : Timing avec calcul auto toute les 10 secondes

Fais sure que le nom de la macro "RefreshData" est bien orthographier aux 3 endroits
copie et colle le code (ci-joint) dans ton module, sauvegarde le document, ferme le document et re-ouvre le document et cela devrait fonctionne

Sub auto_Open()
    Call RefreshData
End Sub

Sub RefreshData()
       Application.OnTime Now + TimeValue("00:00:10"), "RefreshData"
       Application.CalculateFull 
End Sub

 

[Jilde]

Re : Timing avec calcul auto toute les 10 secondes

Bah ouais, sur ... Déjà le précédent code, j'ai fait un copier coller.
Et là pareil ...
Seule différence, c'est qu'avec "autpen()", y se passe rien du tout, nada, queud'chic...
Et avec "WorkBook_Open", ça bug ...

J'ai essayer de changer le nom "RefreshData" en "Rafraichir" histoire d'être sur qu'il y ai pas un conflit avec un autre truc qui s'appellerait "RefreshData", mais ça n'a rien changé ...

Mystère et boule de pétanque ...

 

[Jilde]

Re : Timing avec calcul auto toute les 10 secondes

YEEESSSSSS !!!

En fait, le bug venait du fait que je mettais tout dans le code de "ThisWorkbook" !
Il a suffit que je crée un module pour y mettre la macro RefreshData pour que ça marche !

Merci bien jetted !!

 

[jetted]

Re : Timing avec calcul auto toute les 10 secondes

J'ai joint mon fichier enleve le msgbox une fois que tu as fini de tester

 

[Jilde]

Re : Timing avec calcul auto toute les 10 secondes

Bah oui, suffisait de couper l'machin ...

Merci encore jetted !