eliot raymond
XLDnaute Occasionnel
Bonsoir a tous et toutes, forum bonsoir,
Après avoir fouillé un peu je viens de trouver un petit truc sympa !
Mais je n'arrive pas a faire marcher ce code sous mon excel 07
Alors tout d'abord t'as une procédure "Flash" :
Tu peux changer les couleurs et tout ce qui t'intéresse !
Ensuite, dans ta macro principale tu mets un classique :
Enfin, tu crées un style pour ta cellule A3 que tu appelles Flashing (tu mets ce que tu veux dans ton style).
je ne comprends pas bien ce code
si un peu de temps dispo svp merci pour petit coup de main
Bonne soirée a vous et merci
Raymond
Après avoir fouillé un peu je viens de trouver un petit truc sympa !
Mais je n'arrive pas a faire marcher ce code sous mon excel 07
Alors tout d'abord t'as une procédure "Flash" :
Code:
Sub Flash()
NextTime = Now + TimeValue("00:00:02") ' Fréquence du "Flash"
With ActiveWorkbook.Styles("Flashing").Font
If .ColorIndex = xlAutomatic Then .ColorIndex = 3
.ColorIndex = 5 - .ColorIndex
End With
Application.OnTime NextTime, "Flash"
End Sub
Tu peux changer les couleurs et tout ce qui t'intéresse !
Ensuite, dans ta macro principale tu mets un classique :
Code:
If Range("A2")="10" Then
Range("A3")="Erreur !!! Ca va exploser !!!"
Call Flash
End if
Enfin, tu crées un style pour ta cellule A3 que tu appelles Flashing (tu mets ce que tu veux dans ton style).
je ne comprends pas bien ce code
si un peu de temps dispo svp merci pour petit coup de main
Bonne soirée a vous et merci
Raymond