XL 2013 Faire somme en bout de ligne / Colonnes dynamique

[OOLIVE]

Bonjour,

Je viens solliciter votre aide afin de m'aider à résoudre un besoin.

Chaque semaine, je reçois un fichier dans lequel j'ai un nombre indéterminé de lignes & de colonnes.

Je réussis à trouver mon nombre de lignes & de colonnes avec les variables
derlig : .end(xldown)
dercol : .end(xlright)

Pourriez-vous m'indiquer comment faire pour que:

Pour chaque ligne entre 2 à derlig
dans la cellule dercol
Somme (colonne2; colonnedercol.offset(,-1)?


Merci beaucoup.

OOLIVE

 

[phlaurent55]

Bonjour OOlive,

voir fichier joint

à+
Philippe

 

[OOLIVE]

C'est parfait !

Thanks Philippe 🙂

 

[pierrejean]

Bonjour OOLIVE

Salut Philippe

Une autre solution

 

[OOLIVE]

Autre point,

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

OOLIVE

 

[Calvus]

BonsoirOolive, Philippe, PierreJean, le forum,

ABS(Number)

Ou ABS(la formule, etc...)

A+

 

[OOLIVE]

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é

 

[Calvus]

Re,

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

 

[OOLIVE]

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

 

[Calvus]

Re,

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

 

[OOLIVE]

Re,

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

 

[Staple1600]

Bonsoir le fil, le forum

Tes OK chez moi

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

 

[Calvus]

Re,

Bonsoir Staple 😉,

Ou comme ça :

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+

 

[Staple1600]

Bonsoir Calvus

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

 

[Calvus]

Coucou mon ami,

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

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