Version imprimable
Bonjour à tous et à toutes !!!!
je vouderais savoir , si il existe des tutoriels , traitant de l'optimisation du code en VBA . Ce tutoriel pourras m'aider peut etre à réduire le temps de chargement de mon programme , car pou le moment le temps qu'il met juste à charger c'est 2 Min , et j'aimerais bien le faire passer à 25 seconde ou meme à 40 sec :) .
Si quelqu'un à des bonnes ideés je suis à votre ecoute !!!!
Je vous remercie d'avance
Bonjour
pour optimiser un code VBA tu peux travailler avec des objets, des tableaux etc... il y a plein de bon exemple sur le site dans les tutoriaux et la FAQ.
Mais de quoi peut venir un temps si long ? tu charge ton fichier depuis un réseau ? ton fichier est énorme ? tu lances un paquet de macros au lancement du classeur ?
En as tu une idée ?
Pour vous répondre , je lance mon fichier depuis mon PC de bureau , le fichier Excel Fait que 1.72 Mo , l'idée que j'ai , c'est que au chargement ( cad quand je click sur le fichier excel , y'as un userforme qui s'affiiche et quand je clic sur le bouton charger , alors il met un temps enorme.Peut etre c'est qu'au lancement sumultanée de toute les macros . y'a t'il un moyens de ne pas les lancer au debut et que des lancer qu'au moment ou en a vraiment besoin , c'est à dire quand on veut demarer le calcul ?
En fait ce qu'il faudrait voir c'est les actions qui sont effectuées lorsque tu clic sur ce bouton car il charge quoi ? des informations sur d'autres classeurs ou d'autres fichiers.Citation:
quand je clic sur le bouton charger
dans l'éditeur vb il faudrait que tu double clic sur le bouton charger du userForm et que tu regardes ce qui est codé derriere. Et au pire nous mettre ce code.
Bonjour
De plus ce serait bon d'avoir un extrait de code pour se donner une idée de ce que tu as fait.
Quelques indications, il faut éviter les Select, Activate dans un premier temps.
Philippe
Voila le programme du Bouton Charger , je pense qu'il fait appel à des procedures qui font appel à leur tour à d'autre fonction de calcul
Code:
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
Il y aurait bien une ou deux petites choses à améliorer mais il est propre et ce n'est pas lui qui te fait perdre autant de temps.
par contre il y a trois appel de procedure :DonneesTolerie, DonneesBobinage et DonneesApplication
on peut continuer le débrousaillage, avec la première par exemple !
donc c'est quoi votre solution?
eh bien pourrais tu nous montrer le code de DonneesTolerie, au moins pour en vérifier un autre.
voila une partie du programme donneesTolerie ()
Code:
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
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
Salut Adilleroy et le forum
Pas sûr de comprendre ta macro , manque certaines infos : comme sa logique :mouarf:Juste une hypothèse d'école :Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Tu as 15 feuilles "Données tol XXX" tu lances ta macro et c'est la première donnéede la première feuille qui correspond à tes besoin. Donc ta macro va parcourir les 14 autres feuilles pour faire ??? Dans le style perdre du temps...
Mais comme je ne connais pas le fichier...
A+
utiliser .range est plus long que utiliser .cells
J'avais une macro qui utilisait qui faisait des copier-coller avec range, ça prenait 1:30 min et en passant avec cells, ça passé à 20 sec
[Salut hbc87 et le forumJe ne pense pas (comme d'habitude :mrgreen:).Citation:
Citation:
utiliser .range est plus long que utiliser .cells
C'est l'éternel problème de calcul de temps d'exécution des instructions, [], range, cells, offset ou for...each, While...Wend, Do..Loop. À moins de connaître la valeur en cycles horloge, tu ne peux pas le calculer : prend une instruction en boucle 10000 fois sur 10 périodes différentes et tu auras 10 temps différents. Il faudrait que ton PC soit dédié à Excel avec tous les autres services en arrêt. Pas faisable, même en ne lançant que Excel, en ayant isolé ton PC.
Ne connaissant pas la structure du fichier, la structure des feuilles et le type de fonctionnement de tes macros, on ne peut que donner des conseils génériques.
- Comme d'interrompre les boucles dès que le résultat attendu est trouvé.
- ou de changer de méthode de recherche (Find, Filtre...)
8 fois sur 10, la lenteur vient de là. Pour le reste, la limitation du champ de recherche, l'arrêt du rafraîchissement écran, l'intégration des macros automatiques et la suppression des appels à d'autres macros, permettent aussi d'accélérer.
A+
As tu ajouté application.screeningupdate = false au début du code? Ça peut surement aider un peu.
oui je l'ai ajouté mais , ça ne réduit pas le temps d'execution du programme .
je vous poste ici les deux autres procédures qui s'execute au demarage
Code:
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
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
j'espere que vous m'aidriez à optimiser ses codes , et je vous serez enormements reconnaissant .
Merci !!!
Bonjour
je ne vois rien de flagrant :calim2:
A tout hasard tu n'aurais pas beaucoups de formules sur tes feuilles car à chaque fois que tu colles une valeur sur ta feuille il y a un recalcul automatique qui est effectué.
dans ce cas il faudrai gérer ce recalcul automatique
pour le mettre en manuel
au moment ou tu a besoin de calculer avant de récuperer les résultatsCode:Application.Calculation = xlCalculationManual
et en fin de codeCode:Application.Calculate
Code:Application.Calculation = xlCalculationAutomatic
Je pense que j'ai trouver , qui cause le probeleme , et çela se passe au niveau de la procédure DonneesApplication() , quand on commence à copier les valeurs de couple et de vitesse sur les feuilles Résultats finaux et Résultats finaux Imini , ca nous renvoie vers
Private Sub Worksheet_Change(ByVal Target As Range)
qui sert à lancer presque toutes les macros de mon fichier , ce qui me fait perdre beaucoup de temps .
l'idée c'est de ne plus basculer sur ce Worksheet_Change(ByVal Target As Range)
quand on change les valeurs sur les feuilles Résultats .
Donc si vous avez comment on peut procéder ??
Pour éviter le lancement des évènements (dont Change), utilise
pour le réactiver à la fin du code:Code:Application.EnableEvents = False
ATTENTION:Code:Application.EnableEvents = True
Il faut absolument prévoir une gestion d'erreur appropriée pour passer à True (et dans n'importe quel cas de figure)
Un grand mERCI POUr Vous les gars , vous merritez bien une bouteille de champagne :) ,, ça& marche à merveille , je suis passer de 2min 30 sec à 4 Sec :)