Barre de progression pour Call macro

Version imprimable

11/01/2018, 11h32
LPRVMZ

Barre de progression pour Call macro

Bonjour !

Depuis pas mal de temps je cherche à faire une barre de progression standard pour occuper un utilisateur lors de la realisation d'un ensemble de macros.

J'ai regroupé ces macros (macro1, macro2, macro... etc il y en a 14 en tout) au sein d'une macro globale qui utilize call pour chaque procedure.
Ces macro (avec boucles) s'appliquent sur une feuille don't le contenu en colonne est fixe mais le nombre de ligne peut varier, on ne sait donc pas determiner fixement le temps nécessaire ou le nombre de changements à faire

J'ai essayé pacman avec plus ou moins de success (elle disparait en cours de route) :(

Auriez-vous une piste là je sèche et je dois presenter lke tout mercredi :((

HELLLPPP please :)
11/01/2018, 12h42
unparia

Bonjour
Sans autres précisions sur le déroulement de chaque ~~macro~~ procédure ainsi appelée, je ne peux que proposer un avancement le la progressbar par procédure appelée !

Citation:

et je dois presenter lke tout mercredi

cette préoccupation est la tienne seule et ne nous intéresse point. Il n'y a ici aucune "urgence", ni aucune "priorité". Uniquement des difficultés exposées et des solutions proposées, sans qu'aucun "délai" ne constitue quelque "facteur" que ce soit de quoi que ce soit.

Bonjour,

Piste de solution :

Tu peux par exemple utiliser un Userform et y placer une ProgressBar, et changer la valeur après tous tes Call.
De ce fait, la barre de progression s'actualisera après chaque phase de ton programme.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
public sub barredeprogression()
 
UserForm1.ProgressBar1.max = 1000        'valeur max de la progress bar
 
Call toto1                                          'appel de ta macro
UserForm1.ProgressBar1.Value = 400        'mise a jour de la barre de progression
UserForm1.Label1.Caption = Application.WorksheetFunction.RoundUp(((100 * UserForm1.ProgressBar1.Value) / UserForm1.ProgressBar1.max), 1) & "%"
'affiche le pourcentage dans un Label1 que tu places dans le userform
userform1.repaint                                'rafraichissement userform
 
Call toto2                                                  'même procédure
Userform1.ProgressBar1.Value = 800
UserForm1.Label1.Caption = Application.WorksheetFunction.RoundUp(((100 * UserForm1.ProgressBar1.Value) / UserForm1.ProgressBar1.max), 1) & "%"
Userform1.repaint
 
Call toto3                                                  'appel dernière sous macro
Userform1.ProgressBar1.Value = 1000        'arrivée au max
UserForm1.Label1.Caption = Application.WorksheetFunction.RoundUp(((100 * UserForm1.ProgressBar1.Value) / UserForm1.ProgressBar1.max), 1) & "%"
Userform1.hide                               'Fermeture du Userform
 
end sub

Macro à bien sûr réadapter selon ton besoin, l'avantage est que même avec un fichier excel à nombre de lignes variable, cette solution fonctionnera.

Amicalement,
daBz

11/01/2018, 16h10
Invité

1 pièce(s) jointe(s)

Bonjour,

Bonjour,

Tu peux aussi tout simplement utiliser la barre d'état (sous les feuilles), un petit exemple à attacher à un bouton formulaire :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Sub Test()
 
    Dim I As Long
    Dim J As Integer
    Dim Max As Long
    Dim Etat As Boolean
 
    Max = 100000
 
    With Application
 
        Etat = .DisplayStatusBar
 
        .DisplayStatusBar = True
 
        For I = 1 To Max
 
            .StatusBar = "Veuillez patienter, traitement en cours, progression : " & CInt((I / Max) * 100) & "%"
 
            For J = 1 To 10
                DoEvents
            Next J
 
        Next I
 
        .StatusBar = False
 
        .DisplayStatusBar = Etat
 
    End With
 
End Sub

25/01/2018, 11h21
LPRVMZ

Bonjour à tous

désolé pour ce long silence j'étais sur les routes ^^
Merci de ces éléments je vais les testés tous.

Désolé de l'accroche qui 'avait pas lieu d'être formulé ainsi :oops:

Je vous tiens au courant de mes avancées :)
25/01/2018, 17h16
Marc-L

Bonjour,

et ne pas oublier de comparer le temps d'exécution de ton code avec barre de progression puis sans cette barre ! …

___________________________________________________________________________________________________________
Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …