cs_Artisous435
Messages postés mardi 2 novembre 2010Date d'inscription
4 novembre 2010
Dernière intervention
-
2 nov. 2010 à 10:17 - Dernière réponse : cs_Artisous435
Messages postés mardi 2 novembre 2010Date d'inscription
4 novembre 2010
Dernière intervention
- 2 nov. 2010 à 13:43
Bonjour à tous,
Ci joint une petite macro qui me pose probleme.
Sur un Userform j' ai un TextBox qui est incrémenté de 1 à 30 par l'utilisation de Application.wait (1seconde) en boucle de 1 à 30.
Un bouton déclenche le début du comptage, il disparait pendant la tempo et réapparait en fin de comptage.
le problème:
Trés souvent le compte n' arrive pas à son terme.L'ecran est bloqué et pourtant l' application continue de tourner puisque en fin de tempo le chiffre 30 s' affiche bien dans le textbox.
Avez vous une idée de la provenance du probléme et une solution?
Merci d'avance.
Sub ComptageTemps()
UserForm1.CommandButton1.Visible = False
Worksheets("Calcul").Range("T1").Value = 0
For I = 1 To 31
UserForm1.TextBox14.Value = Worksheets("Calcul").Range("T1").Value
Application.Wait (Now + TimeValue("0:00:01"))
Worksheets("Calcul").Range("T1").Value = Worksheets("Calcul").Range("T1").Value + 1
Next I
NHenry14262
Messages postés vendredi 14 mars 2003Date d'inscription
22 septembre 2018
Dernière intervention - 2 nov. 2010 à 13:21
3
Merci
Bonjour,
Sub ComptageTemps()
UserForm1.CommandButton1.Visible = False
Worksheets("Calcul").Range("T1").Value = 0
For I = 1 To 31
UserForm1.TextBox14.Value = Worksheets("Calcul").Range("T1").Value
Application.Wait (Now + TimeValue("0:00:01"))
Worksheets("Calcul").Range("T1").Value = Worksheets("Calcul").Range("T1").Value + 1
'Ajouter cela peut être ?
DoEvents
Next I
UserForm1.CommandButton1.Visible = True
End Sub
a aidé 95 internautes ce mois-ci