Barre de progression excel

[excfl]

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

 

[camarchepas]

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 :

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

 

[excfl]

Re : Barre de progression

Bonjour camarchepas,

Merci pour ta réponse.
En effet avec la ligne ajoutée, le temps d'attente est beaucoup moins long.
excfl

 

[MJ13]

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]

Re : Barre de progression

Bonjour MJ13,

Merci également pour ta réponse.

application.statusbar génère une erreur de compilation.

excfl

 

[MJ13]

Re : Barre de progression

Re

Voir ce code à tester pour comprendre le fonctionnement.

Sub test()
For j = 1 To 10
For i = 1 To 100000000
Next
Application.StatusBar = (j & "/10")
Next
End Sub

 

[excfl]

Re : Barre de progression

Re,

Plus de message d'erreur. Par contre, il ne se passe rien dans la barre d'état.

excfl

 

[excfl]

Re : Barre de progression

Re,

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.