Conserver un total d'une somme

Bonjour

J'ai un tableau ou chaque semaine je rentre des consommations.

J'aimerais savoir s'il est possible de conserver le total de cette somme de cellules, malgré l'effacement du contenu des dites cellules.

Ci joint le tableau

Merci pour l'idée ou l'aide

Bonne matinée

Norberlingo

En mettant le numéro de la semaine devant les données hebdomadaires, et en les conservant ?

Bonjour le forum,

Question déjà posée le mois dernier :

https://forum.excel-pratique.com/excel/somme-de-cellules-t64429.html

et restée sans réponse.

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("B2:B5")) Is Nothing Then
    If Target.Count = 1 Then
        Application.EnableEvents = False
        Target.Offset(0, 2).Value = Val(Target.Offset(0, 2).Value) + Val(Target.Value)
        Application.EnableEvents = True
    End If
End If
If Not Intersect(Target, Range("C2:C5")) Is Nothing Then
    If Target.Count = 1 Then
        Application.EnableEvents = False
        Target.Offset(0, 1).Value = Val(Target.Offset(0, 1).Value) + Val(Target.Value)
        Application.EnableEvents = True
    End If
End If
End Sub

Bonjour

Sincèrement désolé de ne pas avoir répondu, je pensais l'avoir fait en indiquant que j'aurais aimé une solution sans VBA. En effet, je ne suis pas très à l'aise avec le VBA.

J'ai essayé d'ouvrir le fichier reçu mais je n'y arrive pas. Je voulais voir si ça fonctionnait.

Serait il possible de l'avoir sur mon fichier joint?

Merci et bonne soiréé

Norberlingo

="mbbp"]Bonjour le forum,

Question déjà posée le mois dernier :

https://forum.excel-pratique.com/excel/somme-de-cellules-t64429.html

et restée sans réponse.

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("B2:B5")) Is Nothing Then
    If Target.Count = 1 Then
        Application.EnableEvents = False
        Target.Offset(0, 2).Value = Val(Target.Offset(0, 2).Value) + Val(Target.Value)
        Application.EnableEvents = True
    End If
End If
If Not Intersect(Target, Range("C2:C5")) Is Nothing Then
    If Target.Count = 1 Then
        Application.EnableEvents = False
        Target.Offset(0, 1).Value = Val(Target.Offset(0, 1).Value) + Val(Target.Value)
        Application.EnableEvents = True
    End If
End If
End Sub

[/quote]

Code adapté au fichier joint ce jour.

Bonjour

Bien reçu le fichier ....un grand merci.

Comme je le disais la VBA n'est chose courante pour moi.

J'essaie de traduire ou plutôt de comprendre le cheminement et j'avoue que je m'y perd quelque peu.

Si tu as un peu de temps à consacrer à la traduction globale , je suis preneur.

Encore merci et bonne fin d'aprem

Norbertlingo

If Not Intersect(Target, Range("B6:B9")) Is Nothing Then

If Target.Count = 1 Then

Application.EnableEvents = False

Target.Offset(0, 4).Value = Val(Target.Offset(0, 4).Value) + Val(Target.Value)

Application.EnableEvents = True

End If

norberlingo a écrit :

If Not Intersect(Target, Range("B6:B9")) Is Nothing Then

Target.Offset(0, 4).Value

B6:B9 : pour définir la plage concernée.

(0, 4) : Total sur la même ligne 4 colonnes plus loin.

Merci pour la réponse....j'essaie de comprendre au fur et a mesure, c'est très intéressant.

Je me permets une autre question. Si je veux que s'applique un coefficient,

Par exemple quand je rentre un nombre dans la case jus de fruit , qu'il soit multiplié par 0,5 avant d’être envoyé au total, dans la case bière par 2,5, ou dois je mettre cette multiplication ?

Pas trop compliqué j'espere.

Merci encore et bonne soirée

Norberlingo

norberlingo a écrit :

Si je veux que s'applique un coefficient,

Ex :

Bonjour

Super ca fonctionne à merveille. Merci beaucoup.

Quand on a la solution ça parait si facile.

J'essaie d'ajouter deux colonnes pour faire une différence. Dois je utiliser le même principe.

Je joins mon projet.

En tous les cas un grand merci et bonne matinée.

Norberlingo

norberlingo a écrit :

Super ca fonctionne à merveille. Merci beaucoup.

J'essaie d'ajouter deux colonnes pour faire une différence. Dois je utiliser le même principe.

Cela ne me semble pas possible.

Sinon : en colonne G : saisir directement le "Reste" et en colonne H on obtiendra le Cumul "Reste".

Re bonjour

L'idée est génial car j'ai réussit à faire ce que je voulais, j'ai rajouté une dernière colonne qui effectue la soustraction.

Merci beaucoup

Le seul dernier soucis, lorsque j'additionne par exemple 1 jus de fruit et une bière j obtiens 2,5 il manque 0,5... si j'ajoute 1 jus de fruit, une bière et un vin j'obtiens 5, si je remplis dans l'autre sens vin,bière, jus de fruit j'obtiens 5,5......alors que le total devrait faire à chaque fois 6.

J'essaie de trouver la solution mais je n'y arrive pas....

Bonne aprem

Norberlingo

norberlingo a écrit :

Le seul dernier soucis, lorsque j'additionne par exemple 1 jus de fruit et une bière j obtiens 2,5 il manque 0,5... si j'ajoute 1 jus de fruit, une bière et un vin j'obtiens 5, si je remplis dans l'autre sens vin,bière, jus de fruit j'obtiens 5,5......alors que le total devrait faire à chaque fois 6.

Remarque tout à fait pertinente.

Mais, désolé, là je passe la main .....

Bon après-midi et à bientôt.

Merci de m'avoir accompagné jusqu' à là.

Je vais essayer de trouver une solution au problème. En fait c'est les 0,5 qui ne fonctionne pas, si on les efface de la cellule, il ne reste pas dans le total contrairement aux autre valeurs.

Bonne soirée

Et merci encore

Noberlingo