dan Re moi
je ne m'en sors plus!!!ENFIN je débute
dans le code de la feuille tu trouveras dans (VB)l
le code suivant
Option Explicit
'Ti 08/11/03
Public Const Maxi = 8
Public Compteur As Integer
Sub Clignote()
Static Fond As Integer
Compteur = Compteur - 1
With F1.[C5]
If Compteur <= 0 Then
.Interior.ColorIndex = Fond
Else
If Compteur = Maxi - 1 Then Fond = .Interior.ColorIndex
.Interior.ColorIndex = IIf(Compteur Mod 2 > 0, 10, 7)
Application.OnTime Now + TimeValue("00:00:01"), "Clignote"
End If
End With
End Sub
je pense que tu as tout pour bien faire
jm