Discussion :

[ANANA49]

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 :

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

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

[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 :

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

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 :

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

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

[Menhir]

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 :

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

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

ou bien, pour éviter deux recherches End :

Code :

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

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

[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

[ANANA49]

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

[halaster08]

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

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:

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 ?

[Menhir]

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.