ProgressBar

[Don Foster]

Bonsoir à toutes et à tous

Dans le fichier joint je traite actellement plus d'une centaines de fichiers.

Ce que je n'arrive pas à faire c'est de mettre une barre de progréssion pendant le traitement.

Actuellement j'ai mis un message d'attente et je voudrais le remplacer par une barre de progréssion , j'ai essayer plusieurs fichiers démo trouvé sur le forum mais sans aucun résultat.

Merci pour votre aide.

@ + Don Foster

 

[BERRACHED said]

Re : ProgressBar

Salut,Don Foster

Voire ce fichier et essayé de l'adapter

Cordialement

 

[Don Foster]

Re : ProgressBar

Bonsoir le forum , BERRACHED said

Citation:
"Voire ce fichier et essayé de l'adapter"

Merci pour la réponse mais la barre de progréssion ne se fait pas pendant le traitement mais elle se fait sur des cellules alléatoires.

Ce que je voudrais c'est quelle progresse durant la recherche des informations , c'est à dire : pendant quelle lit les fichiers , récupère les données demandées et les affiches .

J'ai essayé plusieur méthodes sans aucun résultat . " Je suis trop nul en VBA ..... Lol "

J'espère que ma demande n'est pas trop excessive.

Vous remerçiant par avance je vous souhaite une très bonne soirée.

PS😛rendre le fichier dans mon premier post

@ + Don Foster

 

[BOISGONTIER]

Re : ProgressBar

Bonjour,

Exemple en PJ

Le temps de traitement de chaque fichier est proportionnel à sa taille.
On calcule d'abord la taille totale des fichiers

Sub Deroule()
  UserForm1.Show
  Application.DisplayAlerts = False
  Application.ScreenUpdating = False
  repertoire = ThisWorkbook.Path & "\"
  '- calcul de la taille totale des fichiers commençant par ADO
  masque = "ADO*.xls"
  nf = Dir(repertoire & masque)  ' premier fichier
  TailleTot = 0
  Do While nf <> ""
    TailleTot = TailleTot + FileLen(repertoire & nf)
    nf = Dir()
  Loop
  '-- traitement des fichiers
  nf = Dir(repertoire & masque)
  Do While nf <> ""
    Workbooks.Open Filename:=repertoire & nf
    ActiveWorkbook.Close
    p = p + FileLen(repertoire & nf) / TailleTot
    UserForm1.Label1.Width = p * 100
    UserForm1.Caption = Format(p, "0%")
    DoEvents
    nf = Dir()
  Loop
  Unload UserForm1
End Sub

JB
Formation Excel VBA JB