Bonsoir

je ne m'y connais pas trop en vba et je fais appel à vos lumières pour cette question :

Sur ma feuille de calcul je souhaiterai faire clignoter une cellule ( C18)  ,celle ci devant clignoter que 4 secondes  , lorsque je choisis une cellule au hasard dans la colonne allant de B21 à B100

Est il possible de realiser cela sur excel et comment ?

Je vous remercie par avance pour vos suggestions

Salut le forum

Possible à faire mais pas une bonne idée !!!

Excel est un logiciel de calcul pas un arbre de Noel !

Voila quand même un bout code

'faire clignoter la cellule active un certain nombre de fois puis arrêter

'procédure à appeler dans le code
Sub InitFlash()
  'lance un clignotement toutes les secondes
  Application.OnTime Now + TimeValue("00:00:01"), "Flash"
End Sub


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

Mytå