Progressbar pour une macros.

  • Initiateur de la discussion Initiateur de la discussion Sekel
  • Date de début Date de début

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 !

Sekel

XLDnaute Nouveau
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.
 
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.
 
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.
 
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.
 
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(...)"
 
- 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

Retour