Discussion :

[ninaleo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Bonjour,

Vba n'est pas multitâche! Quand tu fais une saisie dans un cellule ton timer est out!

Au lancement de ton timer initialises l'heure du système dans une variable public
A chaque cycle compares le temps écoulé et incrément d'autant ta cellule, tu rattraperas le temps perdu et enfin réinitialises ta variable al l'heure du système.

[ninaleo]

Merci beaucoup pour votre réponse

Très bonne soirée

Laurent CUSSAC