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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 ?