Re: comment faire clignoter une cellule Excel sous conditions ?

[Hervé]

Bonsoir,

A mettre dans le module de la feuille et adapter :

Private Declare Function GetTickCount _
Lib "Kernel32" () As Long

Sub Minuterie(Milliseconde As Long)

Dim Arret As Long

Arret = GetTickCount() + Milliseconde

Do While GetTickCount() < Arret
DoEvents
Loop

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

'test sur la cellule A1
If Not Intersect(Target, [A1]) Is Nothing Then

'changer ici la valeur de comparaison !
Do While Target >= 10
Target.Interior.ColorIndex = 3
Minuterie 1000
Target.Interior.ColorIndex = 0
Minuterie 1000
Loop

End If

End Sub

Hervé.

"ronzeau33" <ronz...@discussions.microsoft.com> a écrit dans le message de
news:67ECC873-B26B-4382...@microsoft.com...
> Je souhaite qu'une cellule se mette à clignoter lorsque se trouve remplie
> telle ou telle condition

[michdenis]

Bonjour,

Un petit exemple : http://cjoint.com/?dBc5qckSHd

"ronzeau33" <ronz...@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : 67ECC873-B26B-4382...@microsoft.com...