Insérer un ProgressBar dans le StatusBar 2019-11-04

' Affiche un ProgressBar dans le StatusBar
Sub ProgressbarStatusBar(Titre, Valeur, Total)
    If Titre = "" Then                          ' Si Titre vide, supprimer progressbar
        Application.StatusBar = ""
    Else                                        ' Sinon
        Pourcent = Int(100 * Valeur / Total)    ' Calcul du % d'avancement
        Plein = Int(50 * Valeur / Total)        ' Calcul du nombre de pavés pleins
        Vide = 50 - Plein                       ' Déduction du nombre de pavés vides ( pour faire 50 au total )
        Application.StatusBar = Titre & " - Progression : " & Pourcent & "%   " & _
                                        WorksheetFunction.Rept(ChrW(9608), Plein) & _
                                        WorksheetFunction.Rept(ChrW(9618), Vide)
    End If
End Sub

ProgressbarStatusBar("Titre du progressbar :", 43, 100)