Fermer automatiquement

Catégorie : Userform

Publié par veriland le 07-Aug-2013 12:20

Pour fermer l'userform au bout de cinq secondes (variable compte, pour cet exemple)

Il vous faut un Userform et cette procédure...

 

partie à coller dans un module

 
Option Explicit
' vériland
Public compte
Dim etat
 
Sub test()
etat = True
UserForm1.Show
End Sub
 
Sub maprocédure()
    UserForm1.Caption = compte
    If compte = 0 Then
        UserForm1.Hide
        Exit Sub
    End If
    Application.OnTime Now + TimeValue("00:00:01"), procedure:="maProcédure", schedule:=etat
    compte = compte - 1
 
End Sub
 
 

'************************************
'partie à coller dans le module Userform
'************************************
Option Explicit
 
Private Sub UserForm_Initialize()
    compte = 5
    activation
End Sub