Clignotement

Stéphane · 29 Octobre 2005

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 · 29 Octobre 2005

Le dit fichier...

Stéphane · 29 Octobre 2005

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! · 29 Octobre 2005

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 · 29 Octobre 2005

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 · 29 Octobre 2005

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! · 29 Octobre 2005

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,

Clignotement

Stéphane

Guest

Stéphane

Guest

Stéphane

Guest

Pièces jointes

myDearFriend!

XLDnaute Barbatruc

Pièces jointes

Stéphane

Guest

Stéphane

Guest

myDearFriend!

XLDnaute Barbatruc

Discussions similaires