faire clignoter une cellule.

MICHAEL

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

Roland_M

XLDnaute Barbatruc
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

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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
 

Discussions similaires

Réponses
17
Affichages
612

Statistiques des forums

Discussions
311 730
Messages
2 081 978
Membres
101 854
dernier inscrit
micmag26