XL 2016 Texte qui clignote correctement mais avec un problème de cellule calculée

[christ77000]

Bonjour à tous, j'ai une macro qui fonctionne bien mais elle est placée sur une cellule avec calcul ce qui pose problème. Je dois me mettre sur cette cellule S8 et la valider manuellement pour que la macro fonctionne. S8 est masquée et protégée. Merci par avance pour votre aide.

Code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Sheets("VentilationTTS").Range("S8")) Is Nothing Then
    'Go ou Stop
        If Val(Target.Value) > 0 Then Clign Else StopClign
    End If
End Sub

Code des macros :

Dim Temps As Variant

Public Sub Clign()
    'Programmation de l'évènement toutes les secondes
    Temps = Now + TimeValue("00:00:01")
    Application.OnTime Temps, "Clign"
    'Affiche l'alerte ou la fait disparaître (alternativement)
    With ThisWorkbook
        With .Sheets("VentilationTTS").Range("C24")
            .Font.ColorIndex = IIf(.Font.ColorIndex = 1, 3, 1) '2, 3, 2)
        End With
    End With
End Sub

Public Sub StopClign()
    On Error Resume Next
    'Stoppe la gestion de l'évènement OnTime
    Application.OnTime Temps, "Clign", , False
    On Error GoTo 0
    'Cache l'alerte
    With ThisWorkbook
        'Texte
        .Sheets("VentilationTTS").Range("C24").Font.ColorIndex = 3
    End With
End Sub

calcul dans S8 =SI(D10="";0;RECHERCHEV(D10;T_Rompus[[Désignation]:[Rompus]];4;FAUX))
calcul dans C24 =SI(S8=0;"";CONCATENER("Pour info sur ce code produit vous avez en zone rompus ";S8;" plaques."))

 

[riton00]

bonjour,

Je pense qu'un fichier joint approprier et anonymiser serait le bien venu

Slts

 

[christ77000]

Bonjour et merci pour votre aide. Je vous joint le fichier

 

[christ77000]

RE j'ai essayer de déplacer le premier code dans Private Sub Worksheet_Calculate mais ca ne change rien !!

 

[riton00]

Bonjour,
J'ai pas trop compris ton problème à la base
Mais j'ai rajouter ActiveSheet.Unprotect & ActiveSheet.Protect dans le module éclairage et un p'tit truc dans ThisWorkBook à voir

Slts

 

[christ77000]

RE merci pour votre aide. Mon problème à la base est qu'il fallait que je me mette en S8 et que je fasse ENTER pour déclencher la macro. Le hic est que S8 est masqué. Donc pas terrible comme fonctionnement.

 

[christ77000]

RE il est vrai que le faite que la macro change la couleur est certainement le problème. La ca fonctionne correctement mais j'ai l'impression que la macro tourne en permanence. Pourtant si S8 est >0 ca devrait stopper la macro non !!

 

[riton00]

Re
supprime voir ActiveSheet.Unprotect & ActiveSheet.Protect sur Clign() et StopClign()
Slts