Clignoter une cellule

Private sub Worksheet_Change(ByVal Target As Excel.Range)
Target.Select
If IsNumeric(Target) Then
If ActiveCell.Value > 100 Then Call Clignotement
End If
end sub

Cliquez pour agrandir...

sub Clignotement()
Set plage = ActiveCell
Fond = ActiveCell.Interior.ColorIndex
For i = 1 To 300
plage.Interior.ColorIndex = 2
plage.Interior.ColorIndex = 3
Next i
plage.Interior.ColorIndex = Fond
end sub

Cliquez pour agrandir...

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

Cliquez pour agrandir...

Private sub Image1_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Call Clignote
end subsub Clignote()
For i = 1 To 50
With [B5].Interior
.ColorIndex = 3
ColorIndex = xlNone
End With
Next i
end sub

Cliquez pour agrandir...

3ali à dit:

j'aimerai savoir comment mettre une cellule clignote dans une feuille pendant 10s

Cliquez pour agrandir...