AFFICHER UN MESSAGE D'ATTENTE EN EXCEL LORS D'UN LONG TRAITEMENT (WAITBOX)

Private Sub Workbook_open()   'dans le module thisWorkbook , événement à l'ouverture du classeur
  Load WaitBox        'on charge le formulaire en mémoire

end sub


Sub VotreTraitement()  'la sub qui contient le gros traitement qui peut être dans un module 

Application.Cursor = XlWait   'affiche le sablier
WaitBox.Show vbModeless   'affiche la waitbox mais continu le traitement
WaitBox.Repaint                   'raffraichit le contenu affiché sinon on a une boite blanche vide

'placer ici votre traitement...

WaitBox.hide  'masque la waitbox
Application.Cursor=XlDefault   'remet le curseur par défaut

End sub


Private Sub WorkBook_BeforeClose(Cancel as Boolean)  'dans module thisWorkbook

Unload WaitBox  'decharge la waitbox de la mémoire

End sub