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
Il manque au moins un End Sub à la fin de ta macro
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
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 mais bon, en “même temps” comme dirait l’autre quand ça va pas eh ben ça va pas !