Une cellule qui clignote

Comment faire clignoter du texte dans une cellule ?

Sans macro, pas possible dans excel...
Avec une macro de Bill Manville : Pour créer une cellule qui clignote : Définit un nouveau style (format/style/Flash/ajouter) Applique le à la cellule que tu choisis, place le code suivant dans un module de feuille et lance la procédure flash en tant que auto-open.
Le texte clignote entre rouge et blanc. Dim NextTime As Date

sub Flash()
NextTime = Now +
TimeValue("00:00:01")
With ActiveWorkbook.Styles("Flash").Font
If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2
End With

Application.OnTime NextTime, "Flash"
end sub

sub StopIt()

Application.OnTime NextTime, "Flash", schedule:=False

ActiveWorkbook.Styles("Flash").Font.ColorIndex = xlAutomatic
end sub

Bill Manville (traduction Flo) **************************** Autre solution : Comment faire pour qu'une cellule clignote quand la souris passe dessus. Je suppose ici que la cellule que tu veux faire clignoter est B5. 1. Sors la boîte à outils Contrôles, 2. Insère un contrôle Image (sans image !) sur ta cellule, 3. Choisis les propriétés suivantes pour ton contrôle : BackStyle : Transparent BorderStyle : None 4. Le contrôle doit avoir les mêmes dimensions que ta cellule, 5. Utilise alors les deux macros suivantes :

Private sub Image1_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Call Clignote
end sub
sub Clignote()
For i = 1 To 50
With [B5].Interior
.ColorIndex = 3
ColorIndex = xlNone
End With
Next i
end sub

Ce mois-ci sur Excelabo

- Pas de nouvelle page.
- 7 pages modifiées.