Copier une formule toutes les x lignes

[fenec]

Bonsoir le forum

J’utilise actuellement un code pour copier une formule toute les x lignes.
Le problème est que je ne vois pas comment l’écrire plus simplement.

Dim MaCell As Range 
     For Each MaCell In Range("H14,H23,H32,H41,H50,H59,H68,H77,H86,H95,H104,H113,H1122,H131,H140,H149,H158,H1167,H176,H185,H194,H203,H212,H221,S14,S23,S32,S41,S50,S59,S68,S77,S86,S95,S104,S113,S122,S131,S140,S149,S158,S167,S176,S185,S194,S203,S212,S221")
         MaCell.FormulaR1C1 = "=SUM(R[-8]C:R[-1]C)"
     Next

Je pense qu’il faudrait faire une boucle mais mon niveau de VBA est encore loin d’être au top.

Cordialement

Fenec

 

[Papou-net]

Re : Copier une formule toutes les x lignes

Bonsoir Fenec,

Peut-être comme ceci (pas testé) :

For i = 14 To 221 Step 9
     Range("H" & i).FormulaR1C1 = "=SUM(R[-8]C:R[-1]C)"
     Range("S" & i).FormulaR1C1 = "=SUM(R[-8]C:R[-1]C)"
Next

Cordialement.

 

[fenec]

Re : Copier une formule toutes les x lignes

Bonjour le forum,Papou-net

Rien à dire...si,
Bravo et Merci

Cordialement

Fenec