XL 2010 Autofil - Recopie incrémentée

[Romain31]

Bonjour à toutes et à tous,

Je compare l'évolution en % des valeurs de la colonne B à partir de la cellule C5

Comment modifier le code en gras (sans nommer la plage actuelle) afin de faire une recopie incrémentée sachant que les données sont variables dans la colonne B
J'ai fait de nombreuses recherches sans succès.

Sub Evolution()
Range("C5").Select
ActiveCell.FormulaR1C1 = "=((RC[-1]/R[-1]C[-1])-1)"
Selection.NumberFormat = "0.00%"
Selection.AutoFill Destination:=Range("C5:C13")
End Sub

Un grand merci pour votre aide
Bonne journée

 

[Staple1600]

Bonjour le fil, Romain31

•>Romain31
A tester
=>Je me base ici sur la colonne A pour déterminer le numéro de ligne
Donc à adapter si besoin

Sub Evolution_Bis()
Dim DL&
DL = Cells(Rows.Count, 1).End(3).Row
Range("C5:C" & DL).FormulaR1C1 = "=((RC[-1]/R[-1]C[-1])-1)"
Range("C5:C" & DL).NumberFormat = "0.00%"
End Sub

 

[pierrejean]

bonjour Romain

Sub Evolution()
 Range("C5").Select
    ActiveCell.FormulaR1C1 = "=((RC[-1]/R[-1]C[-1])-1)"
    Selection.NumberFormat = "0.00%"
    Selection.AutoFill Destination:=Range("C5:C" & Range("B" & Rows.Count).End(xlUp).Row)
End Sub

 

[Staple1600]

Re, Bonjour pierrejean ( tu m'as point vu passé ? message#2)

Une variante de ma 1ère proposition

Sub Evolution_Ter()
Dim DL&: DL = Cells(Rows.Count, 1).End(3).Row: [C5].NumberFormat = "0.00%"
[C5] = "=((RC[-1]/R[-1]C[-1])-1)": Range("C5:C" & DL).FillDown
End Sub

 

[Romain31]

Super
Quelle réactivité.
Merci Staple600 et Pierrejean.
Je teste tout cela.
Bonne journée