Comment lancer un recalcul (F9) automatique toutes les N secondes ?

[Lau974]

Bonjour,

J'ai un dossier Excel avec plusieurs feuilles fonctionnant avec la touche F9 ou un un bouton que j'ai inséré au milieu de chaque document. On clique dessus et HOP, le recalcul est fait.

Les personnes qui utilisent ce document ont une motricité limitée.

Il faudrait que le changement se fasse sans click ou appui sur une touche, de façon automatique (toutes les 5 secondes par exemple), comment un diaporama (avec PAUSE sur la barre d'espace).

Bonne soirée à tous.

LAU974

 

[BOISGONTIER]

Re : Comment lancer un recalcul (F9) automatique toutes les N secondes ?

Bonjour,

Dim temps
Sub majHeure()
 ThisWorkbook.Sheets("feuil1").[A1] = Now
 ThisWorkbook.Sheets("feuil1").Calculate
 temps = Now + TimeValue("00:00:5")
 Application.OnTime temps, "majHeure"
End Sub

Sub auto_open()
   majHeure
End Sub

Sub auto_close()
 On Error Resume Next
 Application.OnTime temps, Procedure:="majHeure", Schedule:=False
End Sub

JB

 

[Lau974]

Re : Comment lancer un recalcul (F9) automatique toutes les N secondes ?

Merci beaucoup,

Je vous informe de la suite.

Lau974

 

[Lau974]

Re : Comment lancer un recalcul (F9) automatique toutes les N secondes ?

Bonjour,

Je n'arrive pas à insérer cette formule dans ma feuille de calcul.
Je pensais qu'il fallait la recopier à la place de la formule que j'avais installer pour un bouton.
Lorsque je veux changer de macro pour le bouton, je trouve 2 macros autoopen et autoclose.
J'aimerais prendre les deux car, je clique sur le bouton et le calculate (F9) commence, je clique encore et le calculate s'arrête. ce serai l'idéal.
Est-ce possible?

 

[Lau974]

Re : Comment lancer un recalcul (F9) automatique toutes les N secondes ?

installée ... serait ...