Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Cellules clignotantes

Cellules clignotantes

3 réponses
Avatar
Denys
Bonjour =E0 tous,

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

J'ai aussi explor=E9 le site de Fr=E9d=E9ric 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=E9e ?

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 =3D 2
If Range(c.Address).Offset(0, -8) < Range(c.Address) Then
_
Range(c.Address).Interior.ColorIndex =3D 3
' ici je voudrais aussi que la cellule clignote
Next
End With
End Sub

Merci pour votre temps

Denys
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Quetzalcoatl
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" a écrit dans le message de news:
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
Avatar
Denys
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" a écrit dans le message de news: 1181
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


Avatar
Quetzalcoatl
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" a écrit dans le message de news:

Bonsoir Quetzalcoatl,

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

Bonne soirée

Denys