Redimmensionner une Textbox progressivement

Bonjour,
Je pensais avoir la réponse et pourtant mon code ne marche pas. Je voudrais pouvoir redimmensionner ma textbox lentement pour faire un effet de deroulement.

Voici mon code :

Code:

---

1 2 3 4 5 6 7

Dim i As Integer   For i = 1 To 100 Sleep (100) Sheets("CIR Analyser").Shapes("TextBox 5").Height = i Next i

---

La fonction Sleep est deja declaree dans un autre module. Pour l instant je ne vois que le resultat final. J ai essaye d augmenter le temps de sleep mais rien y fait. Mon Screenupdating est bien a True. Je ne comprends pas ce que je fais de faux . Pourriez vous m aidez ?

Finalement j ai trouvé, il suffit de rajouter DoEvents :

Code:

---

1 2 3 4 5 6 7 8 9

Dim i As Integer   For i = 1 To 100 DoEvents Sleep (10) Sheets("CIR Analyser").Shapes("TextBox 5").Height = i Next i

---