Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
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 .
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 -Canada@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : 73252DB7-73BB-489E-8F80-769CE6602FE7@microsoft.com...
je veux savoir est ce qu'on peut faire l'animation d'un mot sur excel
(clignotant)
comme dans word .
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 .