Barre de progression excel

camarchepas

XLDnaute Barbatruc

• 19 Décembre 2012

• #2

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

 

Vote positif 0 Vote négatif

excfl

XLDnaute Barbatruc

• 19 Décembre 2012

• #3

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

 

Vote positif 0 Vote négatif

Solution

MJ13

XLDnaute Barbatruc

• 19 Décembre 2012

• #4

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.

 

Vote positif 0 Vote négatif

excfl

XLDnaute Barbatruc

• 19 Décembre 2012

• #5

Re : Barre de progression

Bonjour MJ13,

Merci également pour ta réponse.

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

excfl

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 19 Décembre 2012

• #6

Re : Barre de progression

Re

Voir ce code à tester pour comprendre le fonctionnement.

Code:

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

 

Vote positif 0 Vote négatif

excfl

XLDnaute Barbatruc

• 19 Décembre 2012

• #7

Re : Barre de progression

Re,

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

excfl

 

Vote positif 0 Vote négatif

excfl

XLDnaute Barbatruc

• 19 Décembre 2012

• #8

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.

 

Vote positif 0 Vote négatif