Bonsoir Stéphane,
Ci-joint une façon de faire.
Dans le module de code de la feuille 1 et dans ThisWorkbook, le test qui envoie sur le clignotement ou non.
Dans le module de code général Module1, le code qui permet l'activation/désactivation du clignotement :
Citation:
Option Explicit
Dim Temps As Date
Public Sub Clign()
Static C As Integer
'Programmation de l'évènement toutes les secondes
Temps = Now + TimeValue('00:00:01')
Application.OnTime Temps, 'Clign'
'Traitement
C = IIf(C = 3, xlNone, 3)
Sheets('Feuil1').Range('C4').Interior.ColorIndex = C
End Sub
Public Sub StopClign()
On Error Resume Next
'Stoppe la gestion de l'évènement OnTime
Application.OnTime Temps, 'Clign', , False
On Error GoTo 0
Sheets('Feuil1').Range('C4').Interior.ColorIndex = xlNone
End Sub
|
Cordialement, [file name=mDF_Clignoticlignota.zip size=7967]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/mDF_Clignoticlignota.zip[/file]