Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

compteur dans un USF pour fermer un classeur

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
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
 
Dernière édition:

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…