Voici, pour ta chef, une solution macro. Les données sont en A1:L12. Le résultat s'affiche en N2. J'utilise la ligne 3 masquée. Adapte la macro selon la disposition de tes données :
Classeur joint : Pièce jointe 156854
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Private Sub Worksheet_Change(ByVal Target As Range) Dim C As Range If Not Intersect(Target, [A2:L2]) Is Nothing Then Application.EnableEvents = False For Each C In Target C.Offset(1).Value = C.Value [N2] = Application.Sum([A3:L3]) Next C Application.EnableEvents = True End If End Sub
Partager