compteur dans un USF pour fermer un classeur

[pascal21]

Private Sub UserForm_Activate()
For compteur = 3 To 0 Step -1
userform1.repaint
TextBox1.Value = compteur
'Pour exécuter la macro dans 3 secondes!!!


nouvHeure = Hour(Now())
nouvMinute = Minute(Now())
nouvSeconde = Second(Now()) + 1
Reprise = TimeSerial(nouvHeure, nouvMinute, nouvSeconde)
Application.Wait Reprise
Next


If TextBox1 = 0 Then


Unload Me
ActiveWorkbook.Close
End If
End Sub

bonjour
j'utilise ce code pour fermer un classeur après un décompte (ici 3 secondes)
je cherche le moyen de voir le décompte se faire à l'écran
j'ai essayé avec un label et un textbox mais si la macro fonctionne bien pour ce qui est du décompte on ne voit pas défiler le compteur
j'ai essayé de modifier pour mettre le compteur sur une feuille, ça fonctionne mais la feuille apparait alors à l'écran ce que je ne souhaite pas

comment réaliser cela
merci

 

[phlaurent55]

Re : compteur dans un USF pour fermer un classeur

Bonjour Pascal,

essaie en mettant ceci à l'intérieur de la boucle For ... Next

UserForm1.Repaint

à+
Philippe

 

[pascal21]

Re : compteur dans un USF pour fermer un classeur

bonsoir et merci
en fait j'avais bien essayé ce repaint mais je ne devais pas l'avoir mis correctement car ça ne fonctionnait pas