Bonsoir
j'ai essayé de faire fonctionner cette proc, mais cela ne fonctionne pas
elle plante sur cette ligne :
With ActiveWorkbook.Styles("Flash").Font
merci de votre aide
Hervé
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
--
Pour passer un examen, c'est comme pour nettoyer un vêtement :
On mouille, on sèche et on repasse ;o))
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
Hervé
Euh... Bonsoir et merci comment créer un style perso ? Excel 97 Hervé
"anomymousA" a écrit dans le message de news:
bonjour,
as-tu défini un style personnalisé "Flash" dans le styles de ton classeur, car je ne crois pas qu'il existe un style "Flash" prédéfini par Excel.
A+
Bonsoir j'ai essayé de faire fonctionner cette proc, mais cela ne fonctionne pas elle plante sur cette ligne : With ActiveWorkbook.Styles("Flash").Font merci de votre aide Hervé
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
-- Pour passer un examen, c'est comme pour nettoyer un vêtement : On mouille, on sèche et on repasse ;o))
Euh... Bonsoir et merci
comment créer un style perso ?
Excel 97
Hervé
"anomymousA" <anomymousA@discussions.microsoft.com> a écrit dans le message
de news: E4116812-F3F5-430F-B87F-7F553C1F8292@microsoft.com...
bonjour,
as-tu défini un style personnalisé "Flash" dans le styles de ton classeur,
car je ne crois pas qu'il existe un style "Flash" prédéfini par Excel.
A+
Bonsoir
j'ai essayé de faire fonctionner cette proc, mais cela ne fonctionne pas
elle plante sur cette ligne :
With ActiveWorkbook.Styles("Flash").Font
merci de votre aide
Hervé
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
--
Pour passer un examen, c'est comme pour nettoyer un vêtement :
On mouille, on sèche et on repasse ;o))
Euh... Bonsoir et merci comment créer un style perso ? Excel 97 Hervé
"anomymousA" a écrit dans le message de news:
bonjour,
as-tu défini un style personnalisé "Flash" dans le styles de ton classeur, car je ne crois pas qu'il existe un style "Flash" prédéfini par Excel.
A+
Bonsoir j'ai essayé de faire fonctionner cette proc, mais cela ne fonctionne pas elle plante sur cette ligne : With ActiveWorkbook.Styles("Flash").Font merci de votre aide Hervé
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
-- Pour passer un examen, c'est comme pour nettoyer un vêtement : On mouille, on sèche et on repasse ;o))
Hervé
Ok merci beaucoup Hervé
"anomymousA" a écrit dans le message de news:
re,
en Excel97, je sais pas mais je suppose que c'est la même chose qu'en Excel si la focntionnalité existe ne 97. Aller dans format /Syle puis dans la boite de dialogue taper un nom et effectuer les choix que tu souhaites puis OK
A+
Euh... Bonsoir et merci comment créer un style perso ? Excel 97 Hervé
"anomymousA" a écrit dans le message de news:
bonjour,
as-tu défini un style personnalisé "Flash" dans le styles de ton classeur, car je ne crois pas qu'il existe un style "Flash" prédéfini par Excel.
A+
Bonsoir j'ai essayé de faire fonctionner cette proc, mais cela ne fonctionne pas elle plante sur cette ligne : With ActiveWorkbook.Styles("Flash").Font merci de votre aide Hervé
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
-- Pour passer un examen, c'est comme pour nettoyer un vêtement : On mouille, on sèche et on repasse ;o))
Ok merci beaucoup
Hervé
"anomymousA" <anomymousA@discussions.microsoft.com> a écrit dans le message
de news: 4EAA00EA-759F-4C84-9D43-8DE60D9670B4@microsoft.com...
re,
en Excel97, je sais pas mais je suppose que c'est la même chose qu'en
Excel
si la focntionnalité existe ne 97.
Aller dans format /Syle puis dans la boite de dialogue taper un nom et
effectuer les choix que tu souhaites puis OK
A+
Euh... Bonsoir et merci
comment créer un style perso ?
Excel 97
Hervé
"anomymousA" <anomymousA@discussions.microsoft.com> a écrit dans le
message
de news: E4116812-F3F5-430F-B87F-7F553C1F8292@microsoft.com...
bonjour,
as-tu défini un style personnalisé "Flash" dans le styles de ton
classeur,
car je ne crois pas qu'il existe un style "Flash" prédéfini par Excel.
A+
Bonsoir
j'ai essayé de faire fonctionner cette proc, mais cela ne fonctionne
pas
elle plante sur cette ligne :
With ActiveWorkbook.Styles("Flash").Font
merci de votre aide
Hervé
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
--
Pour passer un examen, c'est comme pour nettoyer un vêtement :
On mouille, on sèche et on repasse ;o))
en Excel97, je sais pas mais je suppose que c'est la même chose qu'en Excel si la focntionnalité existe ne 97. Aller dans format /Syle puis dans la boite de dialogue taper un nom et effectuer les choix que tu souhaites puis OK
A+
Euh... Bonsoir et merci comment créer un style perso ? Excel 97 Hervé
"anomymousA" a écrit dans le message de news:
bonjour,
as-tu défini un style personnalisé "Flash" dans le styles de ton classeur, car je ne crois pas qu'il existe un style "Flash" prédéfini par Excel.
A+
Bonsoir j'ai essayé de faire fonctionner cette proc, mais cela ne fonctionne pas elle plante sur cette ligne : With ActiveWorkbook.Styles("Flash").Font merci de votre aide Hervé
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
-- Pour passer un examen, c'est comme pour nettoyer un vêtement : On mouille, on sèche et on repasse ;o))
