VBA Excel. Clignotement d'une cellule

Bonjour Jean-Michel
Ici tu trouveras un moyen :
http://dj.joss.free.fr/faq.htm#clignote

Cordialement
Pascal

"Jean-mi" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:07f801c3da6f$dbe2ba40$a401280a@phx.gbl...

Bonjour,

Quelqu'un sait-il comment programmer le clignotement d'une
cellule ?

D'avance merci,

Jean-michel

Bonjour Jean-mi
de AV
Un exemple (à adapter) parmi de nombreux que tu peux trouver ça et là :
Faire clignoter la cellule (plage A1:A10) si l'on change une valeur :

A mettre dans un module ordinaire :
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

A mettre dans le module de la feuille

Private adres, selec
Private Sub Worksheet_Change(ByVal zz As Range)
On Error Resume Next
If Intersect(zz, Range("A1:A10")) Is Nothing Then Exit Sub
If selec <> zz Then
adres = zz.Address
Clignote
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal zz As Range)
selec = zz
End Sub

Sub Clignote()
Dim i As Integer
With Sheets("Feuil2")
mem1 = Range(adres).Font.ColorIndex
mem2 = Range(adres).Font.Size
mem3 = Range(adres).Font.Bold
For i = 0 To 10
If Range(adres).Font.ColorIndex = 3 Then
Range(adres).Font.ColorIndex = 2
Else: Range(adres).Font.ColorIndex = 3
End If
Range(adres).Font.Size = mem2 + 6
Range(adres).Font.Bold = True
Sleep (300)
DoEvents
Next i
With Range(adres)
.Font.Size = mem2
.Font.ColorIndex = mem1
.Font.Bold = mem3
End With
End With
End Sub



--
Fred
"Jean-mi" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 07f801c3da6f$dbe2ba40$a401280a@phx.gbl...

Bonjour,

Quelqu'un sait-il comment programmer le clignotement d'une
cellule ?

D'avance merci,

Jean-michel