boucle for/next

[Jer]

Bonjour à tous

je souhaite afficher
"1", "1.5", "2", "2.5", ... ,"5", successivement dans un text box à chaque fois que je clique sur un commandbouton.

mon code est :

sub commandbutton1_click()
for x1 = 1 to 5 step 0.5
textbox1.value = x1
next x1
end sub

mais cela m'affiche directement "5" dans le textbox lorsque je clique sur mon bouton !

ou est mon erreur ?
merci de votre aide

 

[sousou]

Ta boucle fait bien le travail, mais Vite.

Elle s'arrète correctement à la fin quant ta variable est arrivée à 5

de plus il faut repeindre la boite.

Private Sub CommandButton1_Click()
For i = 1 To 5 Step 0.5
Label1.Caption = i
UserForm1.Repaint
dep = Timer
While Timer < dep + 1
Wend

Next


End Sub