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

Progress bar

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
B

bernardrustrel

XLDnaute Occasionnel
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
 

Pièces jointes

Trier par date Trier par votes
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:
Code: 
        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:
Code: 
            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+
 
Vote positif 0 Vote négatif
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
 

Pièces jointes

Vote positif 0 Vote négatif
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
Code: 
 ' 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+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

B
  • Résolu(e)
XL 2019 Progress Bar et Autofill - embellissement MAcro
Réponses
2
Affichages
447
benoit.guinebretiere@free
B
  • Question Question
Autres Problème de Progress Bar (erreur d'ocx)
2
Réponses
26
Affichages
886
cathodique
  • Question Question
Autres Séquenceur (Timer) dans autre instance d'Excel
Réponses
5
Affichages
422
Dranreb
A
  • Question Question
XL pour MAC Calculer la distance entre deux villes avec un Mac
Réponses
1
Affichages
1 K
jurassic pork
S
  • Question Question
Autres Recette de pâtisserie
Réponses
4
Affichages
596
Slavko.R
S
S
  • Question Question
XL 2021 Planning de suivi des actions pour service Hygiène Sécurité et Environnement
Réponses
2
Affichages
1 K
fanfan38
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
759
ph.vanne
J
  • Résolu(e)
XL 2021 plantage lors d'un export format PDF
Réponses
14
Affichages
1 K
JPaul78
J
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
951
jeff1494
T
  • Question Question
XL 2016 Difficultés pour extraire des données d'une BDD et autres petits détails !!!
Réponses
13
Affichages
1 K
ChTi160
A
  • Résolu(e)
XL 2021 Boucle VBA suppression colonne si chaîne de caractère non attendue
Réponses
4
Affichages
509
Aïden
A
B
  • Question Question
Autres Comptage de données (octets)
Réponses
3
Affichages
1 K
bernardrustrel
B
S
  • Question Question
Autres 2 sujets: 1_Appliquer couleurs à partir de l'onglet "complément" sur calendrier. 2_ Créer 1 boucle d'mages JPEG en auto, type diapo sur Excel 2007
2
Réponses
15
Affichages
2 K
AtTheOne
A
  • Question Question
Microsoft 365 Essai d'une création de macro
Réponses
8
Affichages
909
Dranreb
POWERQUERY :: Charger des modules/fonctions à partir du disque et les exécuter à l'issue - Function.Invoke
Réponses
0
Affichages
561
oguruma
E
  • Question Question
Microsoft 365 Formule pour code barre à critères multiples
Réponses
3
Affichages
1 K
erga8
E
R
  • Question Question
Microsoft 365 Macro recherchev dans calendrier Outlook
Réponses
3
Affichages
949
Hasco
B
  • Question Question
XL 2019 Afficher une barre de progression lors de l'exécution d'une macro d'un autre userform
Réponses
2
Affichages
2 K
Bana XIII
B
R
  • Résolu(e)
XL 2019 Ouverture de fichier bloquée à 0%
3 4 5
Réponses
72
Affichages
8 K
R.Noel
R
A
  • Résolu(e)
XL 2016 Liste déroulante intuitive (adaptation du code)
Réponses
4
Affichages
1 K
all_yver
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…