XL 2013 Calcul de cellule

Roseline

XLDnaute Occasionnel
Bonjour,
J'ai besoin de votre aide. J'ai un fichier excel dans lequel j'entre des valeurs à tous les jours.
J'ai besoin d'avoir un total à la fin de chaque mois mais mon total doit être comme ceci:

le jour 1 j'entre une donnée
Jour 2 j'entre une donnée mais celle-ci doit déduire la donnée du jour un
Jour 3 j'entre une donnée mais celle-ci doit déduire la donnée du jour 2 et ainsi de suite.
Les données ne doivent pas s'additionner mais doivent se déduire de la journée précédente.
Le total doit s'afficher à la fin de mon rapport dans le bon mois.

Je ne sais pas si je suis clair mais j'ai mis un fichier comme exemple.

Merci de votre aide et bonne journée
 

Pièces jointes

  • Calcul.xlsx
    10.6 KB · Affichages: 32

Phil69970

XLDnaute Barbatruc
Bonjour Roseline, le forum

le jour 1 j'entre une donnée
Jour 2 j'entre une donnée mais celle-ci doit déduire la donnée du jour un
Jour 3 j'entre une donnée mais celle-ci doit déduire la donnée du jour 2 et ainsi de suite.
Essaye ce code :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)

Dim DerLig As String
DerLig = Range("A" & Rows.Count).End(xlUp).Row

If Not Intersect(Target, Range("B2:B" & DerLig)) Is Nothing Then
    Application.EnableEvents = False
    If Target.Count = 1 Then Target.Offset(0, 0).Value = Val(Target.Offset(-1, 0).Value) - Val(Target.Value)
    Application.EnableEvents = True
End If
End Sub

@Phil69970
 
Dernière édition:

Discussions similaires

Réponses
11
Affichages
177
Réponses
9
Affichages
396

Membres actuellement en ligne

Statistiques des forums

Discussions
312 177
Messages
2 085 972
Membres
103 073
dernier inscrit
MSCHOE16