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