Rapport de message :*
 

Re: Cellule clignotante

Titre du sujet : Re: Cellule clignotante
par myDearFriend! le 15/11/2014 12:06:47

Bonjour ericcool, le Forum,

Je pense qu'en remplaçant simplement la procédure Private Sub Clign() par celle-ci, ça devrait le faire (voir pièce jointe) :
 

' myDearFriend!  -  www.xlpages.com
Private Sub Clign(Optional vInit As Boolean = False)
Static NbMax As Byte
    'Programmation de l'évènement toutes les secondes
    Temps = Now + TimeValue("00:00:01")
    NbMax = IIf(vInit, 0, NbMax + 1)
    If NbMax < 10 Then        'Nbre de cycles maximum (à adapter)
        Application.OnTime Temps, "Clign"
        'Affiche l'alerte ou la fait disparaître (alternativement)
        With CellCible.Interior
            .ColorIndex = IIf(.ColorIndex = 3, xlNone, 3)
        End With
        With ShapeAlerte
            .Visible = Not .Visible
        End With
    Else
        StopClign
    End If
End Sub

 

 

Voilà, j'espère que ça ira ericcool.wink

 

Si la réponse te convient (et que tu n'as pas d'autre idée... lumineuse!) , je te remercie de solder ce fil de discussions comme indiqué dans ma signature.

 

Bien cordialement,