clignotement

Salut johann,

Une adaptation de la solution d'excelabo.
(http://www.excelabo.net/xl/formats.php#clignotant)

A coller dans un module normal :

Dim NextTime As Date

Sub Flash()
If WorksheetFunction.Min(Range("B4:B78")) >= 0 Then Arret
NextTime = Now + TimeValue("00:00:01")
With Range("A1")
If .Font.ColorIndex = 2 Then
.Font.ColorIndex = 0
.Interior.ColorIndex = 0
Else
.Font.ColorIndex = 2
.Interior.ColorIndex = 3
End If
End With

Application.OnTime NextTime, "Flash"
End Sub

Sub Arret()
With Range("A1")
.Font.ColorIndex = xlAutomatic
.Interior.ColorIndex = xlNone
End With
End
End Sub
'=====================

A coller dans le module de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
Flash
End Sub
'=====================

vais pas tarder a le foutre par la fenêtre ce putain de pc
Pour ça, je te conseille ce site :

http://www.inicia.es/de/Turbo_J/metele.html

jamais un français a eu l idée de traduire ce putain de vba
Ca a déjà existé en français (mais dans une version préhistorique d'excel,

il me semble).


A+
--
Nicolas B.

slt
j en ai marre j ai passé mon dimanche a essayer de faire clignoter une
cellule
suis débutant j ai le book "Excel 2002 de JW"
j ai chercher sur tous les sites tous les groupes
et ça commence a me prendre le choux
je veux que ma cellule A1 clignote en fond rouge avec police blanche a
condition qu au moins une cellule de la plage B4:B78 soit négative
j en peu plus pitié des worksheet/GetTickCount ect
vais pas tarder a le foutre par la fenêtre ce putain de pc
jamais un français a eu l idée de traduire ce putain de vba

alors si quelqu un peut faire quelque chose
sinon elle restera en rouge
lol
merci
@+

Comme cela par exemple:
http://dj.joss.free.fr/faq.htm#clignote
Daniel

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

"johann" <johann0169@hotmail.com> a écrit dans le message de news: c2fma3$fb5$1@news.tiscali.fr...
| slt
| j en ai marre j ai passé mon dimanche a essayer de faire clignoter une
| cellule
| suis débutant j ai le book "Excel 2002 de JW"
| j ai chercher sur tous les sites tous les groupes
| et ça commence a me prendre le choux
| je veux que ma cellule A1 clignote en fond rouge avec police blanche a
| condition qu au moins une cellule de la plage B4:B78 soit négative
| j en peu plus pitié des worksheet/GetTickCount ect
| vais pas tarder a le foutre par la fenêtre ce putain de pc
| jamais un français a eu l idée de traduire ce putain de vba
|
| alors si quelqu un peut faire quelque chose
| sinon elle restera en rouge
| lol
| merci
| @+
|
|