afficher une page d'accueil quelques secondes

[pascal21]

bonjour le forum
comment faire pour afficher une page d'accueil pour quelques secondes
2 ou 3 sec env
afficher un page d'accueil au démarrage, je sais faire mais pour un temps défini, non
merci de votre aide

 

[Staple1600]

Re : afficher une page d'accueil quelques secondes

Bonjour


Un exemple issu du forum (de Creepy)
Lien supprimé

Un autre issu de la FAQ du forum (pages WIKI de MIchelXLD)
https://www.excel-downloads.com/threads/ref-wiki-2-de-michelxld-ce-qui-touche-aux-userform.92357/
Affichage temporaire d'un userform

Private Sub userForm_Activate()
Application.Wait Now + timeValue("00:00:10")'10 secondes
Unload userForm1
End Sub

edition: bonjour phlaurent55 , bonjour Hasco

 

[phlaurent55]

Re : afficher une page d'accueil quelques secondes

Bonjour à tous

avec ceci:

Private Sub Workbook_Open()
Sheets("feuil1").Select
' attendre 5 secondes avant de passer à la feuille 2
Application.Wait Now + TimeValue("00:00:05")
Sheets("feuil2").Select
End Sub

à+
Philippe

 

[Guest]

Re : afficher une page d'accueil quelques secondes

Bonjour Pascal,

Hello l'agrafe🙂

voici un truc que j'ai ecrit pour quelqu'un d'autre il y a quelques jours, cela peut peut-être d'inspirer.

Sub PetitMessage(StrMessage As String, Optional Secondes As Byte = 2)
    Dim t
    Beep
    UserForm1.LabelMsg = StrMessage
   [B] UserForm1.Show vbModeless
    t = Time()
    Do
        DoEvents
    Loop While Time < t + TimeSerial(0, 0, Secondes)
[/B]    Unload UserForm1
End Sub

A+

 

[pascal21]

Re : afficher une page d'accueil quelques secondes

bonjour à tous
je ne m'attendais pas à autant de réponses
voilà ce que j'avais trouvé sur le site et qui fonctionne

Dim i As Byte
Worksheets("feuil1").Visible = True
Worksheets("feuil1").Activate
For i = 1 To 4
Application.Wait Now + TimeValue("00:00:01")
Next i
Worksheets("feuil1").Visible = False
Sheets("tableau de bord général").Activate

maintenant est-il possible lorsque le classeur n'est pas utilisé depuis quelques temps (5mn par exemple) de revenir à cette feuille d'accueil
et éventuellement de demander un Mdp pour accéder au reste des feuilles