Magic_Doctor
XLDnaute Barbatruc
Bonsoir,
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 :
Le bouton vert est visible en permanence.
Comment s'y prendre ?
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
Comment s'y prendre ?