Mise à jour si 30 secondes écoulées

[Airone784]

Bonjour,
Je vous explique mon besoin pour un futur fichier.

J'ai une feuille excel avec de simples formules. Si je modifie une cellule, je stocke l'heure de changement de la cellule. Si je modifie une autre cellule, j'enregistre de nouveau l'heure précédemment stockée et stocke la nouvelle heure de modification.
Je souhaiterais que si je ne fais que déplacer mon curseur sur la feuille et qu'il s'est écoulé plus de 30sec sans modification sur la feuille, les formules se recalculent automatiquement.

Dans mon worksheet.selectionchange, je n'arrive pas à faire comprendre à excel que si la différence entre l'heure actuelle - l'heure de la dernière modification > 30secondes, je dois recalculer.

De plus, comment stocker l'heure de modification??
Merci d'avance pour votre aide. 😉

 

[phlaurent55]

Re : Mise à jour si 30 secondes écoulées

Bonjour Airone,

en supposant que l'heure des changement des cellules soit stocké en A1, ce code devrait fonctionner

Private Sub Worksheet_Change(ByVal Target As Range)
If [A1] + TimeValue("00:00:30") < Now Then
    Application.Calculate
    [A1] = Now
End If
End Sub

à+
Philippe

 

[Airone784]

Re : Mise à jour si 30 secondes écoulées

Bonjour phlaurent55,

Avec du retard mais je n'étais pas là alors je ne pouvais faire mieux, je te remercie pour ta bonne solution.
Sympa pour le coup de main.

Au plaisir.