Re...
Je ne peux pas te joindre le fichier, il dépasse les 50 K.
1) Première des étapes, définir le nom varEclairage et mettre la formule =0 (menu Insertion/Nom/Définir...)
2) Dans la mise en forme conditionnelle de la cellule Z16, tu changes le terme "la valeur de la cellule est" par "la formule est", puis tu tapes cette formule, =varEclairage=0, tu définis après le format que tu souhaites.
3) Maintenant il faut implémenter le code dans ton fichier
dans le ThisWorkbook de ton fichier (fenêtre Projets), tu colles ceci
Private Sub Workbook_Open()
MsgBox " Attention !!! " & vbLf & "Merci de ne pas rajouter des colonnes !!!" & vbLf, vbOKOnly, "Bonjour !!! "
Eclairage
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ArrêtEclairage
End Sub
Attention remplace bien ton Workbook_Open, il ne peut en avoir qu'un.
Tu rajoutes un module, et tu colles ce dernier code
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
Tu enregistres, tu rouvres ton fichier, voilà...
@+Jean-Marie
