SFO a écrit :
Bonjour !
Voilà la question, c'est dans le titre. Ca existe sous Word, mais sous Excel 2000 SR-1, j'ai pas trouvé, me semble que c'est la commande "blink", mais faut aussi la configurer...
Merci pour votre aide
|
Salut
Je ne suis pas sûr d'avoir saisi ce que tu souhaites faire (en particulier je ne crois pas connaître le truc sur word) mais je te propose cette macro que j'ai trouvé il y a quelques temps sur la toile comme on dit:
[cpp]Public OrigBkgCol As Long, OrigTxtCol As Long
Public OldCell As Range
Sub InitFlash()
Set OldCell = ActiveCell
OrigBkgCol = ActiveCell.Interior.ColorIndex
OrigTxtCol = ActiveCell.Font.ColorIndex
Application.OnTime Now + TimeValue("00:00:01" ), "Flash"
End Sub
Sub Flash()
If ActiveCell.Interior.ColorIndex < 0 Then
ActiveCell.Interior.ColorIndex = 3 'fond roge
ActiveCell.Font.ColorIndex = 2 'texte en blanc
Else
ActiveCell.Interior.ColorIndex = (ActiveCell.Interior.ColorIndex + 1) Mod 2
ActiveCell.Font.Color = 1
End If
Application.OnTime Now + TimeValue("00:00:01" ), "Flash"
End Sub
'Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' On Error GoTo zut
' OldCell.Interior.ColorIndex = OrigBkgCol
' OldCell.Font.ColorIndex = OrigTxtCol
' OrigBkgCol = Target.Interior.ColorIndex
' OrigTxtCol = Target.Font.ColorIndex
' Set OldCell = Target
'zut:
'End Sub [cpp]
Message édité par TAM136 le 07-03-2007 à 12:28:16