ProgressBar pendant l'éxéction de macro

**GADENSEB** · 18/07/2016, 14h49

Bonjour le Forum,

je souhaiterais créer une barre de progression (basique) qui progresserais en fonction de l'avancée de 4 macros qui se succèdent.

Macro 1
Macro 2
Macro 3
Macro 4

Chaque macro ayant un temps d’exécution différent.

Comment faire en sorte que celle-ci progresse en fonction du temps d’exécution de chaque et non pas par tranche de Macro1 (25%) Macro2 (50%).......
et en rajoutant le nom de la macro qui s'éxécute "Exécution de la macro 1 : Merci de patienter...."

avez-vous un exemple de code que je puisse travailler dessus.
je n'ais rien trouvé qui me plaise ....

Merkiiii

**Al__22** · 18/07/2016, 15h15

http://www.developpez.net/forums/d56...sion-sous-vba/

Sinon j'ai un truc qui traîne dans un coin si tu veux, mais je trouve que ça ralentie la macro

**kiki29** · 18/07/2016, 16h12

Salut, voir ici

**patricktoulon** · 18/07/2016, 18h27

Bonjour
tout d'abords oui diviser la Progress par le nombre de macros
puis chaque tranches doit progresser selon la macro pour cela il faudrait que l'on ai ton fichier sous la main sans ca c'est tellement du cas par cas qu'il sera impossible pour quiconque de t'aider
tu le comprends bien

car pour determiner la progression il faut l'objectif de la macro et le debut

exemple simple
prend un fichier vierge
met lui un userorm dans le quel tu met un progressbar
met lui aussi un textbox
comme tu a quatre macro on va mettre la progressbarx Max a 40

maintenant colle se code dans un module standard et regarde

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
Dim d As Long
Sub testprogress()
d = 0
UserForm1.Show 0
macro1
macro2
macro3
macro4
End Sub
Sub macro1()
Max = UserForm1.ProgressBar1.Max / 4
UserForm1.TextBox1 = "macro1"
For i = 1 To 10
d = d + 1
Application.Wait (Time + 0.00001)
UserForm1.ProgressBar1.Value = d
Next
End Sub
Sub macro2()
DoEvents
UserForm1.TextBox1 = "macro2"
Max = UserForm1.ProgressBar1.Max / 4
For i = 1 To 10
d = d + 1
Application.Wait (Time + 0.00001)
UserForm1.ProgressBar1.Value = d
Next
End Sub
Sub macro3()
DoEvents
UserForm1.TextBox1 = "macro3"
Max = UserForm1.ProgressBar1.Max / 4
For i = 1 To 10
d = d + 1
Application.Wait (Time + 0.00001)
UserForm1.ProgressBar1.Value = d
Next
End Sub
Sub macro4()
DoEvents
UserForm1.TextBox1 = "macro4"
Max = UserForm1.ProgressBar1.Max / 4
For i = 1 To 10
d = d + 1
Application.Wait (Time + 0.00001)
UserForm1.ProgressBar1.Value = d
Next
End Sub

**clementmarcotte** · 18/07/2016, 20h17

Avant de vouloir une barre de progression, tu devrais vouloir t'assurer que ta macro ne tournera jamais sur un Excel à 64 bits. À moins de trouver à quelque part un contrôle de barre de progression compilé pour être compatible avec un Office 64 bits. Parce que les vieux contrôles VB6 (RichTextBox, Calendar, ProgressBar, MonthView, DateTimePicker etc.) ne sont pas compatibles avec Office à 64 bits.

**GADENSEB** · 20/07/2016, 12h27

hello
Merci à tous des infos et code
Suite au commentaire de clementmarcotte je comprends mieux pourquoi DateTimePicker ....... ne fonctionnais plus .... je fonctionne sous Office 64.

ok ok
Du coup, comment contourner la chose et avoir des DateTimePicker .... et du coup barre de progression sous Office 64 ????

J'ia testé des barre de progression (office inferieur et cela fonctionne)
quel est le meilleur choix à faire ?

**kiki29** · 20/07/2016, 13h02

Salut, toujours d'actualité : Développer avec Office 64 bits

D'autant plus que même Microsoft déconseille l'installation d'une version 64 bits d'Office.

