form vb excel

bonjour,
je cherche une methode dans vb excel pour lancer un form, pendant l'execution d'une macro mais qui reste ouvert tant que la macro n'a pas fini et se ferme apès.

j'ai essaye avec ce ci mais le form reste ouver.

monform.show
macroxx.run
monform.hide

dans le module

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Lance() UserForm1.Show   End Sub Sub MaMacro() t = Now + TimeValue("00:30:00") While t > Now Debug.Print Now DoEvents Wend End Sub

---

dans l'userForm

Code:

---

1 2 3 4 5 6 7 8

Private Sub UserForm_Initialize() Application.OnTime Now + TimeValue("00:00:01"), "MaMacro"   End Sub Private Sub UserForm_Activate() Hide End Sub

---

:wink: