Rotation d'une forme insérée

Bonjour.

Vous lisez mon tout premier message sur ce forum!

Ci-dessous, voici un code très simple que j'ai créé pour donner un aspect visuel à une forme (un rectangle aux coins arrondis), de telle sorte qu'elle disparaisse progressivement par une rotation.

Ce code fonctionne parfaitement lorsque je le teste en pas à pas, mais si la procédure est exécutée "normalement", l'effet de rotation n'est pas visible à l'écran.

Je serais ravi de recevoir vos lumières à ce sujet. Merci d'avance.

Sub rotation_forme()
Dim Angle As Byte, t As Single
For Angle = 10 To 90 Step 10
ActiveSheet.Shapes.Range(Array("Rounded Rectangle 2")).ThreeD.RotationY = Angle
t = Timer
Do While Timer < t + 0.2
Loop
Next Angle
End Sub

Bonjour et bienvenu sur le forum.

Si tu veux avoir un maximum de réponse à ta demande n'hésite pas a joindre

un exemplaire anonymisé de ton fichier

Cordialement

Merci Joco

Voici le fichier:

Bonjour

Ton fichier en retour chez moi cela fonctionne après affectation des macros sur les boutons

Bonjour,

Mettez "DoEvents" dans la boucle "Do While"

        Do While Timer < t + 0.2
            DoEvents
        Loop

Cdlt

Merci Joco, mais ça ne fonctionne toujours pas chez moi.

La solution m'est venue grâce à Arturo. Trop génial, Merci pour tes lumières.

C'est tellement simple quand on sait faire !