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
Autre solutionsub 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
Encore une solutionsub 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
Les auteurs de ces code sont: Bill Manville, Serge GarneauPrivate 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
j'aimerai savoir comment mettre une cellule clignote dans une feuille pendant 10s