Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Barre de progression

S

sdevers

XLDnaute Nouveau
Bonjour la communauté,
[SUB]
Pour ceux qui se demanderaient, j'ai reclassé ma question d'un commentaire sur le forum "Applications disponibles dans l'espace de téléchargement" vers ce nouveau post sur le forum principal.[/SUB]

J'avais trouvé un bel exemple de barre de progression sur un autre site (Créer une barre de progression avec Excel). Malheureusement, je ne parviens pas à l'adapter à mes besoins.

Voici le code de base de l'exemple:
Code: 
Private Sub CommandButton1_Click()
   
    'Macro : Sébastien Mathier - Excel-Pratique
    'Tuto vidéo : http://www.blog-excel.com/barre-de-progression-excel/
   
    Application.ScreenUpdating = False
   
    UserForm_demo.Height = 121.5

    compteur = 0
    progression = 0
   
    For ligne = 1 To 5000
        For col = 1 To 50
       
            compteur = compteur + 1
            Cells(ligne, col) = ligne + col
           
            If compteur Mod 2500 = 0 Then '=> sera exécuté 100x
               
                progression = progression + 1
                Image_barre.Width = progression * 1.5
                Label_barre.Caption = progression & "%"
                DoEvents
               
            End If
           
        Next
    Next
   
    Application.ScreenUpdating = True
    UserForm_demo.Height = 136.5
   
End Sub
Il utilise donc un compteur avec un Mod 2500 car il a 50.000 occurrences à sa boucle (par facilité son exemple ajoute un chiffre dans 50.000 cellules). Il incrémente donc de 0,5% à chaque fois qu'il arrive à un résultat de 0 avec son Mod 2500. Ca fonctionne extrêmement bien... mais pas pour mon code ! En effet, je n'ai pas 50.000 occurrences mais un nombre indéterminé.

Dans mon code, je veux (notamment car j'adapterai ma progress bar à d'autres procédures également) ajouter un pied-de-page personnalisé sur chaque page du classeur. Le nombre de page ne dépend pas de moi. Il pourrait y en avoir 2 ou 3 comme 30. J'ai donc un Sheet.Count comme limite maximale qui est une variable.

Code: 
Private Sub CommandButton1_Click()
   
    'Macro : Sébastien Mathier - Excel-Pratique
    'Tuto vidéo : http://www.blog-excel.com/barre-de-progression-excel/
   
    Application.ScreenUpdating = False
   
    UserForm_demo.Height = 121.5

    compteur = 0
    progression = 0
    Dim X As Byte
   
    For X = 1 To Sheets.Count
       
        With Sheets(X).PageSetup
            compteur = compteur + 1
            .LeftFooter = "test" 'je simplifie mon footer pour le forum
           
            If compteur Mod Sheets.Count = 0 Then
               
                progression = progression + 1
                Image_barre.Width = progression * 1 / Sheets.Count
                Label_barre.Caption = progression & "%"
                DoEvents
               
            End If

Problème, dans ce code, la barre de progression reste calée à 0 même quand la procédure est terminée. Je n'arrive pas à définir à quelle vitesse ma barre de progression doit avancer (là où il y avait le Mod 2500 chez l'auteur). Il me faudrait une variable...

Quelqu'un de plus futé que moi pourrait m'aider?

Merci d'avance,
 
Trier par date Trier par votes

Modeste geedee

XLDnaute Barbatruc
Re : Barre de progression

Bonsour®

Il manque quelques informations ...

quelle est la largeur max (i.e pour 100%)


Dim X As integer
Dim SCount as integer
Scount= Sheets.count
For X = 1 To SCount

With Sheets(X).PageSetup
.LeftFooter = "test" 'je simplifie mon footer pour le forum
'--------------
' l'affichage correspond alors au pourcentage de feuilles traitées relativament au nombre de feuilles total
Image_Barre.Width = Image_MaxBarre_Width * X / SCount
Label_barre.Caption = format(X/Scount, "0%")
DoEvents
End With
Next
 
Dernière édition:
Vote positif 0 Vote négatif
S

sdevers

XLDnaute Nouveau
Re : Barre de progression

Merci modeste geedee.

Si j'ai bien compris, il te manque la largeur maximum de Image_barre, c'est bien ça? C'est pour cette raison que tu as ajouté Image_MaxBarre.

Dans l'exemple que j'avais récupéré, il n'y a pas Image_MaxBarre. Il avait créé un second compteur "progression" qui comptait le nombre de fois où Mod 2500 =0 (soit les %). Ensuite, Image_Barre s'élargissait à chaque avancement de 1%. Il multiplait son résultat par 1,5 car la largeur de sa barre était de 150 (et non pas 100).

Est-ce plus clair?
 
Vote positif 0 Vote négatif
S

sdevers

XLDnaute Nouveau
Re : Barre de progression

C'est cool, ça fonctionne ! Mais j'ai un autre (petit) soucis.

