Microsoft 365 Barre de progression dans une macro sans boucle

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 7 Septembre 2020

• #2

Bonjour Egruat,
La bonne question est pourquoi cela met une minute pour ouvrir trois fichiers et y picorer quelques datas ?
Sinon peut être pouvez vous utiliser le Statusbar, en faisant entre chaque fichier :

VB:

Application.StatusBar ="Traitement du fichier x"

.
Ce n'est pas un progressbar mais vous permet de voir où vous en êtes.

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 7 Septembre 2020

• #3

Bonjour sylvanu,

sylvanu à dit:

La bonne question est pourquoi cela met une minute pour ouvrir trois fichiers et y picorer quelques datas ?

Cliquez pour agrandir...

Je trouve que tu as posé une très bonne question !

Et ton idée d'utiliser StatusBar est excellente !

soan

 

Vote positif 0 Vote négatif

E

Egruat

XLDnaute Occasionnel

• 7 Septembre 2020

• #4

Merci de votre réponse. Car il y a beaucoup de données.

La macro efface la base de donnée globale, puis additionne les données de 3 fichiers différents, puis ajoute des colonnes de calcul.

Je cherche à avoir une barre de progression qui puisse tenir compte de l'avancée des différentes actions de la macro. Mais les exemples de Barre de progression sont axés sur une macro ayant une boucle, ce qui n'est pas mon cas.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 7 Septembre 2020

• #5

Bonjour.
J'ai un UFmProg qui affiche une barre d'avancement par exécution d'une procédure Tâche où on indique le nombre d'opérations élémentaires à effectuer. Une procédure OùÇaEnEst doit ensuite être invoquée autant de fois que ce nombre, mais je n'ai jamais dit que ces invocations devaient obligatoirement être dans une boucle, bien que ce soit le plus souvent le cas.

 

Pièces jointes

• Progression.xlsm

  210.7 KB · Affichages: 82

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 7 Septembre 2020

• #6

Re le fil, Bonsoir Dranreb,
Sinon, il y a : https://www.excel-downloads.com/resources/inserer-un-progressbar-dans-le-statusbar.1139/
Il suffit d'appeler le ProgressBar en mettant un % qui doit être évalué.
Par exemple 3 fichiers et 33 colonnes ça fait quasi 100 colonnes. A chaque colonne traitée on ajoute 1%.

 

Vote positif 0 Vote négatif

E

Egruat

XLDnaute Occasionnel

• 8 Septembre 2020

• #7

Dranreb à dit:

Bonjour.
J'ai un UFmProg qui affiche une barre d'avancement par exécution d'une procédure Tâche où on indique le nombre d'opérations élémentaires à effectuer. Une procédure OùÇaEnEst doit ensuite être invoquée autant de fois que ce nombre, mais je n'ai jamais dit que ces invocations devaient obligatoirement être dans une boucle, bien que ce soit le plus souvent le cas.

Cliquez pour agrandir...

Merci pour votre fichier. Mais cela semble très complexe avec de nombreuses macros. Je recherche quelque chose de plus simple. Pourriez-vous m'aider ?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 8 Septembre 2020

• #8

Bonjour.
Glissez/déplacez l'UFmProg vers le projet VBA de votre classeur, et il sera opérationnel.
Ah, pas tout à fait: il a aussi besoin des modules de classe Planification et Rythmeur, lesquels utilisent les modules standard MPlanificateur et MRythmeur. Glissez déplacez aussi ces quatres noms dans l'explorateur de projets. L'essentiel c'est que ce soit très simple à utiliser dans le module utilisateur, non ?

 

Dernière édition: 8 Septembre 2020

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 8 Septembre 2020

• #9

Le l'ai fait dans un nouveau classeur et lancé cette procédure :

VB:

Sub Test()
   UFmProg.Tâche "Essai", 3
   Application.Wait Now + TimeSerial(0, 0, 1)
   UFmProg.OùÇaEnEst
   Application.Wait Now + TimeSerial(0, 0, 1)
   UFmProg.OùÇaEnEst
   Application.Wait Now + TimeSerial(0, 0, 1)
   UFmProg.OùÇaEnEst
   End Sub

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 8 Septembre 2020

• #10

Vous devriez quand même joindre des modèles de vos 4 fichiers.
Il ne semble que même s'il y avait 10000 lignes dans chacun des 3 fichiers de données, j'arriverais à synthétiser un tableau global en quelques secondes.

 

Vote positif 0 Vote négatif

E

Egruat

XLDnaute Occasionnel

• 11 Septembre 2020

• #11

Merci béa je vais essayer de vous transmettre un fichier

 

Vote positif 0 Vote négatif