Bonjour,

J'aimerais adapter une barre de progression au déroulement de ma macro. J'ai trouvé sur le net, quelque chose qui me convient mais je n'arrive pas à l'intégrer à ma macro.
Voici le code du USERFORM de la barre de progression :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub CommandButton1_Click()    
    Application.ScreenUpdating = False    
    UserForm_demo.Height = 121.5
    compteur = 0
    progression = 0    
    For ligne = 1 To 5000
        For col = 1 To 50        
            compteur = compteur + 1
            Cells(ligne, col) = ligne + col            
            If compteur Mod 2500 = 0 Then '=> sera exécuté 100x                
                progression = progression + 1
                Image_barre.Width = progression * 1.5
                Label_barre.Caption = progression & "%"
                DoEvents                
            End If            
        Next
    Next    
    Application.ScreenUpdating = True
    UserForm_demo.Height = 136.5    
End Sub
et ici le code du module concerné :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Sub ouvrir()
    UserForm_demo.Show
End Sub
Ma question est la suivante : Où dois je intercaler ma macro ?

Cordialement