Somme ligne

Bonjour,

je veux faire la somme ligne par ligne de mon tableau à partir de :

• K10 jusqu'à AF10 et mettre le résultat en G10
• puis K11 jusqu'à AF11 et mettre le résultat en G11 .......... jusqu'à la dernière ligne de mon tableau.

Sub Somme()
Dlb = Feuil2.Range("B20000").End(xlUp).Row
For j = 10 To Dlb
If Feuil2.Range("B" & j) > 0 Then
Feuil2.Range("G" & Dlb + 2) = Feuil2.Range("K" & j).Value + Feuil2.Range("Q" & j).Value 'jusqu'à "AF"
Dlb = Dlb + 1
End If
Next j
End Sub

merci par avance.

Bonjour pour faire la somme :

Application.WorksheetFunction.Sum(Range(Cells(j, 11), Cells(j, 32)))

Ensuite je pense que

Feuil2.Range("G" & Dlb + 2)

devrait être remplacé par

Feuil2.Range("G" & j)

Donc grosso modo code =

Sub Somme()
    Dlb = Feuil2.Range("B20000").End(xlUp).Row
    With Feuil2
        For j = 10 To Dlb
            If .Range("B" & j) > 0 Then
                .Range("G" & j) = Application.WorksheetFunction.Sum(Range(.Cells(j, 11), .Cells(j, 32)))
            End If
        Next j
    End With
End Sub

(Edit mise à jour du code global suite à un oubli)

re Force rouge,

merci bien c'est ce qu'il me fallait.

de rien