Voici mon code:
Code: 
Private Sub set_footer()
    '------------------------------------------------
    'on désactive certains paramètres pour accélérer la macro. On les réactive en fin de macro.
    '------------------------------------------------
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationAutomatic 'on a besoin de laisser le mode automatique
    '------------------------------------------------
    UserForm_demo.Height = 121.5
    UserForm_demo.Show
    
    compteur = 0
    Dim X As Integer
    Dim SCount As Integer
    SCount = Sheets.Count
    '------------------------------------------------
    'Inscription d'un pied de page identique sur chaque page
    '------------------------------------------------
    For X = 1 To SCount

        With Sheets(X).PageSetup
            'pied de page gauche - écriture en Calibri, taille 9, couleur &K63666A (R99-G102-B106) -
            'venant chercher l'information dans la cellule D2 de la Sheet "data" (nom VBA: Sheet03)
            'puis retour à la ligne (Chr(10))
            'puis écriture en Calibri, taille 9, couleur &K63666A (R99-G102-B106) -
            'venant chercher l'information dans les cellules C13 et D8 de la Sheet "data" (nom VBA: Sheet03) (avec un espace entre les 2 textes)
            .LeftFooter = "&""Calibri""" & "&9&K63666A" & Sheet03.Range("D2") _
                & Chr(10) & "&""Calibri""" & "&9&K63666A" & Sheet03.Range("Company_Number_txt") & " " & Sheet03.Range("D8")
            
            'pied de page droite - écriture en Calibri, taille 9, couleur &K63666A (R99-G102-B106) -
            'venant chercher l'information dans les cellules C14 et C9 de la Sheet "data" (nom VBA: Sheet03)(avec un espace entre les 2 textes)
            'puis retour à la ligne (Chr(10))
            'puis écriture en Calibri, taille 9, couleur &K63666A (R99-G102-B106) -
            'venant chercher l'information dans les cellules C15 et C10 de la Sheet "data" (nom VBA: Sheet03) (avec un espace entre les 2 textes)
            .RightFooter = "&""Calibri""" & "&9&K63666A" & Sheet03.Range("Tax_Year_txt") & " " & Sheet03.Range("C9") _
                & Chr(10) & "&""Calibri""" & "&9&K63666A" & Sheet03.Range("Closing_Date_txt") & " " & Sheet03.Range("C11")
                
            Image_barre.Width = 150 * X / SCount
            Label_barre.Caption = Format(X / SCount, "0%")
            DoEvents
            
        End With
    Next X
    '------------------------------------------------


    '------------------------------------------------
    'on réactive les paramètres qu'on avait désactivé au début de la procédure
    '------------------------------------------------
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    '------------------------------------------------
    UserForm_demo.Height = 136.5
    Unload UserForm_demo
    
    
End Sub

Par rapport à la version précédente, j'ai juste fait en sorte que la progress bar se lance au moment de ma procédure (et pas au moyen d'un bouton à cliquer).

Mon problème, j'ai un message de débogage (error 424 objet requis) qui bloque sur "Image_barre.Width = 150 * X / SCount" quand je ferme le userform au moyen de la croix.

Si tu as une idée lumineuse
 
Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc
Re : Barre de progression

Bonsour®

l'idée lumineuse serait de fournir l'exemple ... !!!
à tout hasard ...

Code: 
...
Me.Image_barre.Width = 150 * X / SCount
Me.Label_barre.Caption = Format(X / SCount, "0%")
Me.Repaint
...
DoEvents
 
Vote positif 0 Vote négatif
S

sdevers

XLDnaute Nouveau
Re : Barre de progression


Voici ma pièce jointe. Ca se trouve dans Module_Footer et dans UserForm_demo...
 

Pièces jointes

  • Annexes comptables & fiscales v20160131 - test EXCEL DOWNLOADS.xlsm
    177.3 KB · Affichages: 154
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

F
  • Question
XL 2019 VBA et Power Query - Barre de progression
Réponses
10
Affichages
340
crocrocro
C
S
  • Question
Microsoft 365 Barre de progression sur un %
Réponses
3
Affichages
195
crocrocro
C
  • Question
XL 2021 Création et adaptation barre de progression
2 3
Réponses
44
Affichages
1 K
Tartine
T
  • Résolu(e)
XL 2016 VBA - Redimensionner un UserForm après le retrait de la barre du menu système (Caption)
5 6 7
Réponses
101
Affichages
2 K
Dudu2
  • Question
XL 2021 Barre de progression dans une listview - Tableau structuré avec barre de donnée dans la listview
Réponses
2
Affichages
491
AHK
  • Résolu(e)
Microsoft 365 Forcer l'affichage de mon userform (barre de progression) sur l'écran où le classeur est actif (cas des doubles/triples écrans)
3 4 5
Réponses
66
Affichages
2 K
Dudu2
H
  • Question
XL 2013 Barre de progression Userrform utilisée sur plusieurs macros
Réponses
0
Affichages
557
hemerode
H
G
  • Question
Google Sheets Barre de progression google sheet
Réponses
0
Affichages
668
Gregous
G
B
  • Résolu(e)
XL 2013 Barre de progression.
Réponses
7
Affichages
766
fanfan38
  • Question
XL 2021 Optimisation code pour affichage ligne et colonne
Réponses
14
Affichages
678
patricktoulon
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…