Aide pour fficher un Userform pendant 5 s

sebgo

XLDnaute Occasionnel
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.
 

excalibur

XLDnaute Impliqué
bonjour, Pinafo69 ,jeromegmc ,aurent45 un ex tres simple a adapter a tes besoins salutations [file name=tempo.zip size=10012]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/tempo.zip[/file]
 

Pièces jointes

  • tempo.zip
    11.9 KB · Affichages: 32
  • tempo.zip
    11.9 KB · Affichages: 34
  • tempo.zip
    11.9 KB · Affichages: 31

sebgo

XLDnaute Occasionnel
Salut Excalibur, Laurant45, Jeromgmc, salut le forum
Je n'ai plus rien à dire sauf que vous remercier pour votre contribution. Vous avez tous compris et répondu promptement à mon appel à l'aide malgré l'ambiguîté de l'objet (fficher au lieu de Afficher). Effectivement le 'activation' posait problème. Neanmoins la solution de Excalibur a definitevement résolu mon problème. J'ai même ajouté Userform2.Show après Unload Me et le 2nd formulaire s'ouvre après les 5 s. Satisfait à +100%
Merci bcp à tous! VIVE LE FORUM.
Bonne fin de soirée à tous
 

Discussions similaires

Statistiques des forums

Discussions
300 890
Messages
1 988 170
Membres
210 095
dernier inscrit
Ratahiry