Comment f aire Clignoter des cellules

Bonjour, malheureusement, après essais, la macro génère des crash répétés dès que j'ouvre une autre feuille excel !?

Elle n'est absolument pas stable... Est-il possible d'avoir le même effet avec une programmation plus stable genre VBA ?

Cordialement

Cizzaro

Bonjour,

1) Remplacez tout le code dans la fenêtre de code de ThisWorkbook par le code

Private Sub Workbook_Open()
Dim S As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set S = Sheets.Add(after:=Sheets(Sheets.Count))
S.Delete
Sheets("Feuil1").Activate
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

2) copiez le code suivant dans la fenêtre de code de Feuil1

Private Sub Worksheet_Activate()
Call Eclairage
End Sub

Private Sub Worksheet_Deactivate()
Call ArrêtEclairage
End Sub

3) remplacez le code de Module1 par

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()
On Error Resume Next
Application.OnTime EarliestTime:=vNow, _
Procedure:="Eclairage", Schedule:=False
ActiveWorkbook.Names.Add Name:="VarEclairage", RefersToR1C1:=1
End Sub

Cordialement.

PMO

Le problème de stabilité est resté mais tant pis. Je ferais sans clignotement. Merci quand même !