Excel 2000 : cellule ou texte clignotant

Excel 2000 : cellule ou texte clignotant - Logiciels - Windows & Software

Marsh Posté le 06-03-2007 à 11:18:29    

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 ;)

Reply

Marsh Posté le 06-03-2007 à 11:18:29   

Reply

Marsh Posté le 07-03-2007 à 08:22:39    

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
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed