Macro sur formule

MASSJIPE · 3 Avril 2011

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 · 3 Avril 2011

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) :

Code:

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 · 3 Avril 2011

Re : Macro sur formule

Merci
un bon Dimanche

Macro sur formule

MASSJIPE

XLDnaute Impliqué

Pièces jointes

david84

XLDnaute Barbatruc

MASSJIPE

XLDnaute Impliqué

Discussions similaires

Macro sur formule

MASSJIPE

XLDnaute Impliqué

Pièces jointes

david84

XLDnaute Barbatruc

MASSJIPE

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency