XL 2013 Faire somme en bout de ligne / Colonnes dynamique

phlaurent55

Nous a quittés en 2020

Repose en paix

• 7 Février 2018

• #2

Bonjour OOlive,

voir fichier joint

à+
Philippe

 

Pièces jointes

• 111.xlsm

  14.5 KB · Affichages: 51

Vote positif 0 Vote négatif

O

OOLIVE

XLDnaute Occasionnel

• 7 Février 2018

• #3

C'est parfait !

Thanks Philippe

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 7 Février 2018

• #4

Bonjour OOLIVE

Salut Philippe

Une autre solution

 

Pièces jointes

• oolive.xlsm

  19.9 KB · Affichages: 34

Vote positif 0 Vote négatif

O

OOLIVE

XLDnaute Occasionnel

• 7 Février 2018

• #5

Autre point,

La somme doit se faire en valeur absolue.. Est ce possible ?

OOLIVE

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 7 Février 2018

• #6

BonsoirOolive, Philippe, PierreJean, le forum,

ABS(Number)

Ou ABS(la formule, etc...)

A+

 

Vote positif 0 Vote négatif

O

OOLIVE

XLDnaute Occasionnel

• 7 Février 2018

• #7

La formule est la suivante :
Application.WorksheetFunction.Sum(Range(Cells(i, 1), Cells(i, dercol - 1)))

J'ai tenté de mettre ABS() un peu partout, en changeant également SumProduct mais :
soit rien ne se passe,
soit incompatibilité

 

Dernière édition: 7 Février 2018

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 7 Février 2018

• #8

Re,

Tu cherches la valeur absolue ou l'arrondi..?

 

Vote positif 0 Vote négatif

O

OOLIVE

XLDnaute Occasionnel

• 7 Février 2018

• #9

La valeur absolue.
Il y a des + et des - dans ma plage; j'ai besoin que des valeurs absolues

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 7 Février 2018

• #10

Re,

As tu besoin de garder les valeurs négatives à le suite du calcul ?

 

Vote positif 0 Vote négatif

O

OOLIVE

XLDnaute Occasionnel

• 7 Février 2018

• #11

Re,

Idéalement, oui.
Mais si je n'ai pas d'autres solutions...

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Février 2018

• #12

Bonsoir le fil, le forum

Tes OK chez moi

VB:

Sub test_Somme_ABS()
'à adapter au niveau de la variable Lig selon usage
Dim Lig&
Lig = 1
MsgBox Application.SumIf(Rows(Lig), ">0") - Application.SumIf(Rows(Lig), "<0")
End Sub

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 7 Février 2018

• #13

Re,

Bonsoir Staple ,

Ou comme ça :

VB:

Sub Macro1()
For i = 2 To Range("A65535").End(xlUp).Row
dercol = Range("IV" & i).End(xlToLeft).Column
For j = 1 To dercol
y = y + Abs(Cells(i, j))
Cells(i, dercol + 1) = y
Next j
y = 0
Next i
End Sub

A+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Février 2018

• #14

Bonsoir Calvus

Quand je peux éviter une boucle, j'évite la boucle

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 7 Février 2018

• #15

Coucou mon ami,

Staple1600 à dit:

Quand je peux éviter une boucle, j'évite la boucle

Cliquez pour agrandir...

Ça c'est parce que t'as plus de cheveux !

 

Vote positif 0 Vote négatif