Discussion :

[jazzybluesy]

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 ?

[jazzybluesy]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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