Discussion :

[fanfan89]

Bonjour à tous!

j'ai écrit une macro toute simple qui s'exécute très rapidement et dont le résultat final s'affiche sur une msgbox.
sachant que cette macro est destinée à être utilisée par un client je voudrais, pour faire genre "ca mouline mais ca va vite", ajouter une progressbar bidon qui se remplirait en deux ou trois secondes avant que le résultat final ne s'affiche.

Pouvez-vous m'aider svp? Merci beaucoup!

[Fvandermeulen]

Salut,

Tu devrais trouver des discussions sur les barres d'attente mais si tu veux pas chercher tu peux facilement en créer une toi même.

Tu crées un UserForm que tu mets en ShowModal False (!! super important)
Pour l'exemple je l'appelle UF_Attente

Tu peux par exemple, créer quelques TextBox que tu mets en Flat avec une couleur sympa, disons trois appelés TB_1, TB_2, TB_3
A l'initialisation du Userform tu les mets tous en non visible.

Au début de ton code tu places:

Code :

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

UF_Attente.Show

Ensuite, dans ton code tu places par ci-par là ce genre de ligne.
Application.wait marque une "pause" dans ton code, modifie le 2 pour allonger le temps de pause (en seconde).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
UF_Attente.TB_1.Visible = True
DoEvents
Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 2)
 
'Suite du code
 
UF_Attente.TB_2.Visible = True
DoEvents
Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 2)
 
'Suite du code
 
UF_Attente.TB_3.Visible = True
DoEvents
Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 2)
 
'Suite du code
 
UF_Attente.Hide
Unload UF_Attente
End sub

A+