Discussion :

[cada01a]

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

[SfJ5Rpw8]

dans le module

Code :

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

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 :

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

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