Bonjour
Comment puis-je demander à XL de mettre une cel en rouge pendant 30 sec,
puis l'éteindre et mettre une autre en vert au moment de la remise en blanc
de la première?
Je n'ai jamais bricolé dans la fonction durée et je ne sais à quel Saint me
vouer.
Un grand merci
Jacques (colorieur de feux de signalisation routière)
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.
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
LSteph
Re Bonsoir,
A tester ici pour 5 secondes au lieu de 30
'dans code feuille '*** Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.OnTime Now + TimeValue("00:00:05"), "that" [c5].Interior.ColorIndex = 3
End Sub
'*** ' dans module '*** Public alter As Boolean Public Sub that()
[c5].Interior.ColorIndex = 0 Application.OnTime Now + TimeValue("00:00:05"), "deb" [c6].Interior.ColorIndex = 10 End Sub
Sub deb() alter = Not alter [c6].Interior.ColorIndex = 0 Cells(2 + alter, 2).Select
End Sub '*** 'lSteph
"Jacquouille" a écrit dans le message de news:
Bonjour Comment puis-je demander à XL de mettre une cel en rouge pendant 30 sec, puis l'éteindre et mettre une autre en vert au moment de la remise en blanc de la première? Je n'ai jamais bricolé dans la fonction durée et je ne sais à quel Saint me vouer. Un grand merci Jacques (colorieur de feux de signalisation routière)
-- Bien amicalmement, Vivement conseillés: http://www.excelabo.net http://jacxl.free.fr/mpfe/trombino.html http://dj.joss.free.fr/netiquet.htm Jacquouille.
Re Bonsoir,
A tester ici pour 5 secondes au lieu de 30
'dans code feuille
'***
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.OnTime Now + TimeValue("00:00:05"), "that"
[c5].Interior.ColorIndex = 3
End Sub
'***
' dans module
'***
Public alter As Boolean
Public Sub that()
[c5].Interior.ColorIndex = 0
Application.OnTime Now + TimeValue("00:00:05"), "deb"
[c6].Interior.ColorIndex = 10
End Sub
Sub deb()
alter = Not alter
[c6].Interior.ColorIndex = 0
Cells(2 + alter, 2).Select
End Sub
'***
'lSteph
"Jacquouille" <NoSpam_j.thiernesse@skynet.be> a écrit dans le message de
news: e9Y1fzuZFHA.3768@TK2MSFTNGP10.phx.gbl...
Bonjour
Comment puis-je demander à XL de mettre une cel en rouge pendant 30 sec,
puis l'éteindre et mettre une autre en vert au moment de la remise en
blanc de la première?
Je n'ai jamais bricolé dans la fonction durée et je ne sais à quel Saint
me vouer.
Un grand merci
Jacques (colorieur de feux de signalisation routière)
--
Bien amicalmement,
Vivement conseillés:
http://www.excelabo.net
http://jacxl.free.fr/mpfe/trombino.html
http://dj.joss.free.fr/netiquet.htm
Jacquouille.
'dans code feuille '*** Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.OnTime Now + TimeValue("00:00:05"), "that" [c5].Interior.ColorIndex = 3
End Sub
'*** ' dans module '*** Public alter As Boolean Public Sub that()
[c5].Interior.ColorIndex = 0 Application.OnTime Now + TimeValue("00:00:05"), "deb" [c6].Interior.ColorIndex = 10 End Sub
Sub deb() alter = Not alter [c6].Interior.ColorIndex = 0 Cells(2 + alter, 2).Select
End Sub '*** 'lSteph
"Jacquouille" a écrit dans le message de news:
Bonjour Comment puis-je demander à XL de mettre une cel en rouge pendant 30 sec, puis l'éteindre et mettre une autre en vert au moment de la remise en blanc de la première? Je n'ai jamais bricolé dans la fonction durée et je ne sais à quel Saint me vouer. Un grand merci Jacques (colorieur de feux de signalisation routière)
-- Bien amicalmement, Vivement conseillés: http://www.excelabo.net http://jacxl.free.fr/mpfe/trombino.html http://dj.joss.free.fr/netiquet.htm Jacquouille.
