Re : somme de cellules en fonction de position.
Bonjour Roger,
Merci pour cette réponse, je m'orientais vers une solution Formula
Public Sub Arreter()
Dim la, ca, a, b, c, i
If Intersect(Application.Selection, Range("C10:X73")) Is Nothing Then Exit Sub
la = ActiveCell.Row
ca = ActiveCell.Column
b = 14
c = 16
If Cells(la, ca).Value = "" Then Exit Sub
With ActiveSheet
For i = 1 To 3
a = ca + i
.Cells(la, a).Formula = "=SUM(" & .Range(.Cells(b, a), .Cells(c, a)).Address & ")"
Next i
End With
End Sub
pour la ligne report directement au dessous de la cellule "Arrêtée" elle doit contenir
la somme des lignes comprises entre Arrêtée et Report.
Un grand merci pour ton code, je vais le regarder plus précisément.
Cordialement, Robert