Afficher un message d'attente pendant l'exécution d'une macro

Afficher un message d'attente pendant l'exécution d'une macro - VB/VBA/VBS - Programmation

Marsh Posté le 11-03-2005 à 15:03:14    

Bonjour,
 
je voudrais faire apparaître un petit message d'attente, genre "traitement en cours" pendant l'exécution d'une macro.
 
Avec une msgbox, il faut que l'utilisateur clique sur un bouton, avec une userform c'est pareil, l'exécution du coe s'arrête.
 
Vius auriez une idée???
 
Merci
 
Guillaume

Reply

Marsh Posté le 11-03-2005 à 15:03:14   

Reply

Marsh Posté le 11-03-2005 à 18:04:18    

J'ai déjà répondu à cette question il y a un moment, bout de code à l'appui.
 
Fait donc une recherche pour le trouver ;)
 
C'était une petite form en Modal, contenant un message, une progress bar et un compteur suivant l'avancée de la macro qui tourne derrière.

Reply

Marsh Posté le 11-03-2005 à 18:58:59    

bonjour,
tout sur les progress bar ou presque ici et sur la page d'accueil et téléchargements du site.
A+

Reply

Marsh Posté le 14-03-2005 à 11:21:01    

Merci à vous deux!
 

Reply

Marsh Posté le 31-03-2006 à 09:55:56    

bonjour,
et si moi je ne veux pas de barre de progression, juste un message sans bouton qui indique "démarrage en cours" que j affiche au début de ma procédure, puis que je ferme en fin de ma procedure ?

Reply

Marsh Posté le 01-04-2006 à 17:56:42    

Tu peux mettre un label avec le message dedans que tu rends visible au début de la procédure et que tu mets invisible à la fin.
c'est le plus simple.

Reply

Marsh Posté le 01-04-2006 à 18:23:50    

Bonjour,
Tu peux utiliser la barre d'Etat et mettre un message dans ta barre d'état en début de macro et masquer la barre d'état à la fin.
Sub Test()
Application.DisplayStatusBar = True
Application.StatusBar = "Traitement en cours..."
MsgBox "Longue suite d'opérations !"
Application.DisplayStatusBar = False
End Sub
A+


Message édité par galopin01 le 01-04-2006 à 18:29:44

---------------
roger
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed