calcul automatique à intervalle régulier dans excel

Bonjour.
Dans "thisworkbook" :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

'arrêt de l'exécution périodique à la fermeture du classeur

On Error Resume Next

Application.OnTime Heure, "Calcul", , False

End Sub


Private Sub Workbook_Open()

'démarrage de l'exécution de l'exécution périodique à l'ouverture du
classeur

Application.OnTime Now + TimeValue("00:01:00"), "Calcul"

End Sub



Dans un module :



Public Heure As Date

Sub Calcul()

Heure = Now + TimeValue("00:01:00")

Application.OnTime Heure, "Calcul"

Application.Calculate

End Sub



Cordialement.
Daniel
"darckfred" <darckfred@discussions.microsoft.com> a écrit dans le message de
news: DC8CFB1D-D051-47FC-B0C4-A609FD3E9E5E@microsoft.com...

dans une feuille de calcul excel, j'aimerai lancer le calcul (fonction F9)
uniquement à une intervalle de temps donnée par exemple toutes les 2 ou 3
secondes

--
____
( O | O )
--
_oooO_ JLuc _Oooo_

O-O