pascal21
XLDnaute Barbatruc
Code:
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
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
Dernière édition: