Salut le forum
En utilisant un Style
- Pour créer une cellule qui clignote :
- Définit un nouveau style (format/style/Flash/ajouter)
- Applique le à la cellule que tu choisis
- Place le code suivant dans un module de feuille
Dim NextTime As Date
Sub Flash()
NextTime = Now + TimeValue("00:00:01")
With ActiveWorkbook.Styles("Flash").Font
If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2
End With
Application.OnTime NextTime, "Flash"
End Sub
Sub StopIt()
Application.OnTime NextTime, "Flash", schedule:=False
ActiveWorkbook.Styles("Flash").Font.ColorIndex = xlAutomatic
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopIt
End Sub
Private Sub Workbook_Open()
Flash
End Sub
Le texte clignote entre rouge et blanc.
Mytå