forcer l'affichage

[takeiteasy]

Bonjour,

Comment peut-on forcer l'affichage d'un compteur dans un label...du style

for t = 1 to 5000
userform1.label1.caption=t

' ici est l'évolution à surveiller

next t

Pour le moment l'affichage ne se fait qu'une fois la boucle terminée


merci d'avance

 

[job75]

Re : forcer l'affichage

Bonjour,

Pour le moment l'affichage ne se fait qu'une fois la boucle terminée

Pas du tout, mais ça va si vite que l'on ne voit que la valeur finale.

Exécuter par exemple :

Private Sub CommandButton1_Click()
For t = 1 To 5000
UserForm1.Label1.Caption = t
If t = 1000 Then Exit For
Next t
End Sub

A+

 

[job75]

Re : forcer l'affichage

Re,

Autant pour moi, vous avez raison, j'ai exécuté cette macro :

Private Sub CommandButton1_Click()
For t = 1 To 10
Application.Wait Now + 1 / 86400
UserForm1.Label1.Caption = t
Next t
End Sub

On voit s'afficher 1, 2 parfois 3, parfois 4... puis 10.

Je ne sais pas pourquoi ça se passe ainsi. Une idée mdF (Didier) ? 😕

A+

 

[myDearFriend!]

Re : forcer l'affichage

Bonjour takeiteasy, job75 😉, le Forum,

A tester :

[COLOR=NAVY]Private Sub[/COLOR] CommandButton1_Click()
[COLOR=NAVY]Dim[/COLOR] t [COLOR=NAVY]As Integer
    For[/COLOR] t = 1 [COLOR=NAVY]To[/COLOR] 1000
        UserForm1.Label1.Caption = t
        [B]DoEvents[/B]
    [COLOR=NAVY]Next[/COLOR] t
[COLOR=NAVY]End Sub[/COLOR]

Cordialement,

 

[Cousinhub]

Re : forcer l'affichage

Bonjour,

Bonjour Didier et Job

ou peut-être Repaint?

Private Sub CommandButton1_Click()
For t = 1 To 1000
    Me.Repaint
    UserForm1.Label1.Caption = t
Next t
End Sub

 

[job75]

Re : forcer l'affichage

Bonjour Didier, et merci 🙂

J'ai refait tourner ma macro (sans DoEvents) sur un nouveau classeur et là, presque tout le temps, tous les nombres s'affichent.

J'ai testé avec DoEvents, je n'ai pas vu de cas où il manque des nombres. A suivre...

Edit 1 : salut bh2, pas testé mais je suppose que ça doit être bien aussi...

Edit 2 : testé cette macro, avec Repaint l'affichage est incorrect :

Private Sub CommandButton1_Click()
For t = 1 To 100000
Me.Repaint
UserForm1.Label1.Caption = t
Next t
End Sub

A+

 

[takeiteasy]

Re : forcer l'affichage

Merci à tous..
la solution Doevents fonctionne parfaitement