Discussion :

[revemane]

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

[PMO2017]

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 :

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

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 :

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
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