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

[QUOTE] 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

[Menhir]

Essaye en dissociant les opérations de comptage et d'affichage.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Compte As Long
 
Sub DemarreTimer()
        Compte = Range("B1").Value
        Call compteur()
        Call Affiche()
End Sub
 
Sub compteur()
       Compte = Compte + 1
       Application.OnTime Now + TimeValue("00:00:01"), "compteur"
End Sub
 
Sub Affiche()
       Range("B1").Value = Compteur
       Application.OnTime Now + TimeValue("00:00:01"), "Affiche"
End Sub
 
Sub ArretTimer()
        Application.OnTime Now + TimeValue("00:00:01"), "compteur", Schedule:=False
        Application.OnTime Now + TimeValue("00:00:01"), "Affiche", Schedule:=False
End Sub