Aide pour fficher un Userform pendant 5 s

[sebgo]

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.

 

[jeromegmc]

Salut,

As-tu vérifié le nom de ton userform? Car le nom du userform est 'USF' dans les lignes de code que tu nous as fournis.


Quel est le message d'erreur?


A+

Message édité par: jeromegmc, à: 17/10/2005 14:57

 

[laurent45]

Bonjour Pinafo69,

Tu devrais essayer de modifier activation en maprocedure.

Avec activation, tu appelles une Sub qui n'existe pas...

@+

 

[excalibur]

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]

 

[excalibur]

excuse moi Laurent . j ai oublie le L salutations

 

[sebgo]

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

 

[laurent45]

excalibur écrit:

excuse moi Laurent . j ai oublie le L salutations

Y a pas de mal. C'est la faute du clavier qui n'est pas assez sensible. :lol:

@+