Discussion :

[Gloubi99]

Bonjour

J'ai crée une boite userform non modale contenant un simple textbox pour tenir informer l'utilisateur du déroulement. Dans ma boucle, la boite s'affiche mais il n'y a que le tour ! ! ! l'intérieur est blanc, même pas gris.

Comme j'avais déjà utilisé ce principe dans une autre fonction de mon prog, je suis retourné voir si elle fonctionnait comme avant. Verdict : même problème.

Si je fais un ctrl+arret au milieu de ma boucle, l'affichage se remet comme il devrait.

J'ai du faire un truc qui empêche la maj de l'affichage mais je n'ai pas la moindre idée de quoi ?

Si vous avez une petite idée, je suis preneur ..

Merci d'avance à tous.

[sabzzz]

bonjour Gloubi99,

execute le code en mode pas à pas, tu pourras suivre de déroulement et vérifier chaque ligne du code.

[Gloubi99]

Bonjour Isabelle

Merci pour ton aide

Le code fonctionne Nickel en pas à pas.

Toutes les informations s'affichent dans ma boite même si je reste appuyer sur F8 mais en exécution normal : boite vide !

[sabzzz]

un code s'execute très rapidement, si tu n'as pas mits de pause dans la boucle et si la derniere valeur renseigner est une chaine vide, c'est normal,

[Gloubi99]

Ma chaine n'est pas vide

même en mettant une pause de 1 seconde avant et après, il affiche toujours rien !

En plus ma première Userform fonctionnait très bien sans pause et aujourd'hui alors que je n'ai rien modifié dans cette fonction, ça ne fonctionne plus !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub CommandButton1_Click()
 
UserForm1.Label1.Caption = "O"
UserForm1.Show 0
 
For i = 1 To 10
 
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 1
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
 
UserForm1.Label1.Caption = UserForm1.Label1.Caption + "O"
 
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 1
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
 
Next i
 
UserForm1.Hide
End Sub

affiche OO et c'est tout !

[sabzzz]

je ne comprend pas, ce bouton il est sur une feuille ou sur un userform ?
ou bien il y a 2 userform le bouton sert à appelez le 2 ème ?

[Gloubi99]

Le bouton est sur une feuille et appelle la boite non modale sensée faire défiler des infos matérialisées par les "O"

[Pierre Fauconnier]

Bonjour

Code :

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

1
2
UserForm1.Label1.Caption = UserForm1.Label1.Caption + "O"
userform1.Repaint

devrait résoudre le problème

[sabzzz]

bonjour Gloubi99,

en y ajoutant DoEvents j'arrive à le voir correctement,

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
UserForm1.Label1.Caption = "O"
UserForm1.Show 0
For i = 1 To 10
DoEvents
Application.Wait (Now + TimeValue("0:00:01"))
UserForm1.Label1.Caption = UserForm1.Label1.Caption + "O"
Next i
UserForm1.Hide
End Sub

[Gloubi99]

Merci à tous les deux

le Repaint résout mon problème.

Reste le mystère pourquoi ma première routine fonctionnait sans repaint avant et plus maintenant ... mais c'est une autre histoire