faire clignoter le contenu de la cellule

Bonjour
http://dj.joss.free.fr/faq.htm#clignote

Daniel
FAQ MPFE
http://dj.joss.free.fr/faq.htm


"Pseudo" <Pseudo@discussions.microsoft.com> a écrit dans le message de news:
3D56149A-DD60-4E04-90FE-5000A492BF30@microsoft.com...

J'aimerais faire clignoter le texte contenu dans une cellule

Bonjour Pseudo,
A mettre dans un module commun

Sub Clignotant()

Range("E3").Select

For compteur = 1 To 20
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01")
With Selection.Interior
.ColorIndex = 1
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:01")
Next

End Sub

Bonne journée
RV


"Pseudo" <Pseudo@discussions.microsoft.com> a écrit dans le message de news:
3D56149A-DD60-4E04-90FE-5000A492BF30@microsoft.com...

J'aimerais faire clignoter le texte contenu dans une cellule

Bonjour,

Voir PJ http://cjoint.com/?fClRpne7E1

Clignotement d'une cellule en fonction de sa valeur

La cellule B8 clignote si le total dépasse 1000

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.OnTime Prochain, "clignote", schedule:=False ' annule
Range("b8").Font.ColorIndex = 0
If Range("b8") >= 1000 Then
Range("b8").Font.ColorIndex = 3
Clignote
End If
End Sub

Dans un module:

Public Prochain
Sub Clignote()
If Range("b8").Font.ColorIndex = 3 Then
Range("b8").Font.ColorIndex = 0
Else
Range("b8").Font.ColorIndex = 3
End If
Prochain = Now + TimeValue("00:00:01")
Application.OnTime Prochain, "clignote"
End Sub

Sub ClignotePlus()
On Error Resume Next
Application.OnTime Prochain, "clignote", schedule:=False ' annule
End Sub

Cordialement JB