Timer programmé en VBA qui s'arrête lorsqu'une cellule est activée
Bonjour tout le monde
Je me permets de vous contacter pour savoir si l'un de vous aurait une solution pour mon problème que voici :
J'ai programmé un timer qui incrémente chaque seconde la cellule B1 d'une feuille excel ( c'est juste un test ) : voici le code
Code:
1
2
3
4
5
6
7
8
9
10
11
12
| Sub DemarreTimer()
Application.OnTime Now + TimeValue("00:00:01"), "compteur"
End Sub
Sub compteur()
Range("B1").Value = Range("B1") + 1
DemarreTimer
End Sub
Sub ArretTimer()
Application.OnTime Now + TimeValue("00:00:01"), "compteur", Schedule:=False
End Sub |
La procédure DemarreTimer est appelé lorsqu'on clique sur un bouton placé sur la feuille excel, de même que la procédure ArretTimer.
A l'exécution, tout se passe correctement sauf si on active une cellule pour y saisir du texte, la cellule B1 n'est plus modifiée. Et dès qu'on quitte la cellule où l'on a saisi du texte, la cellule B1 est à nouveau actualisée.
Est-ce possible de concevoir un timer qui fonctionne tout le temps, même si on saisit du texte dans une autre cellule ?
Je vous remercie de m'avoir lu et merci d'avance pour toute information qui serait susceptible de m'aider ;-)
Je vous souhaite une agréable fin de journée
Laurent CUSSAC
