J'ai 2 icônes superposées. L'une étant un bouton vert, l'autre un bouton rouge. Le bouton rouge se trouve derrière le bouton vert.
J'affecte au bouton vert (visible par défaut) une macro qui fasse que lorsque je clique sur celui-ci, il disparaisse ; le bouton rouge est donc visible, et une seconde après le bouton vert réapparaît pour occulter le bouton rouge. En somme, c'est un effet visuel que je désire.
J'ai bien tenté ainsi :
VB:
Sub Bouton()
'"Bouton1" est le bouton vert
ActiveSheet.Shapes("Bouton1").Visible = False
Application.Wait Time + TimeSerial(0, 0, 1)
ActiveSheet.Shapes("Bouton1").Visible = True
End Sub
Le bouton vert est visible en permanence.
Comment s'y prendre ?
Sub Bouton()
'"Bouton1" est le bouton vert
ActiveSheet.Shapes("Bouton1").Visible = False
timerS 1
ActiveSheet.Shapes("Bouton1").Visible = True
End Sub
Sub timerS(t As Double)
Dim s As Double
s = Timer: Do While Timer < s + t: DoEvents: Loop
End Sub
Précis au 1/100 et tu peux mettre des secondes décimales si besoin.
Ex : timerS 1.5
Pour un effet visuel ça devrait être suffisant.
eric