Barre avancement Utilisation

[joedu31]

Bonjour,

Je viens de télécharger la barre d'avancement ci-joint, et je voulais savoir à quel moment il faut la placer dans la macro où le calcul que je veux faire est assez long?

Excel Downloads - Barre avancement HB

Merci à vous,
Joe

 

[Dranreb]

Re : Barre avancement Utilisation

Bonsoir.

Perso j'ai une barre d'avancement qu'on affiche par une instruction: Tâche "désignation tâche", NbMax, "opé."
et qu'on met à jour juste avant le Next Nb d'une boucle For Nb = 1 To NbMax par: Call OùÇaEnEst.

Edit: Je joins ça.

Remarque: Avez vous tout mis en œuvre pour ne pas en avoir besoin ?
(Application.ScrenUpdating = False, Application.Calculation = xlCalculationManual, minimum d'accès possible aux cellules en traitant tout par tableaux VBA) Si c'est une macro brute sortie de l'enregistreur, qui met 1/4 d'heure, vous pourriez bien avoir la surprise de voir ramené ça à 3/10 secondes !

 

[joedu31]

Re : Barre avancement Utilisation

Bonjour,
Merci pour ta réponse, cette barre d'avancement serait super!

J'ai essayé plusieurs fois l'opération mais elle ne marche pas sur mon fichier...

Ci joint ma macro

'=============================='

Sub macroClear()
Dim reponse As String
reponse = MsgBox(prompt:=" Êtes vous sur de vouloir tout supprimer ? Cette action est irréversible. ", Buttons:=vbYesNo, Title:="Attention")
If reponse = vbYes Then
    clear_all
   
End If

End Sub

Je ne vois pas, où est ce qu'il faut que j'insère les macro présente dans votre fichier... ("Oùçaenest" et "MasquerUFmBarProg")

 

[Dranreb]

Re : Barre avancement Utilisation

Bonjour.
Comme l'exemple du module Applicatif1. Un appel à Tâche devant la boucle, un appel à OùÇaEnEst avant le Next.
Donc ça doit être fait dans votre macro clear_all je suppose.

Mais d'après son nom elle semble n'avoir pour rôle que de nettoyer des cellules. Ça devrait être instantané !

 

[joedu31]

Re : Barre avancement Utilisation

Le calcul est assez long, car je fais le nettoyage sur plusieurs feuilles...

Sur ton fichier source, la barre fonctionne super bien mais pour mon cas, il me donne un message d'erreur :

UFmBarProg : Variable non définie

 

[Dranreb]

Re : Barre avancement Utilisation

Il faut naturellement glisser cet UserForm vers ton projet VBA.
De même que le module de service MBarreProg.

Il y a de grandes chances que ce soit long parce que c'est très mal écrit…

 

[joedu31]

Re : Barre avancement Utilisation

Salut,

Je te joins mon fichier pour avoir les idées claires.
La barre de chargement, serai idéale, lorsque je clique sur "Oui" du message de la box...


PS: Tu t'es aussi occupé de mon cas, pour le sujet de la suppression de cellules. Quand le fichier est remplis à bloque, c'est vrais que il rame pas mal... Peut être une modif à apporter avec une boucle? ou le .ClearContents


Merci à toi Dranreb

 

[Dranreb]

Re : Barre avancement Utilisation

Bonjour.
Chez moi pour l'instant c'est rapide tel que c'est.
Mais peut être est-ce parce que les cellules sont déjà remplies de textes vides de sorte que ça ne change pas leur contenu.
S'il y a des formules qui se réfèrent à ces cellules dans d'autres feuilles je vous conseille en tête de la macro clear_all:

Application.Calculation = xlCalculationManual

et à la fin :

Application.Calculation = xlCalculationAutomatic

Peut être pourriez vous le faire avec moins d'instructions. Essayez ça :

Sub Macro2()
Dim Plg As Range
Set Plg = Worksheets("INTRO").Columns("C").SpecialCells(xlCellTypeConstants, 1).EntireRow
Application.Goto Plg ' pour test. Après videz les intersection de certaines colonnes entières et de Plg
End Sub

 

[joedu31]

Re : Barre avancement Utilisation

Je viens de rajouter les deux lignes de formules citées plus haut, et le résultats est instantané... Avant cela durer bien 20/25 secondes... Merci

Mais l'histoire de la barre d'avancement me turlupine... Je vois pas d'ou vient l'erreur...

 

[Dranreb]

Re : Barre avancement Utilisation

Bonjour.
À ta dernière allusion à ce problème tu avais apparemment simplement dû oublier d'implanter l'UserForm UFmBarProg. Je ne vois vraiment pas d'où pourrait venir d'autre que ce nom ne soit pas connu.

 

[joedu31]

Re : Barre avancement Utilisation

Super, je vais essayer d'actualiser mon précédent fichier

Comme je vois que tu est à l'aise avec les macros, peut être que tu pourra résoudre mon 2 ème problèmes...
https://www.excel-downloads.com/threads/resolu-fonction-grouper-tableau.20007816/

 

[Dranreb]

Re : Barre avancement Utilisation

Non, ben, j'ai pas suivi l'affaire, désolé.