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" a écrit dans le message de news:
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" a écrit dans le message de groupe de discussion : Je souhaite qu'une cellule se mette à clignoter lorsque se trouve remplie telle ou telle condition
Bonjour,
Un petit exemple : http://cjoint.com/?dBc5qckSHd
"ronzeau33" <ronzeau33@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : 67ECC873-B26B-4382-8C18-162E83467DDD@microsoft.com...
Je souhaite qu'une cellule se mette à clignoter lorsque se trouve remplie
telle ou telle condition
"ronzeau33" a écrit dans le message de groupe de discussion : Je souhaite qu'une cellule se mette à clignoter lorsque se trouve remplie telle ou telle condition