accélération du module

Version imprimable

Bonjour à toutes et tous,

Voilà, j'ai le module ci-dessous qui met à jour toutes les lignes de la feuille "reference :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub controle() Dim x As Integer With sheets("references") For x = 2 To .Range("a" & Rows.Count).End(xlUp).Row .Range("e" & x) = .Range("c" & x) + (.Range("c" & x) * .Range("d" & x)) .Range("i" & x) = Application.WorksheetFunction.Ceiling(.Range("c" & x) * .Range("g" & x), 0.05) .Range("h" & x) = .Range("i" & x) / (1 + .Range("d" & x)) .Range("k" & x) = .Range("h" & x) - .Range("c" & x) .Range("l" & x) = .Range("k" & x) / .Range("c" & x) Next x End With End Sub
l'execution de ce module par un bouton de commande met un certain temps (407 lignes à mettre à jour), peut-on l'améliorer pour l'accélérer, surtout si la feuille se voit doter de lignes supplémentaires.

Merci d'avance de vos suggestions éventuelles

Bonjour,

Tu peux essayer cette approche, le temps d'execution ne devrait pas varier sensiblement si le nombre de lignes augmente:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Test()
    Dim x As Long
    Application.Calculation = xlCalculationManual
    With Worksheets("References")
        x = .Range("A" & .Rows.Count).End(xlUp).Row
        With .Range("E2:E" & x)
            .FormulaR1C1 = "=RC[-2]+(RC[-2]*RC[-1])"
            .Value = .Value
        End With
        'A completer pour les autres colonnes
    End With
    Application.Calculation = xlCalculationAutomatic
End Sub

Cordialement,

Tirex28/

02/07/2008, 14h38
casefayere

Bonjour,
je te remercie de ta propo mais, sauf si je me trompe, celle-ci va appliquer des formules de calcul dans les cellules, ce que je voudrais éviter
02/07/2008, 14h42
tirex28

Re,

Code:

.Value = .Value

Sert à remplacer les formules par leurs résultats.

Cordialement,

Tirex28/
02/07/2008, 14h45
casefayere

Eh oui, je suis distrait, je vais essayer ta propo, pas tout de suite parce que je suis sur autre chose mais saurai te dire si j'ai gagné du temps

Merci encore
02/07/2008, 15h46
casefayere
Tirex, ta solution a l'air pas mal mais il me reste un problème

sur le morceau de code :
Code:

1 2 3 4 With .Range("i2:i" & x) .FormulaR1C1 = "=RC[-6]*RC[-2]" .Value = .Value End With
je n'arrive pas à intégrer la fonction

Code:

.Value = Application.WorksheetFunction.Ceiling(.Value,0.05)

pour arrondir tous les chiffres à 0,05 ou 0,00

si toi ou quelqu'un d'autre peut me fournir la solution, n'hésitez pas

Merci
02/07/2008, 15h55
tirex28

Essaye:

Code:

.FormulaR1C1 = "=CEILING(RC[-6]*RC[-3],0.05)"

Cordialement,

Tirex28/
02/07/2008, 16h00
casefayere

Je ne sais pas ce que j'avais fait avant car j'avais essayé et ça ne marchait pas (certainement erreur de syntaxe)
mais là ça marche

Merci encore et bonne journée