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

Le service des pièces jointes, CJoint.com est un service de partage de fichier gratuit pour partager vos documents dans vos courriels, sur les forums ou dans vos petites annonces.

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

Le service des pièces jointes, CJoint.com est un service de partage de fichier gratuit pour partager vos documents dans vos courriels, sur les forums ou dans vos petites annonces.

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%...