XL 2019 Clignotement cellule

[GUERET]

Bonsoir,
Pour le fun, je cherche à faire clignoter les chiffres de la colonne I si le % est supérieur à 40. Pour ce faire, en fouillant sur les différents forums j'ai trouvé cette VBA que j'ai inclus dans la feuille "Pilotes" :

Option Explicit
Public NextBlink As Double
Public Const BlinkCell As String = "SheetPilotes!”I5:I29"
Private Sub StartBlinking()
Application.Goto Range("A1"), 1
If cell.Value > "0.40" Then cell.Interior.ColorIndex = 3
If Range(BlinkCell).Interior.ColorIndex = 3 Then
Range(BlinkCell).Interior.ColorIndex = 0
Range(BlinkCell).Value = "White"
Else
Range(BlinkCell).Interior.ColorIndex = 3
Range(BlinkCell).Value = "Red"
End If
NextBlink = Now + TimeSerial(0, 0, 1)
Application.OnTime NextBlink, "StartBlinking", , True
​

et, comme vous devez vous en douter....Échec
Une aide et une explication me seraient d'un bon secours.
À vot' bon cœur😉

Copie-Formule-1-2020-Covid19-2-.xlsm

www.cjoint.com

 

[Dudu2]

Bonjour,
J'ai trouvé ça dans mon backlog. Ça fait clignoter un bouton mais pour faire clignoter autre chose c'est le même principe.

 

[GUERET]

Bonsoir,
Mon problème est dans la condition. Si une cellule est supérieur à 40%, alors clignotement du chiffre. C'est cette équation que je n'arrive pas à résoudre et la VBA, ce n'est pas mon fort, d'où mon HELP !

 

[riton00]

Bonsoir,

Un essais voir Pj

Slts

 

[Dudu2]

Cette exemple suppose que la couleur de fond des cellules de la colonne I est non définie.

Edit: Fichier modifié 21h52

 

[GUERET]

C'est exactement ce que je cherchais mais quand je l'intègre à mon classeur en feuille "Pilotes", je n'obtiens pas le même résultat que toi. POURQUOI ???🤔😰

Copie-Formule-1-2020-Covid19-2-.xlsm

www.cjoint.com

 

[GUERET]

Cette exemple suppose que la couleur de fond des cellules de la colonne I est non définie.

C'est ça mais serait-il possible de se passer des boutons et de déclencher le clignotement qu'avec la condition que les chiffres soient >40 ?

 

[Dudu2]

Tu parles de quelle solution ?
Si c'est celle de riton00 il faut faire une MFC, ce qui n'est pas évident à remarquer au premier abord.
Si c'est la mienne, il faut dans le module Workbook.

Private Sub Workbook_Open()
    If ActiveSheet.Name = NomFeuilleClignotement Then Call DébutClignote
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name = NomFeuilleClignotement Then Call DébutClignote
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    If Sh.Name = NomFeuilleClignotement Then Call FinClignote
End Sub

Reprendre le fichier modifié du post #5.

 

[riton00]

Bonsoir,

Voir lien
ICI

Slts

 

[GUERET]

Super, ça fonctionne ! juste un p'titi souci : tout le classeur clignote avec ce message : calcul 4 Threads : 33%...