mot clignotant dans une cellule excel

Le
Mourad Braham - Montréal -Canada
je veux savoir est ce qu'on peut faire l'animation d'un mot sur excel
(clignotant)
comme dans word .
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #18442331
Et un très bon truc de Bill Manville
Combiner les styles et une macro Application.OnTime

'To create a blinking cell:

'If you define a new Style (Format / Style / Flash/ Add ) and apply
'that style to the cells you want to flash, paste the following code
'into a module sheet and run the procedure Flash from Auto-Open if
'desired you will get the text flashing alternately white and red.

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ée dans le haut d'un module Standard.
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




"Mourad Braham - Montréal -Canada" <Mourad Braham -
Montréal a écrit dans le message de groupe de
discussion :
je veux savoir est ce qu'on peut faire l'animation d'un mot sur excel
(clignotant)
comme dans word .
Publicité
Poster une réponse
Anonyme