Macro automatique

Bonjour

J'ai une feuille nommée "HEURE D'ENVOI"

En cellule A19 j'ai la fonction =MAINTENANT()

Je souhaiterais que cette cellule s'active automatiquement toute les 10 secondes

Comme dois-je procéder ?

Merci de votre aide

Eric

Salut Erik,

une solution à tester avec Application.OnTime.

La macro se trouve en Module1 et est appelée à l'ouverture du classeur.

Pour le fun, j'ai mis un arrêt sous la forme d'une heure de fin en [A18].

Public Sub MacroAuto()
'
Dim dChrono As Date
'
With Worksheets("HEURE D'ENVOI")
    .Range("A19") = Format(Now, "hh:mm")
    dChrono = Now + TimeValue("00:00:10")
    If .Range("A18") > .Range("A19") Then Application.OnTime dChrono, "MacroAuto"
End With
'
End Sub

A+

Merci de ton aide

ca marche super comme je souhaitais

Très cordialement Eric