Discussion :

[casefayere]

Bonjour à toutes et tous,

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

Code :

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

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

[tirex28]

Bonjour,

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

Code :

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

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/

[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

[tirex28]

Re,

Code :

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

.Value = .Value

Sert à remplacer les formules par leurs résultats.


Cordialement,

Tirex28/

[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

[casefayere]

Tirex, ta solution a l'air pas mal mais il me reste un problème

sur le morceau de code :

Code :

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

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 :

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

.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

[tirex28]

Essaye:

Code :

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

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

Cordialement,

Tirex28/

[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