Discussion :

[tmlpqsdpmdlc]

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

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

et voici mon code dans ThisWorkBook

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

Merci de votre aide

[tmlpqsdpmdlc]

il fallait simplement réattribuer le style flashing sur les cellules Oo

[tmlpqsdpmdlc]

Voilà le code complet pour avoir des cellules ultra flashy

dans un module standard

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
23
24
25
26
Dim nextTime As Date
 
Public Sub Clignotement()
 
    With ThisWorkbook.Styles("Flashing")
        If .Font.ColorIndex = 7 Then
            .Font.ColorIndex = 46
            .Interior.ColorIndex = 8
        Else
            .Font.ColorIndex = 7
            .Interior.ColorIndex = 4
        End If
    End With
 
 
 
    nextTime = Now() + TimeValue("00:00:01")
    Application.OnTime nextTime, "Clignotement"
 
End Sub
 
 
Public Sub stopClignotement()
    On Error Resume Next
    Application.OnTime nextTime, "Clignotement", , False
End Sub

dans ThisWorkBook

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