Copier formule d'une cellule vers le bas

[jeje59]

Bonjour à tous et toutes,

Je n'arrive pas à faire un truc apparemment tout simple !

Copier la formule d'une cellule vers le bas jusqu'à la dernière ligne active .......

Voici mon code

MFGondardennes Macro
' Mise en forme gondardennes
'
' Touche de raccourci du clavier: Ctrl+Shift+G
'
    Columns("J:J").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("J1").Select
    ActiveCell.FormulaR1C1 = "TS"
    Columns("M:M").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("M1").Select
    ActiveCell.FormulaR1C1 = "Temps de Trajet"
    Columns("O:O").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("O1").Select
    ActiveCell.FormulaR1C1 = "Temps d'immo"
    Columns("Q:Q").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("Q1").Select
    ActiveCell.FormulaR1C1 = "Distance en km"
    Columns("S:U").Select
    Selection.Delete Shift:=xlToLeft
    Range("T1").Select
    ActiveCell.FormulaR1C1 = "Temps d'arret"
    Range("T2").Select
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("J2").Select
    ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-5]"
    Range("J2").Select
    Selection.AutoFill Destination:=Range("J2:J3")
    Range("J2:J3").FillDown
    Columns("J:J").Select
    Selection.NumberFormat = "[h]:mm:ss;@"
    Range("M2").Select
    ActiveCell.FormulaR1C1 = "=RC[-1]/86400"
    Range("M2").Select
    Selection.AutoFill Destination:=Range("M2:M3")
    Range("M2:M3").Select
    Columns("M:M").Select
    Selection.NumberFormat = "[h]:mm:ss;@"
    Range("O2").Select
    ActiveCell.FormulaR1C1 = "=RC[-1]/86400"
    Range("O2").Select
    Selection.AutoFill Destination:=Range("O2:O3")
    Columns("O:O").Select
    Selection.NumberFormat = "[h]:mm:ss;@"
    ActiveWindow.SmallScroll ToRight:=6
    Range("Q2").Select
    ActiveCell.FormulaR1C1 = "=RC[-1]/1000"
    Range("Q2").Select
    Selection.AutoFill Destination:=Range("Q2:Q3")
    Range("Q2:Q3").Select
    Range("T2").Select
    ActiveCell.FormulaR1C1 = "=RC[-1]/84600"
    Range("T2").Select
    Selection.AutoFill Destination:=Range("T2:T3")
    Range("T2:T3").Select
    Columns("T:T").Select
    Selection.NumberFormat = "[h]:mm:ss;@"
    Range("R10").Select
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("A1:T10").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Columns("A:T").Select
    Selection.ColumnWidth = 10.86
    Columns("A:T").Select
    Range("T1").Activate
    Columns("A:T").EntireColumn.AutoFit
    Columns("A:T").EntireColumn.AutoFit
End Sub

Je souhaite juste copier la formule de M2 jusqu'à la dernière ligne active.

Idem pour les autres formules en O2 et Q2

Pouvez-vous m'aider ?

merci d'avance à toutes et tous

 

[R@chid]

Re : Copier formule d'une cellule vers le bas

Bonsoir,

Sélectionner la cellule M2,
Faire approcher le curseur au coin inférieur droit de la cellule Active (M2) jusqu’à qu'il change de format il va devenir comme le signe "+" un peu gras et noir, alors la tu fais un double cliquer, et ainsi de suite pour les autres cellules et hoppp c'est fait...

Si les cellules N2 et P2 ne contiennent aucune donnée, tu peux le faire en un seul coup en sélectionnant la Plage M2:Q2 et faire de la même manière...

Amicalement