Message "Veuillez patienter"

Question

 

Bonjour,

 

Je souhaire faire afficher un message de type "chargement en cours, veuillez patienter" au sein d'une macro Excel VBA.

Y atil un moyen simple de faire ceci (au moyen d'un MsgBox par exemple) ou bien dois-je la crééer de toute pièce et piloter son activation/désactivation ?

 

Vous remerçiant par avance

Answer 1

finalement en cherchant un peu..

 

Il faut se faire une petite fenetre que j'ai nommé WaitBox, qui contient just un libéllé "Veuillez Patiener", et dont le Caption est "Chargement en cours"

 

Puis dasn le bouton qui va déclencher le TRAITEMENT il faut faire:

 

Application.Cursor = xlWait   'affiche le sablier
WaitBox.Show vbModeless   'affiche la waitbox mais continu le traitement
WaitBox.Repaint

...TRAITEMENT...

   
WaitBox.Hide  'masque la waitbox
Application.Cursor = xlDefault 'remet le curseur par défaut
MsgBox "Chargement effectué ", vbInformation