Discussion :

[graphikris]

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

[cerede2000]

Indique la source de ton code parce que la il manque des bouts.
Il y a juste le code d'un event clic sur un bouton qui lance la progression.

Donc en gros ça progresse mais tu n'as aucun traitement pendant cette progression.

[Philippe PONS]

Salut,

à priori, cette procédure est déclenchée par un clic
sur un bouton du formulaire nommé CommandButton1.
Elle fait référence à un formulaire nommé UserForm_demo
Il faut donc adapter le nom du formulaire.
Cordialement,

[graphikris]

Voici le fichier Excel :barre_de_progression.xls

[Invité]

Bonjour,
http://www.developpez.net/forums/d14...e/#post7898843

[graphikris]

Oui j'ai deja vu ce post mais tu ne réponds pas a ma question

[Philippe PONS]

Salut graphikris,

Ta barre de progression fonctionne nickel!
et du coup je ne comprend pas ta question!
(Si tu as toujours une question!)
Cordialement,

[cerede2000]

Je ne comprends pas pourquoi tu n'utilise pas ce que t'as indiqué @rdudupt.
C'est exactement ce qu'il te faut...

Son USF est totalement indépendant du traitement que tu fais à côté.
Tu as juste à faire avancer la progression au cours de ta fonction de traitement.

[graphikris]

Je sais mais je ne comprends pas comment faire.
J'ai mis un exemple de code que j'utilise ci dessus