Cellule clignotant

Bonjour à tous,
Je sollicite votre aide. J’ai un fichier dans lequel je veux que la cellule D3 est colorée en rouge et clignote si elle est vide. J’ai entrée des codes mais ceux-ci ne marchent pas.
Vous remerciant par avance
Cordialement

=> clignote.xlsm (11,9 Ko)

Bonjour @panda,

Il manque au moins un End Sub à la fin de ta macro :thinking:

Bref, en voici un exemple dans le fichier joint, les macros n’étant pas de moi, elles ne sont pas commentées:

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

Puis dans Thisworkbook:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ArrêtEclairage
End Sub
Private Sub Workbook_Open()
Eclairage
End Sub

Capture

Fonctionnement avec une MFC dans la cellule “D3”

=ET(VarEclairage;$D$3="")

Enfin, 2 boutons dans la feuille “Eclairage” & “Stop”

Fichier joint ICI==> panda.xlsm (17,1 Ko)

Cordialement.

1 « J'aime »

Bien vu MDO,

Après, ce que j’en pense, … des clignotants!!!
Un coup çà marche,
un coup çà marche pas

Bref, EXCEL c’est pas fait pour une gestion de “Discothèque”

Je pense que l’ami PANDA en reviendra s’il commence à travailler avec plusieurs classeurs en même temps

Pour moi, un feu, quand il est rouge, il est rouge, il clignote pas,
même à la SNCF, en ce moment il clignote plus :grin:

Salut @Mimimathy, :wink:

Je voulais faire cette réponse à @panda, et je suis bien d’accord avec toi, d’autant que le scintillement que cela provoque est très énervant et donc le bouton “Stop” est d’office pris d’assaut dés l’ouverture du fichier comportant ce genre de macro.

Mais bon, puisque la demande a été faite et que je disposais de la réponse, alors…

Il n’y a pas qu’à la SNCF que ça clignote plus, je pense que ça risque de finir au rouge fixe un peu partout :triumph: mais bon, en “même temps” comme dirait l’autre :stuck_out_tongue_winking_eye: quand ça va pas eh ben ça va pas !

Bon week-end à toi.
Amicalement.

1 « J'aime »

Bonjour les amis,
Merci pour votre aide.
Cordialement,

Bonjour @panda,

Merci.