Faire clignoter une cellule excel

[PICCOLI Isaia]

Bonjour,
comment sous excel 2000, faire clignoter une cellule si la valeur de cette
cellule est négative ?
Merci pour votre aide
Isaia

[Philippe Tulliez]

Bonsoir Isaia,
Voici une réponse datant du 30/1/2003 de Jean Vallon, sur ce forum
¨Pour d'autres exemples, tu vas sur Google à l'adresse
http://groups.google.com/advanced_group_search
Tu écris dans les zones
1) Groupe : microsoft.public.fr.excel
2) Tous les mots suivants : clignoter cellule
Philippe

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

"PICCOLI Isaia" <Isaia....@skynet.be> a écrit dans le message news:
3e442832$0$20542$ba62...@news.skynet.be...

[AV]

> Voici une réponse datant du 30/1/2003 de Jean Vallon, sur ce forum

Ben c'est ki celui-là ??
;-))
AV

[sabatier]

le frère d'Alain Valjean
jps

[PICCOLI Isaia]

Merci beaucoup pour ton aide... c'est extra

"Philippe Tulliez" <ptul...@be.tf> a écrit dans le message de news:
eQ6GOqvzCHA.2564@TK2MSFTNGP12...