EXCEL ANNEE 2017
L'heure est venue de vous presenter
Une excel et bonne annee 2017 !
De la part de toute l equipe de VeriTi
Fermer automatiquement
Publié par veriland le 07-Aug-2013 12:20 (5212 lectures)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
| Naviguer à travers les articles | |
Afficher l'occurence |
|
|
Les commentaires appartiennent à leurs auteurs. Nous ne sommes pas responsables de leur contenu.
|
||||
