Cellule clignottante

[Denis]

Bonjour est'il possible de faire clignoter une cellule en fonction de la valeur de celle-ci

Ex : Si A1 = OK le cellule clignotte sinon rien

Merci au Forum

@+

 

[michel]

Bonjour Denis

Une procédure possible :
Si "ok" est saisi dans la cellule A1 , le fond de la cellule clignote pendant 10 secondes ( couleur bleu/rouge )
( macro à partir d'infos récupérées sur le site http://disciplus.simplex.free.fr/ )

Sub Clignotement()

Dim fond
Dim i

fond = ActiveCell.Interior.ColorIndex

If Range("a1").Value = "ok" Then
Range("a1").Select

fond = ActiveCell.Interior.ColorIndex

For i = 1 To 5

Application.Wait Now + TimeValue("00:00:01")
ActiveCell.Interior.ColorIndex = 3
Application.Wait Now + TimeValue("00:00:01")
ActiveCell.Interior.ColorIndex = 5

Next i

ActiveCell.Interior.ColorIndex = fond
End If

End Sub


Bonne journée
Michel

 

[Denis]

Merci pour la réponse

@+