Userform de progression

Bonjour,

Je travail sur une macro qui doit récupérer des données dans un autre classeur, les mettre en forme, les filtres et générés de nouveaux fichiers selon ces filtres.

Tout cela étant très long malgre le Application.screenupdating à false, j'ai voulu faire un Userform pour faire patienter, malheuresement,

il ne s'affiche que quand tout est fini

Est-ce a cause de la manipulation de plusieurs fichiers?

Option Explicit
Global wbSource, wbCeFichier As Workbook
Global NomFichier As String

Sub start()
    Set wbCeFichier = ThisWorkbook
    Dim NbFichier As Integer

    'Demande a office la fenetre fichier / ouvrir
    Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False

    'affichage fenetre
    NbFichier = Application.FileDialog(msoFileDialogOpen).Show

    If (NbFichier <> 0) Then
        Usf_Progress.Show
    Else
        MsgBox "Arret de la Procédure." & vbNewLine & "Merci de selectionner le fichier source."
    End If

End Sub

Bonsoir,

Ci-joint un exemple de progressbar bien fait, récupéré sur le net.

Je l'utilise depuis des années !

Bonne soirée

Bouben

Bonsoir, bouben bonsoir à vous,

sur "PROSPER" il y a une "Waitbox", vous pouvez regarder

En fait c'est juste un USF avec écrit dessus "Veuillez patienter" et le code se déroule en arrière plan, une fois le code "fini" la Waitbox est effacée.

Prosper est dans ma liste d'application à télécharger.

@ bientôt

LouReeD