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
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
sub Flash()
NextTime = Now +
TimeValue("00:00:01")
With ActiveWorkbook.Styles("Flash").Font
If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2
End With
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
Sub cligno()
t = Timer
Do While Timer - t < 10
If Application.Wait(Now + TimeValue("00:00:01")) Then
With Cells(1, 1).Interior
.ColorIndex = IIf(.ColorIndex = 3, xlNone, 3)
End With
End If
Loop
Cells(1, 1).Interior.ColorIndex = xlNone
End Sub
En outre les exemples sur le forum xld sont foisons; suffit de regarder les discussions similaires en liens en bas de cette page ou d'utiliser le moteur de recherche
A+
kjin