Bonjour Galopin01, Bonjour Nad,
Je suis depuis très peu de temps sur ce forum. Auparavant je demandais des conseils sur SuissTools. Forum où j'ai toujours bien été reçu et conseillé par tous ceux qui sont intervenus. En particulier, Dan et "Fleurine" m'ont toujours répondu avec circonspection. Je souhaiterai qu'il en soit de même sur ce Forum avec ses interlocuteurs.
Si je viens demandez des conseils, c'est parce que, bien sûr, j'ai des lacunes puisque je débute et que je cherche à les combler.
Je ne pense pas qu'en s'en tenant à des "dogmes" à propos d'Excel soit un moyen de faire évoluer cette application, qui comme toutes les autres, ne sont pas pour être figées. Une application existe, à chacun d'en faire ce qu'il en veut à condition de ne pas nuire à d'autres.
Ce n'est juste que ma pensée. Merci.
Pour Nad,
J'ai copié le VBA "clignotement" qui donne :
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ArrêtEclairage
End Sub
Private Sub Workbook_Open()
Eclairage
End Sub
Dans Module2
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
Je suis sous Excel 2007. Je suis allé dans la MFC et c'est probablement là que je me suis perdu car ça ne ressemble pas au chemin que tu me signales et que j'avais sous Excel 2000. Peux-tu mieux me guider. Je t'en remercie.
Cordialement à tous deux et merci de sa réponse à Nad.
Gilles.