Cellules clignotantes

Le
Denys
Bonjour à tous,

Je sais qu'il y a plusieurs questions concernant ce sujet, mais
malheureusement, je n'ai rien trouvé qui fonctionnait pour moi.

J'ai aussi exploré le site de Frédéric Sigonneau et celui
d'excellabo

Avec la macro qui suit les cellules deviennent rouges mais je
souhaiterais aussi qu'elles clignotent tant qu'elles seront rouges.

Auriez-vous une idée ?

Sub CouleurRouge()

With ActiveSheet()
'On Error Resume Next
For Each c In Range("L8:L" & Range("H65536").End(xlUp).Row)
Range(c.Address).Interior.ColorIndex = 2
If Range(c.Address).Offset(0, -8) < Range(c.Address) Then
_
Range(c.Address).Interior.ColorIndex = 3
' ici je voudrais aussi que la cellule clignote
Next
End With
End Sub

Merci pour votre temps

Denys
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Quetzalcoatl
Le #4940521
Bonsoir,

Bonsoir,

A partir du code de Bill Manville (traduction Flo) sur http://www.excelabo.net/excel/formatsdiv.php#clignotant

Public NextTime As Date

Sub CouleurRouge()
For Each c In Range("L8:L" & Range("H65536").End(xlUp).Row)
If c.Offset(0, -8) < c Then c.Style = "Flash"
Next
Flash
End Sub

Sub Flash()
NextTime = Now + TimeValue("00:00:01")
With ActiveWorkbook.Styles("Flash").Interior
If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2
End With
Application.OnTime NextTime, "Flash"
End Sub

' pour arrêter le clignotement
Sub StopIt()
Application.OnTime NextTime, "Flash", schedule:úlse
ActiveWorkbook.Styles("Flash").Interior.ColorIndex = xlColorIndexNone
End Sub


"Denys" Bonjour à tous,

Je sais qu'il y a plusieurs questions concernant ce sujet, mais
malheureusement, je n'ai rien trouvé qui fonctionnait pour moi.

J'ai aussi exploré le site de Frédéric Sigonneau et celui
d'excellabo...

Avec la macro qui suit les cellules deviennent rouges... mais je
souhaiterais aussi qu'elles clignotent tant qu'elles seront rouges....

Auriez-vous une idée ?

Sub CouleurRouge()

With ActiveSheet()
'On Error Resume Next
For Each c In Range("L8:L" & Range("H65536").End(xlUp).Row)
Range(c.Address).Interior.ColorIndex = 2
If Range(c.Address).Offset(0, -8) < Range(c.Address) Then
_
Range(c.Address).Interior.ColorIndex = 3
' ici je voudrais aussi que la cellule clignote
Next
End With
End Sub

Merci pour votre temps

Denys
Denys
Le #4940511
Bonsoir Quetzalcoatl,

Merci infiniment... Je regarde tout ça et te reviens bientôt....

Bonne soirée

Denys



On 6 juin, 15:56, "Quetzalcoatl" wrote:
Bonsoir,

Bonsoir,

A partir du code de Bill Manville (traduction Flo) surhttp://www.excelabo .net/excel/formatsdiv.php#clignotant

Public NextTime As Date

Sub CouleurRouge()
For Each c In Range("L8:L" & Range("H65536").End(xlUp).Row)
If c.Offset(0, -8) < c Then c.Style = "Flash"
Next
Flash
End Sub

Sub Flash()
NextTime = Now + TimeValue("00:00:01")
With ActiveWorkbook.Styles("Flash").Interior
If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2
End With
Application.OnTime NextTime, "Flash"
End Sub

' pour arrêter le clignotement
Sub StopIt()
Application.OnTime NextTime, "Flash", schedule:úlse
ActiveWorkbook.Styles("Flash").Interior.ColorIndex = xlColorIndexNone
End Sub

"Denys" Bonjour à tous,

Je sais qu'il y a plusieurs questions concernant ce sujet, mais
malheureusement, je n'ai rien trouvé qui fonctionnait pour moi.

J'ai aussi exploré le site de Frédéric Sigonneau et celui
d'excellabo...

Avec la macro qui suit les cellules deviennent rouges... mais je
souhaiterais aussi qu'elles clignotent tant qu'elles seront rouges....

Auriez-vous une idée ?

Sub CouleurRouge()

With ActiveSheet()
'On Error Resume Next
For Each c In Range("L8:L" & Range("H65536").End(xlUp).Row)
Range(c.Address).Interior.ColorIndex = 2
If Range(c.Address).Offset(0, -8) < Range(c.Address) Then
_
Range(c.Address).Interior.ColorIndex = 3
' ici je voudrais aussi que la cellule clignote
Next
End With
End Sub

Merci pour votre temps

Denys


Quetzalcoatl
Le #4940431
N'oublie pas de définir un nouveau style nommé "Flash" :
Format > Style > Flash > Ajouter
comme indiqué sur Excelabo.
Possibilité aussi de le faire en VBA : ActiveWorkbook.Styles.Add Name:="Flash"


"Denys"
Bonsoir Quetzalcoatl,

Merci infiniment... Je regarde tout ça et te reviens bientôt....

Bonne soirée

Denys
Publicité
Poster une réponse
Anonyme