Icône de la ressource

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

sylvanu

XLDnaute Barbatruc
Supporter XLD
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

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

Pièces jointes

  • Capture d’écran 2020-07-04 à 09.27.17.jpg
    Capture d’écran 2020-07-04 à 09.27.17.jpg
    122.9 KB · Affichages: 52

sylvanu

XLDnaute Barbatruc
Supporter XLD
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 :
VB:
' 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 :
Code:
ProgressbarStatusBar("Titre du progressbar :", 43, 100)
pour obtenir 4 pavés sur 10 dans le statusbar.
En PJ un exemple sans cette librairie.
 

Pièces jointes

  • ProgressBar dans StatusBar(JeanLéon).xlsm
    15.3 KB · Affichages: 44
Dernière édition:

Statistiques des forums

Discussions
311 724
Messages
2 081 936
Membres
101 844
dernier inscrit
pktla