Useform d'attente

[Ken Hutchinson]

Bonjour à tous,

J'ai créé une macro qui tourne durant 3 à 4 minutes. J'ai créé un Usefrom pour faire patienter et plus joli (le logo de la boite, et un message qui dit d'attendre).

J'arrive à lancer la macro, l'userform apparait mais plus rien ne se passe... la macro attend...

Comment cela se fait il ?

Merci de votre aide !!!

 

[mutzik]

Re : Useform d'attente

bonjour,
faudrait voir à voir le code du USF, ou le fichier en entier ...

 

[tototiti2008]

Re : Useform d'attente

Bonjour à tous,

Il faut changer la propriété de l'userform :
ShowModal à False

 

[jeanpierre]

Re : Useform d'attente

Bonjour Ken Hutchinson, Bertrand,

Si j'ai compris, lances ton Usf d'abord et dans le code de celui-ci, appelles ta macro.

Lancer la macro qui appelle l'Usf fait que l'Usf (qui ne fait rien en soit) bloque tout...

A te lire.

Jean-Pierre

 

[BOISGONTIER]

Re : Useform d'attente

Bonjour,

Le formulaire est non modal (showmodal=False)

Sub Attente()
   F_attente.Show
   fin = Timer + 5
     Do While Timer < fin
       DoEvents
     Loop
   Unload F_attente
End Sub

Private Sub b_ok_Click()
 Unload Me
End Sub

JB
Formation Excel VBA JB

 

[Ken Hutchinson]

Re : Useform d'attente

Merci pour tout !!!

J'ai suivi les conseils de tototiti2008 et de jeanpierre et ça marche. Super.

Je note ton code BOISGONTIER.

Merci beaucoup