Faire clinioté ce qu'il y a dans une cellule

Bonjour je me demande si cest possible de faire clinioté ce qu'il y a dans
une cellule A1, si oui comment faire.

Merci

Bonsoir,

Tapes "clignoter" dans le module de recherche de
www.excelabo.net

--
François L

Pour faire clignoter la valeur d'une cellule, une solution parmi d'autres (de Bill Manville).
Recopier le code ci-dessous dans un module standard et exécuter la procédure Flash.
Puis sélectionner la cellule à faire clignoter et lui attribuer le style Flash.
Pour créer un nouveau style : FormatStyle, taper Flash dans la zone Nom
du style puis cliquer sur Ajouter.
Prévoir un bouton (relié à la procédure StopIt)
pour arrêter le clignotement.

'============ 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:úlse
ActiveWorkbook.Styles("Flash").Font.ColorIndex = xlAutomatic
End Sub
'============
Une autre suggestion de AV,

Pour faire clignoter le contenu de A1 (couleur de police originelle > noir):

'Api -> doit être déclaré dans le haut d'un module
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'-------------------------------
Sub Clignote1()
Dim i As Integer
For i = 0 To 20
If [A1].Font.ColorIndex = 3 Then
[A1].Font.ColorIndex = 5
[A1].Font.Size = 12
Else: [A1].Font.ColorIndex = 3
[A1].Font.Size = 20
End If
Sleep (100)
DoEvents
Next i
[A1].Font.Size = 12
[A1].Font.ColorIndex = 1
End Sub
'-------------------------------




"Aiwa" <Aiwa@discussions.microsoft.com> a écrit dans le message de news:
5B7624BA-CED9-4CED-A695-9E02981AE77B@microsoft.com...
Bonjour je me demande si cest possible de faire clinioté ce qu'il y a dans
une cellule A1, si oui comment faire.

Merci

Bonsoir,

On fait clignoter la cellule si le total de la cellule A1 dépasse 100.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([B2:B6], Target) Is Nothing And Target.Count = 1
Then
If [A1] > 100 Then Clignote "A1", 10
End If
End Sub

Sub Clignote(c, nb)
couleuractuelle = Range(c).Interior.ColorIndex
For n = 1 To nb
ActiveSheet.Range(c).Interior.ColorIndex = 33
Fin = Timer + 0.5
Do While Timer < Fin: DoEvents: Loop
ActiveSheet.Range(c).Interior.ColorIndex = couleuractuelle
Fin = Timer + 0.5
Do While Timer < Fin: DoEvents: Loop
Next n
End Sub

http://boisgontierjacques.free.fr/fichiers/Evenementiel/OnTimeChrono.xls

JB

On 14 avr, 18:24, Aiwa <A...@discussions.microsoft.com> wrote:

Bonjour je me demande si cest possible de faire clinioté ce qu'il y a d ans
une cellule A1, si oui comment faire.

Merci