Bonjour le Forum,
Je cherche de l'aide pour un code VBA qui me permet d'afficher un Userform pendant une durée prédifinie (5 secondes). Dans mes recherches sur le forum j'avais ce code:
'************************************
'partie à coller dans un module
'************************************
Option Explicit
' vériland
Public compte
Dim etat
Sub test()
etat = True
USF.Show
End Sub
Sub maprocédure()
USF.Caption = compte
If compte = 0 Then
USF.Hide
Exit Sub
End If
Application.OnTime Now + TimeValue('00:00:05'), procedure:='maProcédure', schedule:=etat
compte = compte - 1
End Sub
'************************************
'partie à coller dans le module Userform
'************************************
Option Explicit
Private Sub USF_Initialize()
compte = 5
activation
End Sub
Mais il me renvoie un message d'erreur.
Merci d'avance pour votre contribution.
Je cherche de l'aide pour un code VBA qui me permet d'afficher un Userform pendant une durée prédifinie (5 secondes). Dans mes recherches sur le forum j'avais ce code:
'************************************
'partie à coller dans un module
'************************************
Option Explicit
' vériland
Public compte
Dim etat
Sub test()
etat = True
USF.Show
End Sub
Sub maprocédure()
USF.Caption = compte
If compte = 0 Then
USF.Hide
Exit Sub
End If
Application.OnTime Now + TimeValue('00:00:05'), procedure:='maProcédure', schedule:=etat
compte = compte - 1
End Sub
'************************************
'partie à coller dans le module Userform
'************************************
Option Explicit
Private Sub USF_Initialize()
compte = 5
activation
End Sub
Mais il me renvoie un message d'erreur.
Merci d'avance pour votre contribution.