Macro copie formule jusqu'en bas d'un tableau

Bonjour.

Voilà ma macro :

    ActiveCell.FormulaR1C1 = "=RC[-3]+(RC[-2]/10)"
    Range("H1").Select
    Selection.AutoFill Destination:=Range("H1:H36")
    Range("H1:H36").Select
    ActiveWindow.SmallScroll Down:=15

Le problème est que mon tableau n'a pas toujours le même nombre de lignes.

Comment faire pour qu'il copie la formule jusqu'en bas du tableau, quelque soit le nombre de lignes?

Bonjour,

Dans ta première ligne de code, tu mets une formule. Quelle est la référence de la cellule (Activecell) ?

A te relire

La colonne avec la formule est la colonne H allant de H1 à H1000000 (100000 parce que le tableau peut être très grand)

RC[-3] correspond à la colonne E.

RC[-2] correspond à la colonne F.

Re,

Remplace ton code par celui ci-dessous

With Range("H1")
    .FormulaR1C1 = "=RC[-3]+(RC[-2]/10)"
    .AutoFill Destination:=Range("H1:H" & Range("F65536").End(xlUp).Row)
End With

Amicalement

Merci!

Je vois souvent cette ligne de code :

Range("H1:H" & Range("F65536").End(xlUp).Row)

Pourrais tu me l'expliquer ?