bon, entre la clop et le café :
tu cliques sur format/styles...
tu écris clignotant dans la liste déroulante (je te conseille de décocher toutes les cases pour ne pas polluer) et tu cliques sur ajouter
tu colles cette procédure dans un module standard
VBA excel
- Sub TicTac()
ActiveWorkbook.Styles("clignotant").Interior.ColorIndex = Right(Format(Now + TimeValue("00:00:01"), "s"), 1) + 1
Application.OnTime Now + TimeValue("00:00:01"), "TicTac"
End Sub
et l'antidote :
VBA excel
- Sub TicTacStop()
Application.OnTime Now + TimeValue("00:00:01"), "TicTac", schedule:=False
ActiveWorkbook.Styles("clignotant").Font.ColorIndex = xlAutomatic
End Sub
sélectionne la ou les cellules que tu veux faire clignoter et clique sur format/styles... et choisi clignotant
ensuite, "lancer" le clignotement, il y plein de possibilités ;
commence par cliquer sur outils/macro->macros... sélectionne TicTac et cliques sur exécuter :
Tic...Tac...Tic...Tac...Tic...Tac...Tic...Tac...Tic...Tac...Tic...Tac...Tic...Tac...Tic...Tac...Tic...Tac...Tic...Tac...Tic...Tac...Tic...Tac...Tic...Tac...Tic...Tac...Tic...Tac...Tic...Tac...Tic...Tac...Tic...Tac...Tic...Tac...Tic...Tac...Tic...Tac...Tic...Tac...Tic...Tac...