XL 2019 Clignotement cellule

Dudu2

XLDnaute Barbatruc

• 7 Décembre 2020

• #2

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.

 

Pièces jointes

• VBA Bouton Clignote.xlsm

  22.9 KB · Affichages: 21

Vote positif 0 Vote négatif

G

GUERET

XLDnaute Occasionnel

• 7 Décembre 2020

• #3

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 !

 

Vote positif 0 Vote négatif

riton00

XLDnaute Impliqué

• 7 Décembre 2020

• #4

Bonsoir,

Un essais voir Pj

Slts

 

Pièces jointes

• Cellule clignote si supérieur à 40%.xls

  37 KB · Affichages: 36

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 7 Décembre 2020

• #5

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

Edit: Fichier modifié 21h52

 

Pièces jointes

• Classeur1.xlsm

  22.1 KB · Affichages: 21

Dernière édition: 7 Décembre 2020

Vote positif 0 Vote négatif

G

GUERET

XLDnaute Occasionnel

• 7 Décembre 2020

• #6

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

 

Vote positif 0 Vote négatif

G

GUERET

XLDnaute Occasionnel

• 7 Décembre 2020

• #7

Dudu2 à dit:

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

Cliquez pour agrandir...

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 ?

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 7 Décembre 2020

• #8

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.

VB:

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.

 

Dernière édition: 7 Décembre 2020

Vote positif 0 Vote négatif

riton00

XLDnaute Impliqué

• 7 Décembre 2020

• #9

Bonsoir,

Voir lien
ICI

Slts

 

Vote positif 0 Vote négatif

G

GUERET

XLDnaute Occasionnel

• 7 Décembre 2020

• #10

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

 

Vote positif 0 Vote négatif