Addition des montants négatifs des lignes de sous-totaux
11 réponses
bernard2010
Bonjour,
Je vous présente mon problème : j'ai un tableau excel dans lequel j'ai fait des sous-totaux. Je souhaiterai additionner uniquement les montants négatifs des sous-totaux.
"Jacky" a écrit dans le message de news: ifiqm6$veo$
Bonsoir,
Une fonction perso peut-être..
Dans un module standard '------------------ Function TotalDesNegatifs(Plage) For Each c In Plage If Left(c.Formula, 9) = "=SUBTOTAL" And c < 0 Then TotalDesNegatifs = TotalDesNegatifs + c.Value End If Next End Function '------------- Dans une cellule =TotalDesNegatifs(A1:A10)
A1:A10 étant la plage des chiffres
-- Salutations JJ
"bernard2010" a écrit dans le message de news:
Bonjour, Je vous présente mon problème : j'ai un tableau excel dans lequel j'ai fait des sous-totaux. Je souhaiterai additionner uniquement les montants négatifs des sous-totaux.
Merci d'avance de votre aide
Bernard
Merci beaucoup pour ton aide Jacky, mais euréka, j'ai trouvé réponse à mon problème avec michd. Passe un joyeux réveillon. Bernard
"Jacky" a écrit dans le message de
news: ifiqm6$veo$
Bonsoir,
Une fonction perso peut-être..
Dans un module standard
'------------------
Function TotalDesNegatifs(Plage)
For Each c In Plage
If Left(c.Formula, 9) = "=SUBTOTAL" And c < 0 Then
TotalDesNegatifs = TotalDesNegatifs + c.Value
End If
Next
End Function
'-------------
Dans une cellule
=TotalDesNegatifs(A1:A10)
A1:A10 étant la plage des chiffres
--
Salutations
JJ
"bernard2010" a écrit dans
le message de news:
Bonjour,
Je vous présente mon problème : j'ai un tableau excel dans
lequel j'ai fait des
sous-totaux. Je souhaiterai additionner uniquement les montants
négatifs des
sous-totaux.
Merci d'avance de votre aide
Bernard
Merci beaucoup pour ton aide Jacky, mais euréka, j'ai trouvé réponse à mon problème avec michd.
Passe un joyeux réveillon.
Bernard
"Jacky" a écrit dans le message de news: ifiqm6$veo$
Bonsoir,
Une fonction perso peut-être..
Dans un module standard '------------------ Function TotalDesNegatifs(Plage) For Each c In Plage If Left(c.Formula, 9) = "=SUBTOTAL" And c < 0 Then TotalDesNegatifs = TotalDesNegatifs + c.Value End If Next End Function '------------- Dans une cellule =TotalDesNegatifs(A1:A10)
A1:A10 étant la plage des chiffres
-- Salutations JJ
"bernard2010" a écrit dans le message de news:
Bonjour, Je vous présente mon problème : j'ai un tableau excel dans lequel j'ai fait des sous-totaux. Je souhaiterai additionner uniquement les montants négatifs des sous-totaux.
Merci d'avance de votre aide
Bernard
Merci beaucoup pour ton aide Jacky, mais euréka, j'ai trouvé réponse à mon problème avec michd. Passe un joyeux réveillon. Bernard