Inserer une progressbar dans un USF

[bqtr]

Bonjour le forum

J'ai la macro suivante qui fonctionne bien

Sub Macro1()

Dim Feuille as Worksheet

For each Feuille in Sheets(Array( "Feuilb", ........,"Feuilg"))
Feuille.Activate
With ActiveSheet.PageSetup
.Zoom = 80
End With
Next

Sheet("FeuilA").select

End Sub

Cette macro est assez longue car elle traite une trentaine de feuille et la mise en page est plus complexe ( là j'ai réduis pour faire court )

Je voudrai donc inserer un USF avec une progressbar pendant le traitement de la macro. L'USF est fait mais je n'arrive pas à lancer la progressbar.

En faisant une recherche j'ai trouvé trois pages qui traitent des progressbars, mais je n'arrive pas adapter les exemples.

Si quelqu'un avait une idée ?

Merci

P.O

 

[dg62]

Re : Inserer une progressbar dans un USF

Bonjour Bqtr

Comme ta macro boucle tu peux inserer l'incrémentation de ta progressBAR.

Private Sub CommandButton1_Click()
Dim Feuille As Worksheet

For Each Feuille In Sheets
[COLOR=Blue]ProgressBar1.Value = ProgressBar1.Value + 10[/COLOR]  ' progressbar sur userform + bouton pour lancer la macro
Feuille.Activate
With ActiveSheet.PageSetup
.Zoom = 80
End With


Next
End Sub

ne pas oublier de cocher dans les contrôles supp de vba le control progressBar.

 

[bqtr]

Re : Inserer une progressbar dans un USF

Bonjour dg62,

Merci pour ton aide, grace à toi ma progressbar progresse , mais pas jusqu'au bout!!!

Comment faire pour qu'elle soit synchro avec le temps de traitement de la macro ? C'est à dire que la barre se remplisse à 100% lorsque la macro s'arrête.

Je vais essayer avec une boucle sur le nombre de feuille pour déterminer la valeur max de la progressbar. Hummm!

Bon dimanche en tout cas.

P.O

 

[dg62]

Re : Inserer une progressbar dans un USF

re

Je vais essayer avec une boucle sur le nombre de feuille pour déterminer la valeur max de la progressbar.

c'est aussi ce que je ferais


Bon Dimanche

 

[myDearFriend!]

Re : Inserer une progressbar dans un USF

Bonjour bqtr, Dg62, le Forum,

Autrement dit :

[SIZE=2]Private [COLOR=navy]Sub[/COLOR] CommandButton1_Click()
[COLOR=navy]Dim [/COLOR]Feuille[COLOR=navy] As [/COLOR]Worksheet
      [COLOR=navy]With[/COLOR] ProgressBar1
            .Value = 0
            .Max = Sheets.Count
            [COLOR=navy]For Each[/COLOR] Feuille[COLOR=navy] In [/COLOR]Sheets
                  Feuille.Activate
                  [COLOR=navy]With[/COLOR] ActiveSheet.Page[COLOR=navy]Set[/COLOR]up
                        .Zoom = 80
                  [COLOR=navy]End With[/COLOR]
[/SIZE][SIZE=2]                   .Value = .Value + .Max / Sheets.Count
[/SIZE][SIZE=2]             [COLOR=navy]Next [COLOR=Black]Feuille[/COLOR][/COLOR]
      [COLOR=navy]End With
End[/COLOR] Sub[/SIZE]

Cordialement,

 

[dg62]

Re : Inserer une progressbar dans un USF

Bonjour Didier

clair, net et sans bavure


Bon Dimanche

 

[bqtr]

Re : Inserer une progressbar dans un USF

Bonsoir myDearFriend, dg62, tous le monde

Effectivement, clais net et sans bavure.
C'est tellement simple comme ca, et pourtant j'en ai passé du temps à essayer d'arriver à ce résultat !!!

Encore merci à vous deux et bonne fin de week-end

P.O