je tente de maîtriser cette fonction éditer sur Excelabo
http://www.excelabo.net/xl/formats.php#clignotant
afin de paramétrer son application
Sub Flash()
NextTime = Now + TimeValue("00:00:01")
With ActiveWorkbook.Styles("Flash").Font
If .ColorIndex = 1 Then .ColorIndex = 3 Else .ColorIndex = 1
End With
Application.OnTime NextTime, "Flash"
End Sub
À la compilation rien ne cloche, par contre au moment de l'exécution je fais
face a un message d'erreur d'exécution 1004 (Erreur définis par
l'application ou par l'objet) au moment de passer à instruction "Then
.ColorIndex =3"
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
Mario Limoges
Noter que j'avais préalablement appliqué les directives prescrites :
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.
"Mario Limoges" a écrit dans le message de news: xzqmg.35571$
Bonjour à tous, (excel 2002 Win xp)
je tente de maîtriser cette fonction éditer sur Excelabo http://www.excelabo.net/xl/formats.php#clignotant afin de paramétrer son application
Sub Flash() NextTime = Now + TimeValue("00:00:01") With ActiveWorkbook.Styles("Flash").Font If .ColorIndex = 1 Then .ColorIndex = 3 Else .ColorIndex = 1 End With
Application.OnTime NextTime, "Flash" End Sub
À la compilation rien ne cloche, par contre au moment de l'exécution je fais face a un message d'erreur d'exécution 1004 (Erreur définis par l'application ou par l'objet) au moment de passer à instruction "Then .ColorIndex =3"
Quelqu'un peut m'aider à voir claire
Merci à l'avance
Mario
Noter que j'avais préalablement appliqué les directives prescrites :
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.
"Mario Limoges" <mario.limoges@videotron.ca> a écrit dans le message de
news: xzqmg.35571$1f2.574188@weber.videotron.net...
Bonjour à tous, (excel 2002 Win xp)
je tente de maîtriser cette fonction éditer sur Excelabo
http://www.excelabo.net/xl/formats.php#clignotant
afin de paramétrer son application
Sub Flash()
NextTime = Now + TimeValue("00:00:01")
With ActiveWorkbook.Styles("Flash").Font
If .ColorIndex = 1 Then .ColorIndex = 3 Else .ColorIndex = 1
End With
Application.OnTime NextTime, "Flash"
End Sub
À la compilation rien ne cloche, par contre au moment de l'exécution je
fais face a un message d'erreur d'exécution 1004 (Erreur définis par
l'application ou par l'objet) au moment de passer à instruction "Then
.ColorIndex =3"
Noter que j'avais préalablement appliqué les directives prescrites :
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.
"Mario Limoges" a écrit dans le message de news: xzqmg.35571$
Bonjour à tous, (excel 2002 Win xp)
je tente de maîtriser cette fonction éditer sur Excelabo http://www.excelabo.net/xl/formats.php#clignotant afin de paramétrer son application
Sub Flash() NextTime = Now + TimeValue("00:00:01") With ActiveWorkbook.Styles("Flash").Font If .ColorIndex = 1 Then .ColorIndex = 3 Else .ColorIndex = 1 End With
Application.OnTime NextTime, "Flash" End Sub
À la compilation rien ne cloche, par contre au moment de l'exécution je fais face a un message d'erreur d'exécution 1004 (Erreur définis par l'application ou par l'objet) au moment de passer à instruction "Then .ColorIndex =3"
Quelqu'un peut m'aider à voir claire
Merci à l'avance
Mario
HD
Noter que j'avais préalablement appliqué les directives prescrites : Définit un nouveau style (format/style/Flash/ajouter)
Le style "Flash" n'est pas disponible sur Excel 97 ?
-- @+ HD
Noter que j'avais préalablement appliqué
les directives prescrites : Définit un
nouveau style (format/style/Flash/ajouter)
Le style "Flash" n'est pas disponible sur Excel 97 ?
