Rapport de message :*
 

Re: Clignotement de cellule

Titre du sujet : Re: Clignotement de cellule
par Mytå le 26/09/2011 03:51:42

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å