faire clignoter une cellule.

Roland_M

XLDnaute Barbatruc

• 7 Janvier 2017

• #2

Bonjour,

voir cet exemple de Dranreb !

 

Pièces jointes

• Clignotement cellule.xls

  33 KB · Affichages: 174

Vote positif 0 Vote négatif

M

MICHAEL

XLDnaute Occasionnel

• 7 Janvier 2017

• #3

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

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 7 Janvier 2017

• #4

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 !?

 

Vote positif 0 Vote négatif

M

MICHAEL

XLDnaute Occasionnel

• 7 Janvier 2017

• #5

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

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 7 Janvier 2017

• #6

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 !

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 7 Janvier 2017

• #7

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 !?

 

Vote positif 0 Vote négatif

M

MICHAEL

XLDnaute Occasionnel

• 7 Janvier 2017

• #8

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.

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 7 Janvier 2017

• #9

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

 

Vote positif 0 Vote négatif

M

MICHAEL

XLDnaute Occasionnel

• 7 Janvier 2017

• #10

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.

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 7 Janvier 2017

• #11

Bonjour à tous,
Salut Roland,

Fonctionne parfaitement.

A+ à tous

 

Pièces jointes

• Clignote.xlsm

  20.3 KB · Affichages: 89

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 7 Janvier 2017

• #12

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 !

 

Pièces jointes

• Classeur1.xlsm

  13.3 KB · Affichages: 78

Vote positif 0 Vote négatif

M

MICHAEL

XLDnaute Occasionnel

• 7 Janvier 2017

• #13

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 7 Janvier 2017

• #14

Bonjour à tous,

As-tu testé nos deux fichiers?

A+ à tous

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 7 Janvier 2017

• #15

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 !?

 

Vote positif 0 Vote négatif