Comment optimiser ce code?

Version imprimable

Bonjour,

voilà j'ai un petit bout de code qui me prend 24s pour s'executer alors que le code juste après fais 28800*6 calculs en 0.5 secondes donc j'aimerai optimiser celà.

Je passe mes détails mais en gros j'ai 7 ListBox à 2 colonnes ( de "ListBoxGPE1" à "ListBoxGPE7") et je regarde ce qui est sur la colonne de gauche, soit "Production" ou "Arret" pour l'instant.
Sur la colonne de droite, il y a les temps (en minutes) de fonctionnement

Exemple

ListBoxGPE2

Production 1000
Arret 440

je fais un calcul toutes les 3 secondes sur 24h d'où les 28800 valeurs

Enfin je mets les debit de fonctionnement sur un tableau qui s'appelle "DebitEntree" donc voilà
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 For d = 1 To 7 a = 0 b = 0 For i = 0 To 27799 If i * 0.05 = b + Me.Controls("ListBoxGPE" & d).List(a, 1) Then b = b + Me.Controls("ListBoxGPE" & d).List(a, 1) a = a + 1 End If If Me.Controls("ListBoxGPE" & d).List(a, 0) = "Production" Then DebitEntree(i, 0) = DebitEntree(i, 0) + Cells(20, 3 + 2 * d).Value End If If Me.Controls("ListBoxGPE" & d).List(a, 0) = "Arret" Then DebitEntree(i, 0) = DebitEntree(i, 0) + 0 End If Next i Next d
J'aimerai savoir c'est quelle partie qui ralentit mon code

Merci de votre aide

02/10/2009, 11h27
laetitia

bonjour Gotita le forum beaucoup de mal a comprendre ton code???si tu pouvez zipper un exemple
02/10/2009, 12h10
-={-_-}=-

Hello,
Ton souci principal est :28800*6 répétions

Je pense que devrais te touner vers une solution qui permet d'updater toutes tes données d'un coup : le SQL

Pour ca tu pourrais utiliser les références ADODB ou DAO dans excel.

Genre tu exportes tes données DebitEntrée vers Access (avec DAO) et tu fais une requete SQL qui te permet d'updater tes DebitsEntrée.

Plus de ligne de code (Création base access, mise en forme des tables, export des données, requete UPDATE sur ces données, copie des données d'Acces vers Excel, deconnexion Access et suppression de la base Access)

Mais ton temps d'execution sera minime.. crois moi je fais ca tt le temps.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
For d = 1 To 7
    a = 0
    b = 0
 
zeta=Me.Controls("ListBoxGPE" & d).List(a, 1) 
teta=Me.Controls("ListBoxGPE" & d).List(a, 0)
        For i = 0 To 27799
 
            If i * 0.05 = b + zeta Then
                b = b + zeta
                a = a + 1
            End If
            If  teta= "Production" Then
                DebitEntree(i, 0) = DebitEntree(i, 0) + Cells(20, 3 + 2 * d).Value ' si cette cellule ne change pas alors la poser en constante 
            End If
            If teta = "Arret" Then
                DebitEntree(i, 0) = DebitEntree(i, 0) + 0    ??????  ca sert à quoi +0 ??      
End If
        Next i
Next d