Discussion :

[EAU24]

Bonjour à, tous,
Je vous communique ci-dessous un code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Je voudrais que la cellule clignote pendant seulement 1 minute et ensuite s'arrête toute seule sans intervention de ma part.
Merci pour votre aide (je pense notamment à ARTURO83)