Bonjour tous le monde SVP j'ai besoin de votre aide je veux faire clignioté des cellules dans ma feuille excel
j'ai trouver une solution sur internet et je l'est collé dans mon code et j'ai suivie les étape mes sa marche pas les cellules ne cligniotte pas
voila le code que j'ai mis svp
Sub StartFlash()
NextTime = Now + TimeValue("00:00:01")
With ActiveWorkbook.Styles("Flashing").Font
If .ColorIndex = xlAutomatic Then .ColorIndex = 3
.ColorIndex = 5 - .ColorIndex
End With
Application.OnTime NextTime, "StartFlash"
End Sub
Sub StopFlash()
Application.OnTime NextTime, "StartFlash", schedule:=False
ActiveWorkbook.Styles("Flashing").Font.ColorIndex = xlAutomatic
End Sub
moi en faite je veux que lorsque chaque cellules est non vide qu'il commence a clignioté jusqu'a que une autre cellule devient non vide
merciii