Recopier une formule toutes les X lignes via macro

[LPandre]

Bonjour,
j'ai une formule "= droite(A5)"* en B5 et je souhaiterais avoir le code macro pour la recopier toutes les 15 lignes dans la colonne B et ce jusqu'à la ligne 1515**.

Si quelqu'un(e) ...

Par avance merci.


* c'est pour l'exemple
** c'est aussi pour l'exemple, j'adapterai la borne.

 

[Pierrot93]

Re : Recopier une formule toutes les X lignes via macro

Bonjour,

regarde ceci :

    Range("B5:B1515").FormulaR1C1 = "= RIGHT(RC[-1])"

c'est pour l'exemple...

bonne fin d'après midi
@+

 

[LPandre]

Re : Recopier une formule toutes les X lignes via macro

Salut Pierrot,
ça marche pô ! =>

Elle saute pas de 15 lignes en 15 lignes, qui est vraiment indispensable , car il y a du texte entre ces quinze lignes.

 

[Pierrot93]

Re : Recopier une formule toutes les X lignes via macro

Re,

aarf... j'avais zappé ca :

toutes les 15 lignes dans la colonne B

mofifie comme suit :

Dim i As Long
For i = 5 To 1515 Step 15
    Cells(i, 2).FormulaR1C1 = "= RIGHT(RC[-1])"
Next i

 

[LPandre]

Re : Recopier une formule toutes les X lignes via macro

YES !!

MERCI Pierrot.