Créer un splash screen

**tomtom09** · 12/01/2009, 17h51

Bonjour,

Débutant en vba, j'aurai voulu créer un splah screen.
Après quelques recherches, j'ai vu des codes sur le forum pour pouvoir créer ce genre de macro. Mais les codes semblent bien difficile à comprendre.

Est ce qu'il est possible de créer un userform qui servira de splah screen qui va s'afficher en attendant que le userform principale se lance (ou même pendant que le doc word se lance). Je n'ai pas trouver de tuto pas à pas pour ce genre d'appli

Dans ce cas, peut on faire associer un timer avec l'affichage du deuxième userform.

Merci d'avance

**Heureux-oli** · 12/01/2009, 19h03

Salut,

Oui, on peut mettre un timer sur le UserForm qui va servir de splash screen.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub UserForm_Activate()
Dim PauseTime, Start, Finish, TotalTime
    PauseTime = 5    ' Définit la durée.
    Start = Timer    ' Définit l'heure de début.
    Do While Timer < Start + PauseTime
        DoEvents    ' Donne le contrôle à d'autres processus.
    Loop
    Finish = Timer    ' Définit l'heure de fin.
    UserForm1.Hide
 
 
End Sub

ce code va fermer ton formulaire après 5 secondes.

**tomtom09** · 13/01/2009, 13h27

Merci pour tes conseil,

Est ce qu'il est possible de réaliser une barre de progrétiion sur ce splah-screen ou faut il créer un autre userform?

Merci d'avance