Message d'attente

[Ludwig]

Bonsoir à tous,

Une petite question en passant...

Est-ce que quelqu'un saurait comment faire pour afficher un message, userform ou même une image d'attente pendant que la macro s'excécute.

J'ai un code qui ressemble à ça, mais bon ... pas terrible

Sub TempsMacro()
Dim Compteur As Long
Dim Compteur1 As Long
Compteur = GetTickCount
Call Macro1
Compteur = (GetTickCount - Compteur) / 10
Application.Wait Now + TimeValue("00:00:00" & Compteur)
UserForm1.Hide
End Sub

Si quelqu'un voit de la lumière en passant...

D'avance merci

Ludwig

 

[@+Thierry]

Re: Message d'attente Demo UserForm d'attente avec DoEvents

Salut Ludvig

Il y a plusieurs moyens... ci-joint une démo toute simple basée sur un UserForm...

On notera deux choses importantes :

1) UserForm en mode non Modal (non compatible Excel 97)
2) Utilisation de la méthode DoEvents

@+Thierry

 

[Ludwig]

Bonsoir Thierry,

merci beaucoup pour ta réponse, c'est vraiment très gentil à toi. J'ai un peu de mal à l'adapter à mon cas car je pensai plutôt faire un truc comme calculer en premier, le temps d'excécution de la macro pour rendre visible un message comme "Veuillez patienter..." en fonction du temps d'excécution. Mais bon c'était juste pour faire joli...

Encore merci à toi et à très bientôt

Ludwig