UserForm ProgressBar bidon

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!

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:

---

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:

---

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+