Animation

Bonjour,

C'est possible en vba:

Faire Alt F11 pour accéder à l'éditeur
Sélectionner la feuille concernée en haut à gauche et mettre ce code:

Option Explicit
'ce declenche au double clic
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("H5")) Is Nothing Then
If Target.Value = 25 Then
Range("N5").Select
Range("N5").Value = "Bingo"
InitFlash
End If
End If
End Sub

Ensuite aller dans le ruban et Insertion, Module et mettre ce code:

Option Explicit
Sub Flash()
Static i
   i = i + 1
  'le clignotement
  If ActiveCell.Interior.ColorIndex = 6 Then
    ActiveCell.Interior.ColorIndex = 3 'fond rouge
    ActiveCell.Font.ColorIndex = 6 'caractères en jaune
  Else
    ActiveCell.Interior.ColorIndex = 6 'fond jaune
    ActiveCell.Font.ColorIndex = 3 'caractères en rouge
  End If
  
  'tant que le nombre de clignotements choisi n'est pas atteint
  '(ici 5) on continue
  If i <= 5 Then
    Application.OnTime Now + TimeValue("00:00:01"), "Flash"
  Else
    'sinon, on revient à la mise ne forme par défaut d'Excel
    'et on arrête tout
    ActiveCell.Interior.ColorIndex = xlNone 'fond incolore
    ActiveCell.Font.ColorIndex = 1 'caractères en noir
    i = 0
  End If
End Sub
Sub InitFlash()
  'lance un clignotement toutes les secondes
  Application.OnTime Now + TimeValue("00:00:01"), "Flash"
End Sub

C'est opérationnel, aller sur la feuille pour les essais!

On peut faire changer la couleur de la case mais je ne pense pas qu'on puisse la faire changer de couleur toute les secondes