[VBA-E] Clignotement

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

Franck

en changeant périodiquement la couleur de fond ?

Bonjour

Le code suivant déclenche le timer...

Code:

---

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:

---

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

---

Bonjour,

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

Code:

---

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

Citation:

---

Envoyé par franckh99

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

---

Pourquoi, le code que je t'ai passé ne fonctionne pas :?: :lol:

Je veux faire clignoter une cellule d'une feuille excel et non un label.

ou as tu déclaré ta variable nexttime...

essai de rajouter ..en "haut" de ton projet :

Code:

---

Public NextTime as Date

---

:wink:

Cest ce que j'ai fait.

attention au nom de ta variable : NextTime ou Nextime ? :?:

Bien vu, j'ai pas fait attention ça marche

Un conseil (que j'oublie souvent de respecter..) utilise l'option explicit dans ton projet cela évite ces erreurs..

Code:

---

option explicit

---

:cry: