Formula R1C1 via Macro

Hello,

Je souhaiterais étendre la formule présente en A1, au cellule A2 et A3 (via macro (super important)).

J'ai testé l'enregistreur de Macro, mais une fois fait, j'ai une erreur quand je lance la macro tout juste enregistrée...

Voici en PJ un exemple.

Merci à vous !

Bonjour Madjer, le forum,

Un essai : (sous réserve que la formule en A1 est correcte)

Sub Macro1()

    Dim LastRw As Long  'dernière ligne

    LastRw = Sheets("Feuil1").Cells(Rows.Count, 2).End(xlUp).Row 'dernière ligne remplie

    Range("A1:A" & LastRw).FillDown  ' on tire la formule de A1 jusqu'à la dernière ligne

End Sub

Cordialement,

Hello, merci pour ta réponse.

J'ai effectivement pensé à cette solution de "descendre" la formule, mais il y a soucis avec ça.

Si jamais "quelqu'un" vient écrire en dur dans la cellule A2, on retrouverai alors la même chose dans la cellule A3, A4, etc...

Donc c'est pour contourner cela que je souhaite mettre la formule directement dans chacune des cellules.

Thx !

Re,

Il te suffit de verrouiller les cellules de la colonne A pour que personne ne puisse écrire dedans ?

Cordialement,

Bonne idée, merci !