Bonjour,
Après avoir fait une tentative adaptation d'un code déjà existant, je tombe sur un os.
En effet, quand je demande au fond de la cellule de changer de couleur, il ne se passe rien ! J'ai créé un style personnalisé nommé "Flashing"
Voici mon code dans le module standard
et voici mon code dans ThisWorkBook
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
22 Dim nextTime As Date Public Sub Clignotement() With ThisWorkbook.Styles("Flashing").Interior If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2 End If End With nextTime = Now() + TimeValue("00:00:01") Application.OnTime nextTime, "Clignotement" End Sub Public Sub stopClignotement() Application.OnTime nextTime, "Clignotement", False End Sub
Merci de votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Private Sub Workbook_Open() Clignotement End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) stopClignotement End Sub
Partager