Problème de compte à rebours dans Label

Résolu

jen_peplu Messages postés 33 Date d'inscription Statut Membre Dernière intervention -
jen_peplu Messages postés 33 Date d'inscription Statut Membre Dernière intervention - 19 avril 2011 à 06:31

Bonjour,

J'ai instancié un compte à rebours dans un label sur une UserForm qui apparait aprés click sur bouton, mais celui-ci ne tourne pas. Je ne vois d'où viens mon problème.
Si quelqu'un à une solution ?
Voilà le code que j'ai créé, en sachant que si je remplace "UserForm1.Label1.Caption = debut" par " Range("a1").Value = debut" cela fonctionne trés bien dans la cellule.

Public Sub Bouton_1_click()
UserForm1.Show
End Sub

Private Sub UserForm_Activate()
Call compt
Unload Me
End Sub

Public Sub compt()
Dim debut As Integer
Dim resultat As Integer

For debut = 10 To 0 Step -1
Application.Wait (Now + TimeValue("00:00:01"))
'Range("a1").Value = debut
UserForm1.Label1.Caption = debut
Next debut
resultat = MsgBox("ok", , "rien")
End Sub

Afficher la suite

A voir également:

Problème de compte à rebours dans Label
Créer un compte google - Guide
Installer windows 10 sans compte microsoft - Guide
Créer un compte gmail - Guide
Comment savoir qui regarde mon compte facebook - Guide
Créer un compte instagram sur google - Guide

1 réponse

Réponse 1 / 1

jen_peplu Messages postés 33 Date d'inscription Statut Membre Dernière intervention

Rebonjour

J'ai résolu mon problème, j'ai tout simplement rajouté l'instruction "DoEvents" dans mes lignes de codes comme ceci :

Public Sub compt()
Dim debut As Integer
Dim resultat As Integer

For debut = 10 To 0 Step -1
DoEvents
Application.Wait (Now + TimeValue("00:00:01"))
UserForm1.Label1.Caption = debut
Next debut
resultat = MsgBox("ok", , "rien")
End Sub

Je ne sais pas si cela est vraiment orthodoxe mais cela marche bien.

Votre réponse