[VBA-E] Clignotement

**franckh99** · 02/01/2006, 13h59

Peut on et comment faire clignoter une cellule active d'une feuille excel.

Franck

**SfJ5Rpw8** · 02/01/2006, 14h08

en changeant périodiquement la couleur de fond ?

**jacma** · 02/01/2006, 16h13

Bonjour

Le code suivant déclenche le timer...

Code :

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

1
2
3
Private Sub DataList1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  Me.Timer1.Enabled = True
End Sub

... puis le timer fait clignoter un label suivant la fréquence définie en agissant sur la propriété "visible".

Code :

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

1
2
3
4
5
6
7
Private Sub Timer1_Timer()
  If Label1.Visible = False Then
    Label1.Visible = True
  Else
    Label1.Visible = False
  End If
End Sub

**franckh99** · 03/01/2006, 14h43

Bonjour,

J'ai trouvé un bout de code qui fonctionne bien:

Code :

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

1
2
3
4
5
6
7
8
9
Sub Flash()
 
NextTime = Now + TimeValue("00:00:01")
With ActiveCell.Interior
If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2
End With
Application.OnTime NextTime, "Flash"
 
End Sub

Mais le problème c'est que je ne peux plus l'arreter le code suivant en bas devrait le stoper mais cela ne fonctionne pas.

Sub Stop()

Application.OnTime NexTime, "Flash", Schedule:=False

End Sub