Copier formule somme jusqu'au dernier ligne contient du valeurs ?

Bonsoir Forum,

s'il vous plait comment modifier ce code pour copier la formule somme dans la colonne "J" jusqu'au dernier ligne contient du valeurs de la colonne "D"

et Merci infiniment

ce code avec enregistrement du Macro:

Columns("J:J").EntireColumn.AutoFit
    Range("J10").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=SUM(RC[-4]:RC[-1])"
    Range("J10").Select
    Selection.AutoFill Destination:=Range("J10:J59")
    Range("J10:J59").Select
    Range("J8:J59").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

Bonjour Hicham, bonjour le forum,

La règle d'or en VBA c'est d'éviter les Select ou Activate inutiles autant que tu le peux. Ils ne font que ralentir l'exécution du code et sont source de nombreux bugs.

Ton code modifié (si j'ai bien tout compris) :

Sub Macro1()
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)

DL = Cells(Application.Rows.Count, "D").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne D

Range("J10").FormulaR1C1 = "=SUM(RC[-4]:RC[-1])"
Range("J10").AutoFill Destination:=Range("J10:J" & DL)
With Range("J8:J" & DL).Borders(xlEdgeLeft)
    .LineStyle = xlContinuous
    .ColorIndex = 0
    .TintAndShade = 0
    .Weight = xlThin
End With
Columns("J:J").AutoFit
End Sub

Merci infiniment ThauThème

ton code marche bien sauf je ne trouve pas les bordures du colonne " J"

Merci infiniment de corriger ce problème.

Re,

Je n'ai fait que reprendre ton code en enlevant les lignes inutiles...