Optimisation d'une macro VBA

Version imprimable

Bonjour,

Je ne suis pas très à l'aise avec les boucles mais j'ai adapté mon code avec les renseignements que j'ai pu trouver sur votre site. Maintenant, je rencontre un problème d'optimisation car la macro tourne environ 4 mn c'est beaucoup trop long. Avez-vous une solution?
Merci pour votre aide => une novice

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub CopierFormules()
 
Dim L As Long
Sheets("Volumes").Select
  With ActiveSheet
    For L = 8 To 293 'Step 2
      Cells(L, "F").End(xlToRight).Offset(0, 1).Formula = Cells(L, "F").End(xlToRight).Formula
    Next L
    For L = 314 To 316 'Step 2
      Cells(L, "F").End(xlToRight).Offset(0, 1).Formula = Cells(L, "F").End(xlToRight).Formula
    Next L
     For L = 344 To 449 'Step 2
      Cells(L, "F").End(xlToRight).Offset(0, 1).Formula = Cells(L, "F").End(xlToRight).Formula
    Next L
     For L = 463 To 465 'Step 2
      Cells(L, "F").End(xlToRight).Offset(0, 1).Formula = Cells(L, "F").End(xlToRight).Formula
    Next L
     For L = 491 To 594 'Step 2
      Cells(L, "F").End(xlToRight).Offset(0, 1).Formula = Cells(L, "F").End(xlToRight).Formula
    Next L
     For L = 608 To 610 'Step 2
      Cells(L, "F").End(xlToRight).Offset(0, 1).Formula = Cells(L, "F").End(xlToRight).Formula
    Next L
     For L = 852 To 955 'Step 2
      Cells(L, "F").End(xlToRight).Offset(0, 1).Formula = Cells(L, "F").End(xlToRight).Formula
    Next L
     For L = 969 To 971 'Step 2
      Cells(L, "F").End(xlToRight).Offset(0, 1).Formula = Cells(L, "F").End(xlToRight).Formula
    Next L
     For L = 1159 To 1174 'Step 2
      Cells(L, "F").End(xlToRight).Offset(0, 1).Formula = Cells(L, "F").End(xlToRight).Formula
    Next L
 
  End With
End Sub

13/07/2018, 15h09
halaster08
Bonjour,

1) désactive le calcul automatique (et réactive le a la fin) a chaque fois que rempli une formule excel recalcule toute la feuille et suivant le nombre et la complexité des formules ça peut prendre du temps
Le code ressemble à

Code:

application.calculation = xlmanual 'pour désactiver les calculs, xlautomatic pour les réactiver

Si je dis ressemble c'est que je suis pas sur à 100% mais si ça ne marche pas une recherche rapide devrait te donner la réponse exacte.

2) Pourquoi des boucles, normalement tu peux copier des plages entières de formules, exemple
Code:

1 2 3 For L = 8 To 293 'Step 2 Cells(L, "F").End(xlToRight).Offset(0, 1).Formula = Cells(L, "F").End(xlToRight).Formula Next L
devient
range(cells(8,"F"),cells(293,"F")).End(xlToRight).Offset(0, 1).Formula = range(Cells(8, "F"),Cells(293, "F")).End(xlToRight).Formula
13/07/2018, 16h09
Menhir
Citation:

Envoyé par halaster08

devient
range(cells(8,"F"),cells(293,"F")).End(xlToRight).Offset(0, 1).Formula = range(Cells(8, "F"),Cells(293, "F")).End(xlToRight).Formula

Voir même :

Code:

Range("F8:F293").End(xlToRight).Offset(0, 1).Formula = Range("F8:F293").End(xlToRight).Formula

ou bien, pour éviter deux recherches End :
Code:

1 2 Set Lim = Range("F8:F293").End(xlToRight) Lim.Offset(0, 1).Formula = Lim.Formula
13/07/2018, 16h38
ANANA49

Bonjour,
J'ai essayé vos codes mais il me copie que la première formule de la ligne 8 ?
Par contre, j'ai intégré la désactivation Application.Calculation = xlManual /xlAutomatic et c'est génial (Moins d'une seconde)!!!

Merci beaucoup:)
18/07/2018, 09h30
ANANA49

Décaler les fonctions totaux

Re-bonjour,

Je suis toujours sur le même code et je rencontre un autre problème. Dans les formules copiées, j'ai la fonction recherchev() qui se décale parfaitement, par contre ce sont les fonctions totaux qui ne se décalent pas correctement ex: =AM9+AN8 devrait se décaler pour donner AN9+AO8 et ce n'est pas le cas..
Pouvez-vous m'expliquer pourquoi?
Merci
18/07/2018, 09h55
halaster08

Citation:

Envoyé par ANANA49

par contre ce sont les fonctions totaux qui ne se décalent pas correctement

C'est normal, ce n'est pas ce que tu lui as demandé, tu lui a demandé la même formule, si tu veux qu'il y ait décalage des formules il faut faire un copier coller

Citation:

j'ai la fonction recherchev() qui se décale parfaitement

Ca par contre c'est étrange, range(...).formula = range(...).formulacopie la formule à l'identique

Et j'avais oublié de revenir la dessus:

Citation:

J'ai essayé vos codes mais il me copie que la première formule de la ligne 8 ?

Tu es sur d'avoir bien recopier le code ? chez moi ça fonctionne parfaitement.
Peux tu nous montrer que tu as testé et qui ne fonctionnait pas ?
18/07/2018, 10h06
Menhir

Citation:

Envoyé par ANANA49

je rencontre un autre problème.

Dans ce cas, ouvre un autre sujet.
Poser une question dans un sujet marqué Résolu, ce n'est pas une bonne idée.