mon usf ne se ferme pas

[pascal21]

Private Sub CommandButton1_Click()
UserForm1.Show 0
UserForm1.Repaint
macro1 'module 3
macro10 'module 4
Unload UserForm1
End Sub

bonsoir à tous
j'utilise ce code sur un bouton pour lancer 2 macros
comme elles prennent env. 10 sec pour s'exécuter j'ai eu envie de mettre un petit message d'attente dans l'userform1
mais celui-ci ne se ferme pas
voyez vous où est le problème merci
c'est bon j'ai trouvé

 

[alexane]

Re : mon usf ne se ferme pas

Bonsoir
C'est peut etre liée à la methode REPAINT. En as tu vraiment besoin ?

 

[pascal21]

Re : mon usf ne se ferme pas

bonsoir
oui j'en ai besoin c'est ce qui permet d'afficher le label qu'il y a dans l'userform