XL 2010 Autofil - Recopie incrémentée

Romain31 · 23 Mars 2020

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 · 23 Mars 2020

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

VB:

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 · 23 Mars 2020

bonjour Romain

VB:

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 · 23 Mars 2020

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

Une variante de ma 1ère proposition

VB:

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 · 23 Mars 2020

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

XL 2010 Autofil - Recopie incrémentée

Romain31

XLDnaute Occasionnel

Pièces jointes

Staple1600

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Romain31

XLDnaute Occasionnel

Discussions similaires