Messages déroulement macro

Sub Traitement()
Dim AffichBarre As Boolean
      With Application
     
            'Affiche la barre d'état si elle est masquée
            AffichBarre = .DisplayStatusBar
            .DisplayStatusBar = True
           
            'Traitements
            .StatusBar = 'Phase 1   >> Recherche des articles... (traitement en cours)'
            'ICI le traitement phase 1
            '
            '
            .StatusBar = 'Phase 1 / Phase 2   >> Statistiques de ventes... (traitement en cours)'
            'ICI le traitement phase 2
            '
            '
            .StatusBar = 'Phase 1 / Phase 2 / Phase 3   >> Synthèse des résultats... (traitement en cours)'
            'ICI le traitement phase 3
            '
            '
            'ETC...
            '
           
            'Sans oublier à la fin la restauration de la situation d'origine
            'c'est à dire : contrôle de la barre d'état par Excel et
            'barre d'état éventuellement masquée
            .StatusBar = False
            .DisplayStatusBar = AffichBarre
      End With
End Sub

Cliquez pour agrandir...

Public Sub Lancement()
UserForm1.Show

With UserForm1.Label1
'    appel de la phase 1
    .Caption = 'Phase 1'
    '    appel de la phase 2
    .Caption = 'Phase 2'
    .Caption = 'Terminé'
End With

Unload UserForm1

End Sub

Cliquez pour agrandir...