Bonjour à tous,
 
J'ai créé un Userform dans lequel j'ai ajouter une barre de progression microsoft (version 6.0)
J'ai donc un UserForm1 contenant:
- un Fram1 contenant lui-même:
        - un Label1 (pour afficher le traitement en cours)
        - une ProgressBar1
 
Dans le code de mon Userform1 j'ai ceci:
[ccp]Private Sub UserForm_Initialize()
 
    With Me.ProgressBar1
        .Min = 0
        .Max = 41
        .Value = 0
    End With
     
End Sub[/cpp]
Au debut de ma macro j'affiche ma UserForm avec

A chaque étape de ma macro j'ajoute avant:

et à la fin de l'étape

 
Mais ma fenêtre de bougeait pas et restait au début (avec "Label1" au lieu de "Mon Etape" ).
J'ai donc utilisé:

 
pas d'effet,
 
j'ai mis ce dernier code entre :

 
Sans effet
 
Tout ce que je peux faire c'est prendre ma UserForm avec ma souris et la bouger pour m'amuser a la dupliquer partout
A part ça lorsque je clic sur le coin superieur droit pour fermer mon UserForm, ma macro s'execute (je ne sais pas si je ferme la UserForm pendant le traitement ou alors si Excel attend que je ferme la UserForm pour executer la macro.
 
C'est quoi l'astuce ????
 
un petit bout de mon code pour ceux qui demanderaient :

Bon je vais me répondre à moi-même:
 
Il faut rajouter vbModeless aprés UserForm1.Show
et ajouter UserForm1.Repaint aprés chaque mise à jour pour actualiser la barre.
J'en ai mis aprés les UserForm1.ProgressBar1.value +1
et les UserForm1.Label1 = "Mon  Etape"  
 
Voilou en espérant que ça aide d'autres gens

Plus explicitement
 

 
voilou

Salut,
 
  Un petit DoEvents dans la boucle permet au système de rendre la main, afin de réactualiser les affichages, par exemple.