cellules clignotante

[Gadget]

Bonjour

Y à t'il un programme qui exciste pour faire clignoter une cellule tout en continuant a ce servir du programme, ci oui pourriez vous me le faire parvenir.

Merci GIPL

@+ Gadget-Informatique

 

[jacquesderyes]

Bonsoir Gadget et les amis du forum


Le seul moyen que je connaisse pour donner l'illusion qu'une cellule clignote est de déclencher une macro qui alterne la couleur de la police avec la couleur du fond.Voici le code:
With ActiveCell.Select
Selection.Font.ColorIndex = 3
delay <------------------------------------------------Voir macro ci-dessous
Selection.Font.ColorIndex = 2
delay
Selection.Font.ColorIndex = 3
delay
Selection.Font.ColorIndex = 2
delay
Selection.Font.ColorIndex = 3
delay
Selection.Font.ColorIndex = 1
delay
End With
______________________________________________
Sub delay(milisecond As Integer)
Dim Start, PauseTime
PauseTime = milisecond / 7200
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
End Sub
__________________________________________________
Avec cette macro la police passera de blanc à rouge donnant l'illusion qu'elle clignote!!!
Bien amicalement
jacques de ryes