Version imprimable
Bonjour,
J'ai pu lire que pour améliorer la vitesse de transfert de valeurs d'un userform vers les cellules d'une feuille il fallait utiliser les Cells à la place des Range.
J'aimerais bien tenter de le faire, car mon classeur est un peu lent.
Mais je ne sais pas comment transformer ceci :
Quelqu'un peut-il m'aider svp ? :)Code:
2
Merci d'avance
Bonjour,
Quel en est l'intérêt?
Code:Cells(L,"A").Value = UF1.Controls("Valider").Caption
Bonjour,
personnellement, je n'ai jamais lu ou expérimenté une quelconque rapidité accrue en utilisant l'objet Cells() plutôt que l'objet Range(), mais on peut en apprendre tous les jours
une petite variante pour écrire sur la première ligne non vide en partant du bas
je préconise néanmoins de toujours indiquer la feuille hôte (voir le classeur hôte)Code:Cells(Rows.Count, 1).End(xlUp)(2).Value = UF1.Controls("Valider").Caption
Code:
2
3
Bonjour
oui, mais pas comme tu l'utilises là, mais en spécifiant directement son N° dans la plage ******. Et tu ne gagneras ainsi que peu, et encore : sur une énorme plage et si cette plage est parfaitement rectangulaire et continue.Citation:
J'ai pu lire que pour améliorer la vitesse de transfert de valeurs d'un userform vers les cellules d'une feuille il fallait utiliser les Cells à la place des Range.
EDIT : ***** au cours des cinq dernières années, je n'ai eu qu'un seul cas où il était plus judicieux d'utiliser cette numérotation interne des cellules Excel. Et encore ! je ne l'ai fait que pour "couper l'herbe sous les pieds" d'un forumeur hispanophone qui demandait du "tout-cuit" en prétendant que son application n'était pas destinée à d'autres que lui-même. En utilisant cette numérotation, non sur une plage de données, mais sur la totalité des cellules de la feuille de calcul, tout était ainsi construit pour capoter s'il passait de la version 2003 à la version 2007. Et cela n'a pas raté (et il est allé demander, sans l'obtenir, un secours sur un autre forum ...;))
Bonjour à tous,
Cells(x, y) ou même Cells(z) ne sont pas des Range ???
eric
L’ambiguïté tient au fait que Range peut représenter deux choses :
- l'objet Range : Range("A1")
- la propriété Range de Worksheet, qui peut lui-même contenir des objets Range : Range(Range("A1"),Range("A2"))
Et pour encore faire simple : Cells est un objet OU une propriété de l'objet Range :mrgreen:
J'espère ne pas avoir été trop lapidaire ou malavisé dans l'explication:aie:
Peut-être, mais j'ai du mal à voir pourquoi on ne le considérerait pas comme un objet Range (ce qu'annonce l'explorateur d'objets)
Pièce jointe 317695
Bonjour eriiic
ce sont bien évidemment des objets range.Citation:
Cells(x, y) ou même Cells(z) ne sont pas des Range ???
Mél3790 s'est tout simplement mal exprimé. Je pense qu'il voulait simplement dire "utiliser la notation cells plutôt que range pour spécifier un objet range".
Ok.
J'ai testé par curiosité avec :
Résultat :Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Range("A1") : 82.05859
Cells(1, 1) : 82.03906
Cells(1) : 81.93359
Effectivement il y a un gain qui doit être celui de l'interprétation mais bon, il faudrait des centaines de milliers d'écritures pour que ça se ressente.
eric
Bonjour à tous,
Merci pour vos échanges. Je ne suis pas certaines d'avoir tout compris, car je suis loin d'être une experte en VBA (et oui il y a un début à tout).
En fait, mon formulaire est composé d'au moins 30 contrôles en tout genre (textbox, combobox, checkbox, etc ...). Une fois le formulaire complété, la personne click sur un bouton pour que toutes les valeurs des contrôles basculent dans les cellules d'un tableau d'une feuille. (de la colonne A à AJ)
Le + 1 à la fin de "L = Sheets("Feuil1").Range("a10000").End(xlUp).Row + 1" c'est pour que en AJ il y ai un numéro unique qui vienne se créer grâce à ce code :
Grâce au numéro qui se créé, je peux récupérer la ligne en cliquant dans une listbox par exemple.Code:
2
3
4
5
6
Le problème est que ça rame quand tout se bascule dans mon tableau, voir même faire planter mon classeur.
C'est pour cela que j'aurais souhaité connaitre une astuce pour alléger mon code.
J'ai essayé en supprimant le +1 à la fin de "L = Sheets("Feuil1").Range("a10000").End(xlUp).Row + 1", de ce fait je n'ai plus mon numéro unique qui s'inscrit à la fin de ma ligne, et du coup la transition est instantanée. Ce qui est parfait, mais mon numéro à la fin est indispensable ... :(
Merci pour votre aide.
Bonjour,
peux-tu publier l'intégralité de la procédure en question ?
Voici ma fonction :
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
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
Bonjour,
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
Bonjour à tous,
dysorthographie ton code fonctionne très bien, par contre, il n'ajoute pas une ligne à la fin du tableau, mais écrase la dernière ligne remplie :(
Décommente alors le + 1 dans
Ta réaction met en évidence que tu ne sais que copier/coller, sans analyser, sans comprendre ...Code:l = Sheets("Feuil1").Range("a10000").End(xlUp).Row '+ 1
J'ai bien décommenté le +1 avant de voir ta réponse, seulement, j'ai toujours ce problème de lenteur, ça rame, à cause de ça.
Donc mon problème reste le même malheureusement.
Je ne sais pas comment formuler le +1 autrement, à moins qu'il n'y ai pas d'autres solution .. :(
Bonjour, bonjour !
Un calcul +1 étant instantané, cela ne peut donc pas ramer à cause de ça !
Si chez un garagiste on affirme « ma boîte de vitesse est morte » alors ne pas s'étonner de son remplacement
même si en fait il n'y avait qu'un boulon à resserrer !
Exporter les modules, les supprimer, sauvegarder puis les réimporter, sait-on jamais …
Ou encore les importer dans un nouveau classeur et comparer.
Si Excel est utilisé comme base de données, ne pas s'étonner de sa lenteur car ce n'est pas sa fonction ! Access oui …
Voilà, voilà !
___________________________________________________________________________________________________________Je suis Paris, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …
Bonjour,
Tu m'as mis sur une piste.
C'est vrai qu'il n'est pas normal que cela rame.
Du coup, j'ai tenté autre chose, tout en gardant le code de Dysorthographie.
Mes données se basculent dans un tableau. Tableau que je viens de convertir en plage.
Je réessaye de basculer mes valeurs, et là pouf ! C'est instantané ! Génial.
Donc je présume que c'est la mise en forme du tableau à chaque ajout de ligne qui fait ramé mon fichier.
Ce qui m'ennui, car l'utilisation d'un tableau est préférable par rapport à mon projet :s
Bonjour Robert,
Dans ta fonction nommée cb1forfait que tu as proposée dans le fil et sauf erreur de ma part, il me semble qu'il y a des erreurs aux lignes 5 à 33 tout au moins si les objets Range ont comme objet parent ThisWorkbook.Worksheets("Feuil1"). Il manque le point devant Range.
Il me semble qu'aux lignes suivantes le problème est le même.
Bonjour Philippe,
oui tu as raison, l'erreur provient du fait que j'ai repris le code initial tel quel pour le simplifier!
