XL 2010 Problème de maniement de Application.Wait

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 :
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 ?
 

eriiic

XLDnaute Barbatruc
Bonjour,

Wait n'est pas du tout précis.
Je te propose ça :
VB:
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
 

Statistiques des forums

Discussions
311 711
Messages
2 081 789
Membres
101 817
dernier inscrit
carvajal