Progress bar

[bernardrustrel]

Bonsoir
je reviens à la charge avec ce fichier, car j'essaie d'adapter une barre de progression à mon besoin, cela fonctionne mais n'est pas optimise. En effet la barre repart à zéro à chaque boucle!; J'aimerais si cela est possible qu'elle démarre au début de la première boucle pour se terminer à la dernière boucle. Alors si l'un de vous avait une idée?
Par avance je vous en remercie, cordailement
Bernard

 

[Staple1600]

Re : Progress bar

Bonsoir à tous

bernardrustrel
Pourquoi ne pas être revenu à la charge dans le premier fil ???
https://www.excel-downloads.com/threads/barre-de-progression.225839/

 

[Paf]

Re : Progress bar

Bonjour à tous

l'utilisation de cette barre de progression me parait bien compliqué !!

une solution plus simple:
sur l'USF BFrmTris], rajouter une ProgressBar, puis dans Private Sub BtnTri_Click() de l'USF rajouter :

avant les 3 boucles imbriquées:

        NMax = Me.ListBoxSelectTri.ListCount
        ProgressBar1.Value = 0
        ProgressBar1.Max = 1 + NMax * NbIndividu * Me.ListBoxSelectTri.ListCount - 1

en fin de boucle For E ..., juste avant Next E:

            ProgressBar1.Value = ProgressBar1.Value + 1

les appels à la mise à jour de l'autre barre de progression sont inutiles.

Pour avoir accès aux ProgressBar, clic droit sur la boite à outils, puis clic sur contrôles supplémentaires, puis cocher Microsoft ProgressBar Control ...

A+

 

[bernardrustrel]

Re : Progress bar

Bonjour et merci pour cette réponse rapide
J'ai modifié le fichier comme indiqué, mais cela fonctionne très bien sur un seul critère de choix mais lorsque je choisis tous les critères la barre de progression ne défile pas de façon optimale.
Ci joint le fichier modifié.
Cordialement, Bernard

 

[Paf]

Re : Progress bar

Re bonjour

Dans le post#3, je disais en substance: avant les 3 boucles, insérer les lignes de code d'initialisation de la progressbar. Or vous les avez insérées dans la première boucle.

Désormais il n'y en a plus que deux (la boucle NMax ayant disparue) mais le principe reste le même:
déterminer le nombre d'itérations du traitement ; ce sera le Max de la progressbar défini avant le lancement des boucles
puis à chaque itération on fait avancer la progressbar


Donc

 ' on définit le max de la progressbar et  sa valeur initiale
  ProgressBar1.Max =   NbIndividu * Me.ListBoxSelectTri.ListCount 
  ProgressBar1.Value = 0

'on attaque les boucles
    For i = 0 To Me.ListBoxSelectTri.ListCount - 1
        ...
        For E = 1 To NbIndividu
          ....
          ...
          ProgressBar1.Value = ProgressBar1.Value + 1
        Next E
    Next

.... suite code

A+

 

[bernardrustrel]

Re : Progress bar

Re bonjour
Merci beaucoup, cela fonctionne parfaitement et correspond parfaitement à mon besoin.
Encore un grand merci.
Cordialement
Bernard