Copier des cellules (formule) dans colonne vide

Bonjour,

Essaies :

Option Explicit
Sub test()
Dim L As Long
  With ActiveSheet
    For L = 8 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

Bonjour,

Tu as mal adapté mon code !

1) Dans ton code les lignes suivantes sont inutiles :

  With ActiveSheet
 '... 
  End With

car tu n'y fait jamais référence !!!

Dans mon code j'ai utilisé With pour faire référence à une feuille, et ensuite toutes cellules désignées faisait référence à cette feuille :

      .Cells(L, "F").End(xlToRight).Offset(0, 1).Formula = .Cells(L, "F").End(xlToRight).Formula

grâce au point situé devant Cells(...
En effet, dans .Cells(... le point sert à rattacher cet objet (Cells) à celui désigné par le With (ActiveSheet).
Sans le With, il aurait fallu répéter ActiveSheet.Cells(... à chaque fois pour avoir l'équivalent.

J'ai fait référence à la feuille active car tu n'avais pas précisé sur quelle feuille tu travaillais et car j'évite, dans un module standard, d'utiliser les références implicites, c'est-à-dire celles qui ne sont pas désignées explicitement comme par exemple un Cells(... tout seul qui ne fait pas référence à une feuille particulière.

Dans ton code tu as omis ce point et donc tes Cells(... ne font pas référence à l'objet désigné dans le With (i.e. ActiveSheet) mais à l'objet actif. Le hasard veux que ce soit le même et donc ton code fonctionne.

2) Dans les macro VBA, il faut absolument éviter d'employer .Select, .Activate. Il est inutile d'activer un objet (feuille, cellule, ...) pour travailler dessus, c'est même déconseillé. Au lieu d'écrire :

Sheets("Volumes").Select
  With ActiveSheet

Il vaut mieux écrire simplement :

  With Sheets("Volumes")

Pour simplifier ton code, on peut utiliser Select .. Case, par exemple :

Sub CopierFormules()
Dim L As Long
  With Sheets("Volumes")
    For L = 8 To 1174
      Select Case L
        Case 8 To 293, 314 To 316, 344 To 349, 463 To 465, 491 To 594, 608 To 610, 852 To 955, _
             969 To 971, 1159 To 1174
          .Cells(L, "F").End(xlToRight).Offset(0, 1).Formula = .Cells(L, "F").End(xlToRight).Formula
       End Select
    Next L
  End With
End Sub

Ce code est plus dense, simple à lire, et plus rapide