XL 2019 Sommes à la suite

[Mapat]

Bonjour

Je ne sais pas si le titre est explicite par rapport à ma demande.
Je fais une somme dans une colonne. Est il possible de sauvegarder le résultat (D7)dans une autre cellule (G1) et de recommencer l'opération en sauvegardant le nouveau total en G2. Et pouvoir refaire à nouveau x fois.
Merci de vos lumières et bonne soirée

 

[sylvanu]

Bonjour Mapat,
En formules difficile voire impossible.
Acceptez vous les macros VBA ?
Un ex en PJ avec :

Sub Effacer()
    [F:G].ClearContents
End Sub
Sub Enregistrer()
    DL = 1 + Cells(Cells.Rows.Count, "F").End(xlUp).Row
    Cells(DL, "F") = Application.Max([F:F]) + 1
    Cells(DL, "G") = [D7]
    Cells(DL + 1, "G") = Application.Sum([G:G])
End Sub

 

[vgendron]

Hello
pas sur d'avoir compris mais voici une proposition par macro
dès que tu veux sauvegarder le total, tu cliques sur le bouton

 

[Mapat]

Bonjour Sylvanu
Oui ça ne pose pas de problème

 

[Mapat]

Bonjour Sylvanu
Oui ça ne pose pas de problème

Oui c'est exactement cela qu'il fallait comprendre
Vgendron, merci de cette proposition rapide et merci à Sylvanu
Cordialement

 

[sylvanu]

Oui c'est exactement cela qu'il fallait comprendre

Un bouton Effacer me semble nécessaire pour tout réinitialiser.

 

[job75]

Bonjour Mapat, sylvanu, vgendron,

Voyez le fichier joint et ces 2 macros :

Sub RAS()
[F:G].ClearContents
End Sub

Sub Ajout()
Dim s
s = Cells(Rows.Count, "D").End(xlUp)
With Cells(Rows.Count, "G").End(xlUp)
    If .HasFormula Then
        .Offset(-1, -1).AutoFill .Offset(-1, -1).Resize(2)
        .Insert xlDown
        .Offset(-1) = s
    Else
        .Offset(1, -1) = "1er résultat"
        .Offset(1) = s
        .Offset(2) = "=SUM(G$2:OFFSET(G3,-1,))"
    End If
End With
End Sub

A+

 

[Mapat]

Merci Job75 pour ce petit plus intéressant