Barre de Progression en VBA

[CloDeMarc]

Bonjour,
J'ai fait une barre de progression avec un Userform dans lequel j'ai placé un "Frame" et dans lequel j'ai ajouté un "Control Label" Jusque là tout va bien. Lorsque je démarre l'impression de quelques feuilles (20) et que je veux en faire suivre la progression par une barre, j'ai bien la barre à l'écran mais sans progression. J'ai évidemment Initialisé le Userform pour mettre en place la barre en question puis j'ai ajouté du code dans un module "Sub Main" comme celui ceci:
If ThisWorkbook.Sheets("Feuil1") = true then
Compteur = 1
From i = 1 to 20
Compteur = Compteur +1
PctDone = Compteur * "5%" '(Me disant que 100% / Nbre de feuille = 5%) ?
ThisWorkbook.Sheets("Feuil1"). PrintOut
Call ProgressBar
next i
End Sub

Sub ProgressBar
With UserForm1
.Frame1.Caption = Format(Pct, "0%") '(syntaxe empruntée sur un forum )
.Label1.Width = Pct * (.Frame.Width - 10) '( ici aussi)
.Repaint
End If
End Sub

Avec ma commande pour activer l'impression, cela fonctionne mais la barre demeure inactive. De plus je souhaite trouver la bonne formulation pour que toutes les feuilles sélectionnées de mon programme s'exécutent à l'impression au lieu de les nommer une à la fois comme c'est le cas dans la syntaxe affichée plus haut (ThisWorrkbook.Sheets etc...).

Je pense qu'il y a plusieurs erreurs dans la composition et l'activation de ma barre de progression comme exposé ici....mais je suis dans une noirceur totale et incapable d'aller plus loin. Merci de bien vouloir m'aider à progresser (moi-aussi)

 

[akibodo]

Re : Barre de Progression en VBA

Salut le Forum, ClodeMarc,

Va voir ici je pense que ça peux répondre à ta question :


Ce lien n'existe plus

 

[JCGL]

Re : Barre de Progression en VBA

Bonjour à tous,

Je ne pense pas que tu puisses avoir une barre de progression pour une impression... Il n'y a pas de calcul fait par XL, il envoie les données dans le spooler et c'est tout.

A+