Faire clignoter une cellule ?

Bonsoir
Pour faire clignoter une cellule
http://dj.joss.free.fr/faq.htm#clignote

--
Daniel MVP Excel
FAQ du Forum Microsoft Public Fr Excel
http://dj.joss.free.fr/faq.htm



"gerardhenry" <gerardhenry@wanadoo.fr> a écrit dans le message de news:
cde5so$7no$1@news-reader2.wanadoo.fr...
| Bonjour,
| savez vous si on peut faire clignoter une cellule quand elle est dans une
| situation spécifique ?
|
| Merci pour vos renseignements.
| G.Henry
|
|

savez vous si on peut faire clignoter une cellule quand elle est dans une
situation spécifique ?

Exemple pour faire clignoter une cellule de la plage A1:A10 lorsqu'on change sa
valeur :

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

Dans le module de la feuille concernée (clic droit sur l'onglet > visualiser le
code > ..)

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 15
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

AV