Progressbar pour une macros.

[Sekel]

Bonjour,

J'ai vu de nombreux sujet sur les progressbar mais je n'arrive pas à en trouver une qui soit fonctionnelle pour ma macros.
je dispose d'une macros qui fait appel a 4 macros mon but est de reussir a incrementer 25%(en chiffre ou de la barre) entre chaque macros.

la macros est la suivante :

Private Sub CommandButton3_Click()
Application.Visible = False
Workbooks.Open (ActiveWorkbook.Path & "\\Rapport.xls")
Application.Visible = False
Application.Run "ClasseurInterface.XLS!Suppression_Dechets"
Je voudrais increment ici
Application.Run "ClasseurInterface.XLS!Allignement"
ici
Application.Run "ClasseurInterface.XLS!Tri_Final"
et ici
Application.Visible = True

End Sub

Si vous avez la solution je vous remercie d'avance =P ou une piste peu-être ? =)

Cordialement.

 

[tototiti2008]

Re : Progressbar pour une macros.

Bonjour Sekel,

OK pour la macro, mais quelle Progressbar as-tu choisi (il y a de nombreux moyens de faire une Progressbar)

 

[Sekel]

Re : Progressbar pour une macros.

Bonjour merci de ta reponse.

La mienne sera que je ne sais pas quoi choisir je comprends pas le pricnipe de fonctionnement je chercher juste a créer une barre de progression.
Les nombreux moyen m'embrouille la tête et étant débutant je me perd dans les méthodes .
Le but final étant juste que la barre progress evolue afin que les utilisateur ne pense pas que le macros a planter car elle prend un certain temps a s'effectuer 5 à 10min cela depend.
Ou alors un autre moyen de notifier a l'utilisateur que la macros s'execute bien mais je pense que d'un point de vue ergonomie une barre de progression serais top =) .

Merci.

 

[Sekel]

Re : Progressbar pour une macros.

Petite Précision :

J'exclu la possibilité de me servir d'un timer car chez moi la macros prend 5min et au boulot par exemple 10. Impossible donc d'utiliser sans être incorrecte =).

 

[tototiti2008]

Re : Progressbar pour une macros.

Re,

un exemple de progressbar, à adapter, il faut remplacer les "Application.Wait" par tes codes de traitement

 

[Sekel]

Re : Progressbar pour une macros.

Merci je pense que je suis pas loin du but !!!

Lorsque j'integre et modifie les Application.wait par Application.Run "ClasseurInterface.XLS!Suppression_Dechets" et que j'execute il me dit que Erreur de compilation :
Membre de methode ou de données introuvable
et il selectionne .L_Pourcent

=S.

 

[Sekel]

Re : Progressbar pour une macros.

J'ai identifier mon probleme :

Je n'arrive pas a affecter le debut de la macros a l'execution du bouton que je souhaites

Mon bouton est dans un Userform c'est le bouton 3 et son code est :

Private Sub CommandButton3_Click()
Application.Visible = False
Workbooks.Open (ActiveWorkbook.Path & "\\Rapport.xls")
Application.Visible = False
Application.Run "ClasseurInterface.XLS!Suppression_Dechets"
Application.Run "ClasseurInterface.XLS!Allignement"
Application.Run "ClasseurInterface.XLS!Tri_Final"
Application.Visible = True

End Sub

Suite a ton exemple j'ai ajouter la macro Lance a mon classeur ( le meme que celui qui lance les autre macros):

Application.Run "ClasseurInterface.XLS!Lance"
With UserForm1
Application.Wait Now + TimeValue("00:00:02")
.L_Evol.Width = .L_Fond.Width / 4
.L_Pourcent.Caption = "25%"
DoEvents
Application.Run "ClasseurInterface.XLS!Suppression_Dechets" + TimeValue("00:00:02")
.L_Evol.Width = .L_Fond.Width / 2
.L_Pourcent.Caption = "50%"
DoEvents
Application.Run "ClasseurInterface.XLS!Allignement" + TimeValue("00:00:02")
.L_Evol.Width = 3 * .L_Fond.Width / 4
.L_Pourcent.Caption = "75%"
DoEvents
Application.Run "ClasseurInterface.XLS!Tri_Final" + TimeValue("00:00:02")
.L_Evol.Width = .L_Fond.Width
.L_Pourcent.Caption = "100%"
DoEvents
Application.Wait Now + TimeValue("00:00:01")
End With
Unload UserForm1
End Sub

et la il me met l'erreur.

 

[tototiti2008]

Re : Progressbar pour une macros.

Re,

Alors, si tu es déjà dans un userform (ce que j'ignorais), à toi de voir où faire apparaître ta progressbar
Directement dans le userform qui contient ton CommandButton3 ?
Si oui, il va te falloir créer les labels que j'avais nommés L_evol, L_pourcent et L_fond au bon endroit...

ensuite tu peux supprimer les lignes "Application.Wait" et aussi tous les "+ Timevalue(...)"

 

[Sekel]

Re : Progressbar pour une macros.

Niquel sa marche merci beaucoup =) .

Bonne journée