Faire clignoter une forme si condtion remplie

[salland]

Bonjour,
Merci encore à tous pour votre aide passionnée...

J'ai un code qui colorie en jaune une forme si une condition est remplie.
La portion de code est la suivante:

Case Is > 92
Sheets("Dashboard").Select
ActiveSheet.Shapes("PLCM 8").Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(232, 246, 50)
Exit Sub

Au lieu de simplement la colorer en jaune, j'aimerai que la forme soit clignotante (pour la mettre en avant)

Avez vous une idée?

Merci
A plus

 

[rvkgb]

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.

 

[BOISGONTIER]

Re : Faire clignoter une forme si condtion remplie

Bonjour,

Fait clignoter 10 fois

Sub Clignote()
   n = 0
   Do While n < 10
      ActiveSheet.Shapes("Clignotant").Visible = True
      fin = Timer + 0.4
      Do While Timer < fin
      DoEvents
   Loop
   ActiveSheet.Shapes("Clignotant").Visible = False
   fin = Timer + 0.2
   Do While Timer < fin
      DoEvents
   Loop
   n = n + 1
  Loop

JB

 

[salland]

Re : Faire clignoter une forme si condtion remplie

Super merci... j'ai réussi à me dépatouiller avec vos indices...