incorporer mon code dans Progress bar

[Dennnisss]

Bonjour a tous

J'ai prit une progress bar dans vos fichier et je me suis creer une macro sur excel
J'ai deux bouton dans la feuille un pour la progress et l,autre pour le trie , ou doit-je mettre le code de ma macro Trier_homme_reg dans le progress bar pour que lorsque la feuille se trie que la progress bar soit active ou fait son travail
Alors j,ai besoin de vous messieur et dame pour resoudre mon probleme , dans mon dossier j'envoie seulement une petite partie car en realiter j,ai pres de 8 feuille et j'aimerais y mettre une progress bar

Merci de votre aide j'attend vos solutions et apprecie votre temp que vous m'accorder grace a votre aide anterieur j'ai modifier mon programme avec beaucoup d,efficacité et de propreté

Salut dennnisss 🙂🙂

 

[SergiO]

Re : incorporer mon code dans Progress bar

Bonsoir Dennnisss,

Je reviens vers toi car j'avais lu ton premier post à ce sujet.

dans mon dossier j'envoie seulement une petite partie car en realiter j,ai pres de 8 feuille et j'aimerais y mettre une progress bar

Peut-être qu'on pourrait incrémenter ta Progress Bar (variable Z) de 1 à 8 et basculer du code ProgB au code Trier_homme_reg.

Mais n'ayant pas la totalité du fichier, difficile de t'aider.

Peux-tu en fournir davantage?

@+

 

[Dennnisss]

Re : incorporer mon code dans Progress bar

salut sergio

voici la macro qui doit avoir la progress bar je t,envois seulement le code car le programme en lui meme prend 9800 ko

alors voici le code de la macro

'
' Trie semaine reguliere Macro
' Macro enregistrée le 03/05/1998 par SIXPRO
'
'
Sub Faire_triage_de_la_semaine_reguliere()
Dim Feuille

Application.ScreenUpdating = False

'***********Ouverture des feuilles cachees***************

Feuille = Array("Verificateur Patterson", "Classement Reg Temp", "Deux pour un", _
"Maître", "Classement Reg", "Calendrier", "Triage", "1 à 120", "Homme Reg Temp", _
"Verificateur Regulier", "Homme Reg", "Femme Reg Temp", "Femme Reg", "Homme Sub Temp", "Homme Sub", _
"Femme Sub Temp", "Femme Sub", "Battre Moyenne Gelee", "Battre Moyenne Semaine")

For I = 0 To 18
Sheets(Feuille(I)).Visible = True
Next I

'******************Commence le trie des pages rapports***************

Sheets("Programme").Select
Application.Run "'Ligue.xls'!Placer_date_dans_verificateur"
Application.Run "'Ligue.xls'!Verifier_absent"
Application.Run "'Ligue.xls'!Remettre_changement_sub_temporaire"
Application.Run "'Ligue.xls'!Remettre_calendrier"
Application.Run "'Ligue.xls'!Copier_dernier_rendement"
Application.Run "'Ligue.xls'!Replacer_date_phs_pht"
Application.Run "'Ligue.xls'!Envoyer_pointage_dans_maitre"
Application.Run "'Ligue.xls'!Trier_deux_pour_un"
Sheets("Programme").Select
ActiveSheet.Unprotect
Range("M199").Select
ActiveCell.FormulaR1C1 = "1"
Range("M202").Select
ActiveCell.FormulaR1C1 = "0"
Range("M205").Select
ActiveCell.FormulaR1C1 = "0"
Range("M204").Select
Application.Run "'Ligue.xls'!Avancer_calendrier"
Application.Run "'Ligue.xls'!Trier_points_quilles"
Application.Run "'Ligue.xls'!Trier_triage"
Application.Run "'Ligue.xls'!Placer_meritas"
Application.Run "'Ligue.xls'!Replacer_joueurs"
Application.Run "'Ligue.xls'!Trier_classement_reg"
Replacer_page_triage_a_zero
Application.Run "'Ligue.xls'!Trier_homme_reg"
Application.Run "'Ligue.xls'!Trier_homme_sub"
Application.Run "'Ligue.xls'!Trier_femme_reg"
Application.Run "'Ligue.xls'!Trier_femme_sub"
Application.Run "'Ligue.xls'!Trier_battre_moyenne_gelee"
Application.Run "'Ligue.xls'!Trier_battre_moyenne_semaine"
Application.Run "'Ligue.xls'!Transferer_pointages"
Application.Run "'Ligue.xls'!Vider_page_verificateur"

'***********Fermeture des feuilles ouvertes***************

Feuille = Array("Verificateur Patterson", "Classement Reg Temp", "Deux pour un", _
"Maître", "Classement Reg", "Calendrier", "Triage", "1 à 120", "Homme Reg Temp", _
"Verificateur Regulier", "Homme Reg", "Femme Reg Temp", "Femme Reg", "Homme Sub Temp", "Homme Sub", _
"Femme Sub Temp", "Femme Sub", "Battre Moyenne Gelee", "Battre Moyenne Semaine")

For I = 0 To 18
Sheets(Feuille(I)).Visible = False
Next I

'**************Pour sauvegarder **************

Application.ScreenUpdating = True

Sheets("Programme").Select
Range("B5").Select
ActiveSheet.Protect
ActiveWorkbook.Save
Exit Sub
End Sub


alors de ton aide j'attend avec patience ton retour
si besoin de plus il va falloir que je te l'envoie par email je crois que zipper se serais faisable

bonne recherche et merci pour ton aide

dennnisss

 

[SergiO]

Re : incorporer mon code dans Progress bar

Bonjour Dennnisss,

N'ayant pas la totalité de ton fichier, voici une simulation de ton code.

J'ai associé chaque Application.run à un code qui affiche un Msgbox pour voir l'évolution du Progress Bar.

Fais un test pour voir si ça pourrait te convenir.

@+

 

[Dennnisss]

Re : incorporer mon code dans Progress bar

Salut sergio

je vient de prendre note de ton message je vais changer la programmation de mon programme et incorporer tes notes et a premiere vue cela semble correct
alors je vais faire mes changements et merci de ton aide elle est tres apprecier car j'avoue que vous tres bon dans vos correction et cela depasse souvent nos attente car vous ameliorer de beraucoup notre dossier , je te redonne des nouvelles

Bonne journee a toi
dennnisss