Re : Faire clignoter une forme si condtion remplie
Bonjour salland,
Voici un code que m'avait passé un pote du forum.
A placer dans un module:
Option Explicit '
Dim vNow As Variant
Public Sub Eclairage()
vNow = Now + TimeValue("00:00:01")
Application.OnTime vNow, "Eclairage"
ActiveWorkbook.Names.Add Name:="VarEclairage", RefersToR1C1:=1 - [VarEclairage]
End Sub
Public Sub ArrêtEclairage()
Application.OnTime EarliestTime:=vNow, _
Procedure:="Eclairage", Schedule:=False
ActiveWorkbook.Names.Add Name:="VarEclairage", RefersToR1C1:=1
End Sub
Ensuite, MFC
exemple: =SI(D7<100;VarEclairage=1)
j'espère que ça pourra t'aider.