faire clignoter une cellule.

[MICHAEL]

bonjour,
peut on faire clignoter une cellule, soit la couleur de fond ou la police.
merci

 

[Roland_M]

Bonjour,

voir cet exemple de Dranreb !

 

[MICHAEL]

merci Roland,
mais penses tu que je puisse faire clignoter une cellule sans condition?

 

[Roland_M]

re

oui, bien entendu !
mais tu dois savoir que c'est une fonction vba qui va tourner en boucle en continue avec rafraîchissement à chaque seconde !
si tu veux mon avis, c'est un gadget et une source de misère, à éviter !

Dranreb à dû faire cela à la demande, comme exemple et pour rendre service.
Je m'avance un peu, mais j'en suis persuadé qu'il ne s'en sert pas lui même !?

 

[MICHAEL]

Pour attirer mon attention, le code ci dessous me convient
merci a vous
cordialement
Private Sub auto_open()

i = 0

While i < 5
Range("q2").Interior.ColorIndex = 2
Range("q2").Font.ColorIndex = 2
Application.Wait (Now + TimeValue("00:00:01"))
Range("q2").Interior.ColorIndex = 4
Range("q2").Font.ColorIndex = 1
Application.Wait (Now + TimeValue("00:00:01"))
i = i + 1
Wend

End Sub

 

[Roland_M]

re

voilà qq chose de plus simple !

après, il a aussi les formats, plus performants, avec "mise en forme conditionnelle"
qui permet de mettre en évidence, avec des couleurs par exemple, des cellules selon leurs valeurs !

 

[Roland_M]

re

plutôt que auto-open
il serait préférable d'utiliser
Private Sub Workbook_Open()

ne serait ce que par souci de compatibilité future, j'ai lu ça qq part et ça me semble un jour possible !?

 

[MICHAEL]

plutôt que auto-open
il serait préférable d'utiliser
Private Sub Workbook_Open()

cela ne permet pas le clignotement automatique à l'ouverture du fichier.

 

[Roland_M]

re

je viens d'essayer ceci et ça fonctionne parfaitement, il ne peut en être autrement !

peut être ne vois tu pas, selon résolution, la cellule q2 à l'écran !?

Private Sub Workbook_Open()
i = 0
While i < 5
Range("q2").Interior.ColorIndex = 2
Range("q2").Font.ColorIndex = 2
Application.Wait (Now + TimeValue("00:00:01"))
Range("q2").Interior.ColorIndex = 4
Range("q2").Font.ColorIndex = 1
Application.Wait (Now + TimeValue("00:00:01"))
i = i + 1
Wend
End Sub

 

[MICHAEL]

désolé, je maintient ce que j'ai dis.
mais peut etre y a t'il une raison pour que cela fonctionne autre part.
cordialement.

 

[JCGL]

Bonjour à tous,
Salut Roland,

Fonctionne parfaitement.

A+ à tous

 

[Roland_M]

re

et bien je ne vois pas du tout ce qui pourrait empêcher de fonctionner !
quand j'ouvre ce classeur la cellule B2 clignote !

EDIT: salut JCGL et bonne année à toi !

 

[MICHAEL]

Apres essais, je ne vois pas non plus........
seule fonctionne ma version.
mais encore une fois peut etre un parametrage excel......
(excel office 365)

 

[JCGL]

Bonjour à tous,

As-tu testé nos deux fichiers?

A+ à tous

 

[Roland_M]

re

ok ! très certainement dû à excel office 365
mais je ne connais pas plus que ça !?

peut être aurons des réponses concernant office 365 !?