1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
|
Public Tempo As Date
Sub clignotant()
Dim R As Range
Dim l As Long
Set R = ActiveSheet.UsedRange
For l = 2 To R.Rows.Count
If R(l, 1) = Date Then
R(l, 1).Offset(0, 1) = ""
Else
R(l, 1).Offset(0, 1) = "Attention!"
R(l, 1).Offset(0, 1).Font.Bold = True
R(l, 1).Offset(0, 1).Font.Color = -16776961
If R(l, 1).Offset(0, 1).Font.Size = 11 Then R(l, 1).Offset(0, 1).Font.Size = 20 Else R(l, 1).Offset(0, 1).Font.Size = 11
End If
DoEvents
Next
Tempo = Now + TimeValue("00:00:01")
Application.OnTime Tempo, "clignotant"
End Sub |
Partager