Discussion :

[escalopepane]

Bonjour à tous,

J'aimerai, faire clignoter la cellule A1 à un intervalle de 500ms, pour ça j'utilise les fonction settimer et killtimer de l'API:

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
23
24
25
26
27
28
Public Declare Function SetTimer Lib "user32" ( _
ByVal HWnd As Long, ByVal nIDEvent As Long, _
ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
 
Public Declare Function KillTimer Lib "user32" ( _
ByVal HWnd As Long, ByVal nIDEvent As Long) As Long
 
Public TimerID As Long, TimerSeconds As Single, tim As Boolean
Dim Counter As Long
 
Sub StartTimer()
    TimerSeconds = 0.5
    TimerID = SetTimer(0&, 0&, TimerSeconds * 1000&, AddressOf TimerProc)
End Sub
 
Sub EndTimer()
    On Error Resume Next
    KillTimer 0&, TimerID
End Sub
 
Sub TimerProc(ByVal HWnd As Long, ByVal uMsg As Long, _
ByVal nIDEvent As Long, ByVal dwTimer As Long)
    If Sheet1.Range("A1").Interior = xlNone Then
        Sheet1.Range("A1").Interior = 7
    Else
        Sheet1.Range("A1").Interior = 0
    End If
End Sub

Des que je lance mon programme, il plante et je ne comprends pas pourquoi, j'ai l'impression de declarer et appeler mes fonction API correctement pourtant..
Si quelqun à une idée de ou vient mon soucis, je suis preneur.

Meri

Aussi je vois une erreur de ma part, ligne 26 j'ai mis

Code :

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

Sheet1.Range("A1").Interior = 0

au lieu de

Code :

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

Sheet1.Range("A1").Interior = xlnone

Mais bon, ça ne marche toujours pas.

[Invité]

Un exemple fonctionnel:

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
23
24
25
26
27
28
29
Public Declare Function SetTimer Lib "user32" ( _
    ByVal HWnd As Long, _
    ByVal nIDEvent As Long, _
    ByVal uElapse As Long, _
    ByVal lpTimerFunc As Long) As Long
 
Public Declare Function KillTimer Lib "user32" ( _
    ByVal HWnd As Long, _
    ByVal nIDEvent As Long) As Long
 
Public TimerID As Long
 
Sub StartTimer()
    TimerID = SetTimer(0&, 0&, 500&, AddressOf TimerProc)
End Sub
 
Sub EndTimer()
    On Error Resume Next
    KillTimer 0&, TimerID
End Sub
 
Sub TimerProc(ByVal HWnd As Long, ByVal uMsg As Long, _
        ByVal nIDEvent As Long, ByVal dwTimer As Long)
    If Worksheets("Feuil1").Range("A1").Interior.ColorIndex = xlNone Then
        Worksheets("Feuil1").Range("A1").Interior.ColorIndex = 7
    Else
        Worksheets("Feuil1").Range("A1").Interior.ColorIndex = xlNone
    End If
End Sub

Attention, il faut adapter le nom de la feuille.

[escalopepane]

Super merci

Par contre je constate que c'est quand même assez delicat d'utiliser le timer. Si je touche la feuille en ecriture pendant le fonctionnement du timer ça plante par exemple. Il y a t-il un moyen de contourner ce problème?

[Invité]

Si tu veux un taux de rafraichissement inférieur à la seconde tu est obligé de passer par les API et tu ne peux pas passer en 'EDIT MODE'.

Sinon il faut regarder du coté de la fonction 'Application.OnTime' mais le passage en 'EDIT MODE' va mettre en pause le clignotement.

[Marc-L]

Bonjour.

Si tu veux un taux de rafraichissement inférieur à la seconde tu est obligé de passer par les API et tu ne peux pas passer en 'EDIT MODE'.

Sinon il faut regarder du coté de la fonction 'Application.OnTime' mais le passage en 'EDIT MODE' va mettre en pause le clignotement.

Pas obligé, je l'ai fait pour diverses animations via une boucle de pause avec les fonctions VBA Timer & DoEvents …

[escalopepane]

A ok, c'est bon a savoir. Et dernière petite question, si je veux utiliser un timer dans un userform, est ce que je peux?

[Invité]

Oui c'est possible.

[escalopepane]

Et ducoup si on modifie le userform en ecriture, cela fait planter le programme aussi ou ça passe?

[Invité]

Fais le test de ton côté parce que je n'ai jamais essayé.