Clignotement

[Stéphane]

bonjour tout le monde

Je vous solicite pour un pépin que je n'arrive pas à resoudre.
J'aimerais dans mon ficher excel ci-joint que la cellule C4 clignote quand la date est inférieur à la cellule B4.
Merci d'avance pour votre aide.

 

[Stéphane]

Le dit fichier...

 

[Stéphane]

Il y a des soirs où c'est dur dur ............... [file name=Clignoticlignota.zip size=5447]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Clignoticlignota.zip[/file]

 

[myDearFriend!]

Bonsoir Stéphane,

Ci-joint une façon de faire.

Dans le module de code de la feuille 1 et dans ThisWorkbook, le test qui envoie sur le clignotement ou non.
Dans le module de code général Module1, le code qui permet l'activation/désactivation du clignotement :

Option Explicit

Dim Temps As Date

Public Sub Clign()
Static C As Integer
      'Programmation de l'évènement toutes les secondes
      Temps = Now + TimeValue('00:00:01')
      Application.OnTime Temps, 'Clign'
      'Traitement
      C = IIf(C = 3, xlNone, 3)
      Sheets('Feuil1').Range('C4').Interior.ColorIndex = C
End Sub

Public Sub StopClign()
      On Error Resume Next
      'Stoppe la gestion de l'évènement OnTime
      Application.OnTime Temps, 'Clign', , False
      On Error GoTo 0
      Sheets('Feuil1').Range('C4').Interior.ColorIndex = xlNone
End Sub

Cordialement, [file name=mDF_Clignoticlignota.zip size=7967]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/mDF_Clignoticlignota.zip[/file]

 

[Stéphane]

Merci deja pour ce travail mais j'aimerai que la cellule clignote seulement quand la date est inférieur à la colonne B4 , est possible ??

 

[Stéphane]

Je rajoute une précision , c'est quand on modifi B4 et que la valeur est supérieur à C4 que C4 dois clignoter.
Merci d'avance

 

[myDearFriend!]

Bonjour Stéphane,

Ah ben oui, ta dernière précision n'est pas du luxe ! :angry:

Dans ce cas, il convient de modifier la procédure Worksheet_Change() du module de code de la feuille 1 comme suit :

Private Sub Worksheet_Change(ByVal Target As Range)
      If Not Application.Intersect(Target, Range('B4')) Is Nothing Then
            StopClign
            If Target.Value > Range('C4').Value Then
                  Clign
            End If
      End If
End Sub

Cordialement,