Office 32 bits est recommandé pour la plupart des utilisateurs
Nous recommandons la version 32 bits d’Office pour la plupart des utilisateurs, car elle offre une plus grande compatibilité avec la plupart des autres applications, en particulier les compléments tiers. C’est la raison pour laquelle la version 32 bits d’Office 2013 est installée par défaut, même sur les systèmes d’exploitation Windows 64 bits. Sur ces systèmes, le client Office 32 bits est pris en charge en tant qu’installation Windows-32-on-Windows-64 (WOW64). WOW64 est l’émulateur x86 qui permet l’exécution de façon transparente des applications Windows 32 bits sur les systèmes Windows 64 bits. Cela permet aux utilisateurs de continuer à utiliser les contrôles ActiveX et les compléments COM Microsoft avec la version 32 bits d’Office.

**GADENSEB** · 21/07/2016, 07h30

Ok merci de la citation ;-)
Je viens de rebasculer en 32....
Plus simple....
Je vais tester vis codes.....
À+ merci

**Marc-L** · 21/07/2016, 16h10

Bonjour,

pour Excel 64 bits les ActiveX DateTimePicker et ProgressBar peuvent être remplacés par de simples UserForm s'en passant !
Il doit y avoir un exemple de calendrier dans le forum Contribuez sinon un peu partout sur la Toile …

_________________________________________________________________________________________________________
Je suis Paris, Nice, Bruxelles, Charlie, …

**patricktoulon** · 21/07/2016, 16h22

Bonjour Marc
ainsi que la progressbar (contribution avec mon pseudo) avec(style vista ou blue seven ou simple )
mais pour ca il faut taquiner le bouton rechercher n'est ce pas !!!

allez tiens voila c'est la
http://www.developpez.net/forums/d12...facon-patosch/

**GADENSEB** · 27/07/2016, 10h27

Hello
parfait pour le premier code de patricktoulon

merci à vous

**GADENSEB** · 28/02/2017, 13h19

Hello LeForum

je viens de retravailler un peut le code de Patrick post 4

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
Dim d As Long
Sub ProgressBar()
pb = 0
Usf_ProgressBar.Show 0
 
 
macro1
macro2
macro3
macro4
macro5
macro6
 
Unload Usf_ProgressBar
 
End Sub
Sub macro1()
 
Max = Usf_ProgressBar.ProgressBar1.Max / 6
Call Tridonnées
Usf_ProgressBar.TextBox1 = "Tridonnées"
For i = 1 To 10
pb = pb + 1
'Application.Wait (Time + 0.00001)
Usf_ProgressBar.ProgressBar1.Value = pb
Next
End Sub
Sub macro2()
 
DoEvents
Usf_ProgressBar.TextBox1 = "Formate_Date"
Call Formate_Date
Max = Usf_ProgressBar.ProgressBar1.Max / 6
For i = 1 To 10
pb = pb + 1
'Application.Wait (Time + 0.00001)
Usf_ProgressBar.ProgressBar1.Value = pb
Next
End Sub
Sub macro3()
 
DoEvents
Usf_ProgressBar.TextBox1 = "ExtractRestant45J"
Call ExtractRestant45J
Max = Usf_ProgressBar.ProgressBar1.Max / 6
For i = 1 To 10
pb = pb + 1
'Application.Wait (Time + 0.00001)
Usf_ProgressBar.ProgressBar1.Value = pb
Next
End Sub
Sub macro4()
 
DoEvents
Usf_ProgressBar.TextBox1 = "ListBudgetMois"
Call ListBudgetMois
Max = Usf_ProgressBar.ProgressBar1.Max / 6
For i = 1 To 10
pb = pb + 1
'Application.Wait (Time + 0.00001)
Usf_ProgressBar.ProgressBar1.Value = pb
Next
End Sub
Sub macro5()
 
DoEvents
Usf_ProgressBar.TextBox1 = "ListDifference"
Call ListDifference
Max = Usf_ProgressBar.ProgressBar1.Max / 6
For i = 1 To 10
pb = pb + 1
'Application.Wait (Time + 0.00001)
Usf_ProgressBar.ProgressBar1.Value = pb
Next
End Sub
 
Sub macro6()
 
DoEvents
Usf_ProgressBar.TextBox1 = "Format_Sht_INTERFACE"
Call Format_Sht_INTERFACE
Max = Usf_ProgressBar.ProgressBar1.Max / 6
For i = 1 To 10
pb = pb + 1
'Application.Wait (Time + 0.00001)
Usf_ProgressBar.ProgressBar1.Value = pb
Next
End Sub

Ce qui est super bizarre c'est que la progress bar revient début à chaque exécution de macro.

J'ai mis "Pb" en variable car "d"est en variable de l'une des macro.

qqn aurait une idée ?