Pourquoi exceller ne cache pas ma forme?

Question

J'utilise ce code ci-dessous ...

Declare Sub Sleep Lib "kernel32" (ByVal Milliseconds As Long) 
Sub blink() 
    Sleep 500 
    ActiveSheet.Shapes("the_shape").Visible = False 
    Sleep 500 
    ActiveSheet.Shapes("the_shape").Visible = True 
End Sub 

suis-je manque quelque chose?

Answer 1

C'est assez étrange. L'ajout de DoEvents a résolu le problème. Je devine que Sleep suspend le fil avant que Excel ait une chance de cacher la forme.

Declare Sub Sleep Lib "kernel32" (ByVal Milliseconds As Long) 

Sub blink() 
    Sleep 500 
    ActiveSheet.Shapes("the_shape").Visible = False 
    DoEvents 
    Sleep 500 
    ActiveSheet.Shapes("the_shape").Visible = True 
End Sub