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
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
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" <denys.perreault@rbc.com> a écrit dans le message de news: 1181155927.315768.47270@x35g2000prf.googlegroups.com...
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
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
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
Bonsoir Quetzalcoatl,
Merci infiniment... Je regarde tout ça et te reviens bientôt....
Bonne soirée
Denys
On 6 juin, 15:56, "Quetzalcoatl" <quetzalHIHIHIco...@free.fr.invalid>
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:=False
ActiveWorkbook.Styles("Flash").Interior.ColorIndex = xlColorIndexNone
End Sub
"Denys" <denys.perrea...@rbc.com> a écrit dans le message de news: 1181 155927.315768.47...@x35g2000prf.googlegroups.com...
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 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
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
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" <denys.perreault@rbc.com> a écrit dans le message de news: 1181160115.537693.46510@j4g2000prf.googlegroups.com...
Bonsoir Quetzalcoatl,
Merci infiniment... Je regarde tout ça et te reviens bientôt....
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....