Lenteur dans l'initialisation de la valeur d'une cellule

Bonjour à tous,
J'utilise un objet de type Collection (appelé C1 dans la suite) pour stocker et réaliser des traitements sur des valeurs numériques. Cet objet C1 contient environ 700 items, chacun de ces items étant constitués de 8 variables (2 de type Date, 6 de type Variant).
J'ai un second objet de type Collection (appelé C2) qui contient 12 items C1
Ainsi, je me retrouve avec 12 x 700 x 8 données à traiter et afficher dans une feuille.
Le traitement se réalise en mémoire et est quasiment instantané.
Par contre, l'affichage dans la feuille Excel 2007 est extremement long : 40 s.
Le même algorithme d'affichage sous Excel 2003 ne prend que 15 s.

Le code utilisé est le suivant

Code:

---

1 2 3 4

Cells(15 + k - 1, 1).Value = donneesHoraires.mDate Cells(15 + k - 1, 2).Value = donneesHoraires.mHeure Cells(15 + k - 1, 3).Value = donneesHoraires.mPuissanceAppelee0 ....

---

Avez vous une solution pour accélérer l'affichage des données ?
Merci par avance pour votre aide

Bonsoir,

Désactiver la mise à jour de l'écran si ce n'est pas déjà fait...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub test() On Error GoTo lblErr   Application.ScreenUpdating = False   'Reste du traitement...   GoTo lblFin   lblErr: MsgBox Err.Description lblFin: Application.ScreenUpdating = True End Sub

---

Sinon, il faudrait peut être mettre le fichier en ligne pour approfondir cela...

Bonsoir.

La solution c'est je pense d'écrire tes données dans une variable tableau qui a la même taille que la plage concernée.
Tu fais pareil, sauf qu'au lieu de

Code:

---

Cells(...).Value = ...

---

, tu fais

Code:

---

MonTab(...) = ...

---

ENsuite tu copies en une fois le tableau dans la feuille. Si oRng représente la plage en question

Code:

---

oRng.Value = monTab

---

Cordialement,

PGZ

@ PGZ
Merci Pierre pour cette suggestion. N'étant pas un pro des tableaux, pourrais tu me donner un exemple qui placerait :
- sur la 1ere ligne les données suivantes:

• 12/05/2011; 00h10;10;12;13

- sur la 2eme ligne les données suivantes:

• 12/05/2011;00h20;10;11;15

Merci par avance

@ arosec
J'ai déjà desactivé la mise à jour de l'écran ainsi que la calcul en automatique.
Merci quand même

Bonjour,

vois ce tutoriel pour les tableaux :

Conceptualisation des variables tableau en VBA et Application à l'optimisation du code sous Excel

cordialement,

Didier

Bonsoir.

Citation:

---

Envoyé par lemaslef

Merci Pierre pour cette suggestion. N'étant pas un pro des tableaux, pourrais tu me donner un exemple qui placerait :
- sur la 1ere ligne les données suivantes:

• 12/05/2011; 00h10;10;12;13

- sur la 2eme ligne les données suivantes:

• 12/05/2011;00h20;10;11;15

Merci par avance

---

Ton exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Dim v As Variant   v = ThisWorkbook.Worksheets("Feuil1").Range("A1:E2").Value   v(1, 1) = #5/12/2011# v(1, 2) = TimeValue("00:10:00") v(1, 3) = 10 v(1, 4) = 12 v(1, 5) = 13 v(2, 1) = #5/12/2011# v(2, 2) = #12:20:00 AM# v(2, 3) = 10 v(2, 4) = 11 v(2, 5) = 15     ThisWorkbook.Worksheets("Feuil1").Range("A1:E2").Value = v   v = Empty

---

Ormonth, que je salue, t'as proposé un tuto qui devrait t'intéresser! ;)

Cordialement,

PGZ

Bonjour,

Je tiens à remercier pgz et ormonth pour leur aide. La mise à jour des cellules en utilisant les tableaux ne prend plus que 15s.