Discussion :

[lemaslef]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[arosec]

Bonsoir,

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

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
 
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...

[pgz]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

, tu fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonTab(...) = ...

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oRng.Value = monTab

Cordialement,

PGZ

[lemaslef]

@ 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

[pgz]

Bonsoir.

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 :

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
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

[lemaslef]

Bonjour,

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

[Didier Gonard]

Bonjour,

vois ce tutoriel pour les tableaux :

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

cordialement,

Didier