clignotement d'un togglebutton

bonjour

voila ce que j'aimerai faire

j'ai sur un formulaire un togglebuton qui en position false est rouge , un fois en position true il est vert jusque la rien de compliquer cela me sert simplement de visuel
mais j'aimerai si c'est possible qu'une fois en position true et il clignote en vert
pour avoir un effet visuel plus attirant pour l'utilisateur

je précise que se togglebutton n'a aucune autre fonction que du visuel donc il ne lance aucun autre code

ou bien une autre solution


merci

Bonjour,

Une piste avece le codes ci-dessous.
J'ai construit un UserForm1, un ToggleButton1 et un ToggleButton2.

Copiez le code suivant dans la fenêtre de code du UserForm

Code:

---

1 2 3 4 5 6 7 8

Private Sub UserForm_Initialize() Call RunTimer End Sub   Private Sub UserForm_Terminate() Call StopTimer End Sub

---

Copiez le code suivant dans un module standard

Code:

---

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 30 31 32

Dim bool As Boolean   Sub RunTimer() Application.OnTime Now + TimeValue("00:00:01"), "MyTimer" End Sub   Sub StopTimer() Application.OnTime Now + TimeValue("00:00:01"), "MyTimer", , False End Sub   Sub MyTimer() With UserForm1.ToggleButton1 .Value = Not .Value If .Value = True Then .BackColor = vbGreen Else .BackColor = vbRed End If End With   '/// ou alors /// With UserForm1.ToggleButton2 bool = Not bool If bool Then .BackColor = vbGreen Else .BackColor = vbRed End If End With Call RunTimer End Sub

---

Cordialement.

PMO
Patrick Morange