Rafraichissement des textbox lors d'une boucle for-nextRésolu

Question

Bonjour,

une petite question que vous trouverez peut être bête mais que j'essaye de resoudre depuis un moment :

J'ai une zone de texte sur un userform sur excel

je veux y mettre ce code lancé par un bouton :

Private Sub CommandButton1_Click()
For n = 1 To 10
Application.Wait (Now + TimeValue("0:00:01"))
UserForm1.TextBox1.Text = n
Next n
End Sub

donc il devrait m'afficher dans le textbox toutes les secondes un chiffre partant de 1 à 10.
or il ne m'affiche que le 1 puis reste figé et à la fin le 10

Comment faire pour le textbox soit rafraichi à chaque nombre ?

Merci par avance

Utilisateur anonyme · Accepted Answer

Salut,

Rajoute un DoEvents pour laisser la main a l'affichage.



Private
 
Sub
 CommandButton1_Click()

  
For
 n = 1 
To
 10

    Application.Wait(Now + TimeValue(
"0:00:01"
))

    UserForm1.TextBox1.Text = n

    DoEvents

  
Next
 n

End
 
Sub



Kenji

Merci de lire le règlement (vivement conseillé voir obligatoire).

/FONT>

RickTheAlone · Answer

Merci bien c'est juste ce qu'il me fallait.
Je connaissais pas cette fonction
A bientôt

Rafraichissement des textbox lors d'une boucle for-next

2 réponses

Votre réponse

Discussions similaires