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

[sylvanu]

sylvanu a posté une nouvelle ressource :

Insérer un ProgressBar dans le StatusBar - Insérer un ProgressBar dans le StatusBar. Peut éviter l'utilisation d'un useform.

On peut insérer un ProgressBar dans le StatusBar pour éviter l'utilisation d'un useform.
C'est une autre méthode simple de voir la progression d'un événement.
Le code est très simple à copier dans votre code , et idem pour l'appel de la fonction.
Dans le fichier joint un exemple pour voir.

En savoir plus sur cette ressource...

 

[JeanLeon]

Bonjour
Je travail sur Mac et je viens d'avoir cette info.
Pourrai-je avoir une aide?
Merci et a bientôt
Jean

 

[sylvanu]

Bonjour JeanLéon, et bienvenu sur XLD,
N'ayant aucune connaissance de l'environnement MAC, je ne pourrais vous être d'aucun secours.
Cependant si c'est le progressbar qui vous intéresse alors cette bibliothèque est inutile, elle ne sert que pour la démo. ( utilisée dans TestDuProgressbarStatusBar )

Il vous suffit d'implémenter cette macro :

' 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

et d'ensuite l'appeler avec, par exemple :

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

pour obtenir 4 pavés sur 10 dans le statusbar.
En PJ un exemple sans cette librairie.

 

[JeanLeon]

Bonjour
Merci !