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å
|