Comment accélérer(simplifier) cette procédure

Version imprimable

Bonjour à tous.

Bon voilà j'ai fait une procédure qui fonctionne très bien lorsque j'ai quelques ligne dans un fichier excel. Malheureusement je ne suis pas un bon codeur donc quand j'utilise ma procédure sur un document qui contient 10 000 ligne j'en ai pour la nuit...

Donc j'aimerais savoir si vous voyez un moyen de simplifier(améliorer, accélérer...), le code suivant:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 For numRow = 2 To LastRow Do Until Range("M" & CStr(numRow)) < Range("H" & CStr(numRow)) Or ageMa < 0 ageMa = Sheets("requete").Range("L" & CStr(numRow)) ageMa = ageMa - 10 Range("L" & CStr(numRow)) = ageMa Loop ageMa = ageMa + 10 If ageMa < 0 Then GoTo finloop Do While Range("M" & CStr(numRow)) > Range("H" & CStr(numRow)) ageMa = ageMa - 1 Range("L" & CStr(numRow)) = ageMa Loop finloop: Next numRow
Pour vous mettre un peu dans le context, dans la colonne M de mon fichier excel j'ai une formule du genre =(EXP(L11520/$P$1)-1)*I11520

Dans la colonne L j'ai une valeur obtenue par un calcul et je doit diminuer cette valeur jusqu'à ce que le résultat de la formule de la colonne M soit plus petit qu'une valeur cible (dans la colone H).

Pour résumer les choses:
1. Calcule ageMa (colonne L)
2. Calcule agePb (a partir de ageMa)(colonne M)
3. Si agePB > que Valeur de référence(colonne H), enleve 10 de ageMa
3.5. retour étape 2
4 Rajoute 10 a ageMa(colonneL)
5. Calcule agePb (a partir de ageMa)(colonne M)
6. Si agePB > que Valeur de référence(colonne H), enleve 1 de ageMa
6.5. retour à l'étape 5

Pour l'instant les calculs sont directement dans le fichier excel, est ce que ce serait plus rapide si je fesais les calcules dans VB?

Voilà, j'espère que c'est claire.
Merci et bonne journée :0)

06/08/2009, 14h42
DeaD78

Bonjour,

Plusieurs pistes :

- Les calculs seront toujours plus rapides en VBA que dans Excel

- Est-ce long à cause de la guirlande lumineuse ? Si c'est le cas, ajoute Application.ScreenUpdating = False au début de ton code et = True à la fin

- Jouer sur Application.Calculation =xlCalculationManual à mettre au début de ton code et Application.Calculation = xlCalculationAutomatic à la fin. Avec cela, ça devrait être NETTEMENT plus rapide.

Bref, rajoute les 2 derniers points au début et à la fin de ton code. Regarde ce que ça donne. Si ce n'est toujours pas ça, il faudra alors envisager un recodage.

Bonne chance !

Resalut.

Bon grâce à tes conseils j'ai pu améliorer mon code. Donc maintenant ça me prend 10 minutes plutot que quelques heures :0)

J'ai finalement du mettre les calculs directement en vba. Ca aide beaucoup et je doit dire que le code semble plus simple.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Application.ScreenUpdating = False
For numrow = 2 To LastRow
    uRow = Range("J" & CStr(numrow))
    ageMa = Sheets("requete").Range("L" & CStr(numrow))
    agePb = (Exp(ageMa / (lambda ^ -1)) - 1) * uRow
    Do Until agePb < Range("H" & CStr(numrow)) Or ageMa < 0
        agePb = (Exp(ageMa / (lambda ^ -1)) - 1) * uRow
        ageMa = ageMa - 10
    Loop
    Range("L" & CStr(numrow)) = ageMa
    ageMa = ageMa + 10
    If ageMa < 0 Then GoTo finloop
    Do While agePb > Range("H" & CStr(numrow))
        agePb = (Exp(ageMa / (lambda ^ -1)) - 1) * uRow
        ageMa = ageMa - 1
    Loop
    Range("L" & CStr(numrow)) = ageMa
finloop:
Next numrow
Application.ScreenUpdating = False

J'imagine que je peux encore améliorer, mais c'est déjà un bon début.
Merci encore

07/08/2009, 14h45
DeaD78

Salut,

Le plus important est quand même de mettre

Code:

Application.Calculation =xlCalculationManual

au début et de mettre

Code:

Application.Calculation = xlCalculationAutomatic

à la fin.

Avec cela, ça t'aurait pris 10 mins en laissant tes formules. En effet, à chaque changement, tout était recalculé. Avec cette commande, le recalcul ne s'effectue pas. En le remettant à la fin, tu ne le fais qu'une fois au lieu de le faire 10.000 fois.

Bonne chance pour la suite !

EDIT : et pense au :resolu: :ccool:
08/08/2009, 06h57
LeForestier

Bonjour,
Ca ne feras pas accélerer de façon visible mais une petite précision,

Code:

uRow = Range("J" & CStr(numrow))

Il n'est pas nécessaire de transformer en string, ça fait faire 2 fois le travail à excel.

Code:

uRow = Range("J" & numrow)

Suffira. Et ce, pour toutes les lignes où tu met CStr
A+
08/08/2009, 13h56
mercatog

Une question:

Code:

agePb = (Exp(ageMa / (lambda ^ -1)) - 1) * uRow

et cela

Code:

agePb = (Exp(ageMa * lambda) - 1) * uRow

???
08/08/2009, 22h48
sedam
Heu j'avoue que je n'y avais pas pensé:
Code:

1 2 3 4 5 agePb = (Exp(ageMa / (lambda ^ -1)) - 1) * uRow agePb = (Exp(ageMa * lambda) - 1) * uRow
Jai pris la formule dans un manuel, c'est vrai qu'en y pensant c'est un peu inutile comme manipulation... merci pour la remarque

Pour le reste je dois dire que maintenant tout ce fait assez rapidement. Merci à tous :0)