Compteur dépenses "par mois"
Résolu
Alain16110
Messages postés
19
Statut
Membre
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour à tous,
Voila j'ai trouvé un petit module pour cumuler mes dépenses
Je saisie 5 en B4 puis 10 dans la même cellule Excel dans la colonne suivante stock 5+10 soit affiche 15.etc...
Je voudrais que cette fonction stock mes valeurs en fonction du mois.
J'affiche "aujourd'hui()" en B2 et que le cumul s'affiche dans la colonne avril F4.
J'espère être claire,
Private Sub Worksheet_Change(ByVal c As Range)
'00
Dim plage As Range
On Error Resume Next
Set plage = Range("b4:b10")
If Not Intersect(c, plage) Is Nothing Then
c.Offset(, 1).Value = c.Offset(, 1).Value + c.Value
End If
End Sub
Soyez indulgent je ne suis pas un expert VBA
Sinon par une formule Excel!
Merci de votre réponse
Cordialement
PS je n'ai pas trouvé comment joindre un fichier
Voila j'ai trouvé un petit module pour cumuler mes dépenses
Je saisie 5 en B4 puis 10 dans la même cellule Excel dans la colonne suivante stock 5+10 soit affiche 15.etc...
Je voudrais que cette fonction stock mes valeurs en fonction du mois.
J'affiche "aujourd'hui()" en B2 et que le cumul s'affiche dans la colonne avril F4.
J'espère être claire,
Private Sub Worksheet_Change(ByVal c As Range)
'00
Dim plage As Range
On Error Resume Next
Set plage = Range("b4:b10")
If Not Intersect(c, plage) Is Nothing Then
c.Offset(, 1).Value = c.Offset(, 1).Value + c.Value
End If
End Sub
Soyez indulgent je ne suis pas un expert VBA
Sinon par une formule Excel!
Merci de votre réponse
Cordialement
PS je n'ai pas trouvé comment joindre un fichier
2 réponses
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
bonjour,
peut-être:c.Offset(, month(Range("b2"))).Value = _ c.Offset(, month(Range("b2")))).Value + c.Value -
Bonjour,
C'est pas "Peut-être" c'est tout a fait ça!
Je te remercie, Je continue, mes premiers testent étaient concluant.
C'est une première sur ce site, je viens de m'inscrire, suis super heureux de ton aide.
Merci encore
Bonne soirée
Cordiales salutations
A. O
