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
Bonjour Valéry,
Procédure de Bill Manville MVP anglais
A ) Tu sélectionnes ta cellule (tes cellules) B ) Barre d'outils / format / Styles / Tu tapes "Flash" et un clic sur le bouton ajouter ... pour ajouter un nouveau style. Important de conserve le nom Flash
Dans le haut de module, tu déclarares la variable NextTime
Il ne reste plus qu'à exécuter la procédure Flash pour lancer le clignotement et l'autre 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 '============
Salutations!
"valéry" <valé a écrit dans le message de news: Bonjour comment puis faire clignoter une cellule sous condition de date? Merci d'avance
Bonjour Valéry,
Procédure de Bill Manville MVP anglais
A ) Tu sélectionnes ta cellule (tes cellules)
B ) Barre d'outils / format / Styles / Tu tapes "Flash" et un clic sur le bouton ajouter ... pour ajouter un nouveau style.
Important de conserve le nom Flash
Dans le haut de module, tu déclarares la variable NextTime
Il ne reste plus qu'à exécuter la procédure Flash pour lancer le clignotement et l'autre 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
'============
Salutations!
"valéry" <valéry@discussions.microsoft.com> a écrit dans le message de news: B4D5BAAE-3B75-4863-AFBF-97827C7676FF@microsoft.com...
Bonjour comment puis faire clignoter une cellule sous condition de date?
Merci d'avance
A ) Tu sélectionnes ta cellule (tes cellules) B ) Barre d'outils / format / Styles / Tu tapes "Flash" et un clic sur le bouton ajouter ... pour ajouter un nouveau style. Important de conserve le nom Flash
Dans le haut de module, tu déclarares la variable NextTime
Il ne reste plus qu'à exécuter la procédure Flash pour lancer le clignotement et l'autre 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 '============
Salutations!
"valéry" <valé a écrit dans le message de news: Bonjour comment puis faire clignoter une cellule sous condition de date? Merci d'avance
MichDenis
Évidemment, tu dois affecter la ou les cellules du style Flash que tu viens de définir !
Salutations!
"MichDenis" a écrit dans le message de news: Bonjour Valéry,
Procédure de Bill Manville MVP anglais
A ) Tu sélectionnes ta cellule (tes cellules) B ) Barre d'outils / format / Styles / Tu tapes "Flash" et un clic sur le bouton ajouter ... pour ajouter un nouveau style. Important de conserve le nom Flash
Dans le haut de module, tu déclarares la variable NextTime
Il ne reste plus qu'à exécuter la procédure Flash pour lancer le clignotement et l'autre 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 '============
Salutations!
"valéry" <valé a écrit dans le message de news: Bonjour comment puis faire clignoter une cellule sous condition de date? Merci d'avance
Évidemment, tu dois affecter la ou les cellules du style Flash que tu viens de définir !
Salutations!
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news: uABqZRCTFHA.2756@tk2msftngp13.phx.gbl...
Bonjour Valéry,
Procédure de Bill Manville MVP anglais
A ) Tu sélectionnes ta cellule (tes cellules)
B ) Barre d'outils / format / Styles / Tu tapes "Flash" et un clic sur le bouton ajouter ... pour ajouter un nouveau style.
Important de conserve le nom Flash
Dans le haut de module, tu déclarares la variable NextTime
Il ne reste plus qu'à exécuter la procédure Flash pour lancer le clignotement et l'autre 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
'============
Salutations!
"valéry" <valéry@discussions.microsoft.com> a écrit dans le message de news: B4D5BAAE-3B75-4863-AFBF-97827C7676FF@microsoft.com...
Bonjour comment puis faire clignoter une cellule sous condition de date?
Merci d'avance
Évidemment, tu dois affecter la ou les cellules du style Flash que tu viens de définir !
Salutations!
"MichDenis" a écrit dans le message de news: Bonjour Valéry,
Procédure de Bill Manville MVP anglais
A ) Tu sélectionnes ta cellule (tes cellules) B ) Barre d'outils / format / Styles / Tu tapes "Flash" et un clic sur le bouton ajouter ... pour ajouter un nouveau style. Important de conserve le nom Flash
Dans le haut de module, tu déclarares la variable NextTime
Il ne reste plus qu'à exécuter la procédure Flash pour lancer le clignotement et l'autre 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 '============
Salutations!
"valéry" <valé a écrit dans le message de news: Bonjour comment puis faire clignoter une cellule sous condition de date? Merci d'avance
