L'informatique à votre portée
L'informatique prêt-à-porter

Faites appel à moi pour vos formations
sur les dpts 81, 31, 82, 11 et 67 (Strasbourg)
Confiez moi vos développements Office

FacebookTwitterGoogle BookmarksLinkedin

Message dans la barre d'Etat

Imprimer E-mail
5 mars 2014

Tapez d'abord ces 2 procédures

Sub MessageEtat(strMess As String)
  'Affiche la barre d'Etat  Application.DisplayStatusBar = True
  'Inscrit le texte sur la barre 
  Application.StatusBar = strMess
End Sub
Sub EffaceMessEtat()
  'Efface le texte et rend la barre disponible pour Excel 
Application.StatusBar = False
End Sub

Utilisez les ensuites comme suit :

Sub UtilisationMessageBarre() 
   'envoi du message 
MessageEtat "Veuillez patientez..."
'votre programme
'envoi message fin
MessageEtat "Traitement terminé..."
'ou effacement du message
EffaceMessEtat
End Sub