DAVAWAY
XLDnaute Junior
Bonjour,
Pourriez vous m'apporter une aide sur la ligne de code que je ne parviens pas à compléter malgré mes tentatives.
La cellule "E6" clignote en rouge mais la valeur inscrite qui est transparente apparait à ce moment.
Je souhaite que lorsque la cellule clignote en rouge, que la police soit également basculée en rouge mais pour l'heure sans succès _ merci pour votre aide :
Option Explicit
Dim Temps As Variant
Public Sub Clign()
Temps = Now + TimeValue("00:00:01")
Application.OnTime Temps, "Clign"
With ThisWorkbook
'Fond
With .Sheets("Synthèse").Range("E6")
.Interior.ColorIndex = IIf(.Interior.ColorIndex = 3, xlNone, 3)
.Selection.Font = IIf(Color = -16776961, TintAndShade = 0)
End With
End With
End Sub
Public Sub StopClign()
On Error Resume Next
Application.OnTime Temps, "Clign", , False
On Error GoTo 0
With ThisWorkbook
'Fond
.Sheets("Synthèse").Range("E6").Interior.ColorIndex = xlNone
End With
End Sub
Pourriez vous m'apporter une aide sur la ligne de code que je ne parviens pas à compléter malgré mes tentatives.
La cellule "E6" clignote en rouge mais la valeur inscrite qui est transparente apparait à ce moment.
Je souhaite que lorsque la cellule clignote en rouge, que la police soit également basculée en rouge mais pour l'heure sans succès _ merci pour votre aide :
Option Explicit
Dim Temps As Variant
Public Sub Clign()
Temps = Now + TimeValue("00:00:01")
Application.OnTime Temps, "Clign"
With ThisWorkbook
'Fond
With .Sheets("Synthèse").Range("E6")
.Interior.ColorIndex = IIf(.Interior.ColorIndex = 3, xlNone, 3)
.Selection.Font = IIf(Color = -16776961, TintAndShade = 0)
End With
End With
End Sub
Public Sub StopClign()
On Error Resume Next
Application.OnTime Temps, "Clign", , False
On Error GoTo 0
With ThisWorkbook
'Fond
.Sheets("Synthèse").Range("E6").Interior.ColorIndex = xlNone
End With
End Sub