Barre de progression excel

excfl

XLDnaute Barbatruc
Bonjour,

Le fichier joint permet d'afficher une liste d'adhérents à une association par mois de naissance.

Le fichier réel est beaucoup plus important. La procédure pour masquer les lignes est donc longue.

C'est pourquoi je cherche à insérer une barre de progression en pourcentage.

Merci d'avance pour vos réponses.

excfl
 

Pièces jointes

  • Adhérents.xls
    83.5 KB · Affichages: 214
Dernière édition:

camarchepas

XLDnaute Barbatruc
Re : Barre de progression

Bonjour Exfl,

Bon une barre de progression est toujours possible ,

Mais si tu modifies légérement ton code en désactivant le rafraiche écran grace à Application.ScreenUpdating , tu n'as plus besoin d'attendre :

Code:
Sub Masqueligne()

    Application.ScreenUpdating = False
    'Dernière ligne renseignée de la colonne A
    Lg = Range("A65536").End(xlUp).Row
    
    'De la ligne 6 à la dernière ligne renseignée
    For i = 6 To Lg
    
    'Si la cellule Ai = 0 cellule masquée
    If Cells(i, 1) = 0 Then Rows(i).Hidden = True
       
    'Ligne suivante
    Next
    
 Application.ScreenUpdating = True


    
End Sub
 

MJ13

XLDnaute Barbatruc
Re : Barre de progression

Bonjour Excfl, camarchepas

Personnellemment, je prèfère ahjouter dans le code, un petit application.statusbar dans le codequi est très simple à programmer :) et évite de devoir créer un userform qui sera plus difficile à optimiser.
 

excfl

XLDnaute Barbatruc
Re : Barre de progression

Re,

Code:
statusBarInitial = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Application.StatusBar = "message"
Application.DisplayStatusBar = statusBarInitial

En incorporant ce code, le message désiré s'affiche dans la barre d'état.
 

Discussions similaires

Réponses
5
Affichages
684