Macro sur formule

[MASSJIPE]

Bonjour
Comment tiré une formule vers le bas selon une plage par macro
Tiré la formule jusqu'à AC17 AD17
et plus suivant la plage pouvant aller à 500 lignes et plus
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 03/04/2011 par Jean-Paul
'

'
Range("AC2").Select
ActiveCell.FormulaR1C1 = "=TEXT(RC[-11],""jjj"")"
Range("AD2").Select
ActiveCell.FormulaR1C1 = "=TEXT(RC[-7],""jjj"")"
Range("AC2:AD2").Select
ActiveWindow.SmallScroll ToRight:=1
Selection.AutoFill Destination:=Range("AC2:AD11"), Type:=xlFillDefault
Range("AC2:AD11").Select
Range("AC12").Select
ActiveWindow.SmallScroll Down:=3
End Sub
Merci

 

[david84]

Re : Macro sur formule

Bonjour,
A tester (je n'ai pas repris ton code mais n'ai fait que le simplifier et l'adapter à ta demande) :

Sub Macro1()
Dim DerLigne&
DerLigne = Range("A" & Rows.Count).End(xlUp).Row
    Range("AC2").FormulaR1C1 = "=TEXT(RC[-11],""jjj"")"
    Range("AD2").FormulaR1C1 = "=TEXT(RC[-7],""jjj"")"
    Range("AC2:AD2").AutoFill Destination:=Range("AC2:AD" & DerLigne), Type:=xlFillDefault
    Range("AC2").Select
End Sub

A+

 

[MASSJIPE]

Re : Macro sur formule

Merci
un bon Dimanche