Cellule clignotante

bonjour a tous

je souhaiterais qu'a chaque fois que je mets une cellule en rouge dans mon tableau, la cellule clignote et ne clignote plus si je ne mets pas de couleur ou si j'en mets une autre

si cela pouvait actif dès l'ouverture du fichier ce serait top

le tableau évolue tt le temps, (en taille, et en information)

est ce que cela est possible ?

merci d'avance

33essai.xls (17.00 Ko)

re bonjour

le problème : j'ai créer le style mais a chaque fois que je lance la macro cela me change la taille de la police et ne me garde pas le format définit par le style : cellule fond rouge, calibri 14pt,

"Dim NextTime As Date

Sub StartFlash()

Application.ScreenUpdating = False

NextTime = Now + TimeValue("00:00:04")

With ActiveWorkbook.Styles("Flashing").Font

If .ColorIndex = xlAutomatic Then .ColorIndex = 4

.ColorIndex = 3 - .ColorIndex

End With

Application.OnTime NextTime, "StartFlash"

Application.ScreenUpdating = True

End Sub

Sub StopFlash()

Application.OnTime NextTime, "StartFlash", schedule:=False

ActiveWorkbook.Styles("Flashing").Font.ColorIndex = xlAutomatic

End Sub"

Re,

Je ne constate pas le problème chez moi

Voir fichier

A+

73mendeve-essai.zip (9.29 Ko)
Rechercher des sujets similaires à "clignotante"