XL 2013 Faire somme en bout de ligne / Colonnes dynamique

Merci infiniment pour vos solutions 🙂

J'ai pris la solution de Calvus... Plus familier sur la structure du code !

Merci encore et bonne soirée à tous

Re

OOLIVE
Rien d'étrange ou de non familier dans mon code
C'est juste la transposition en VBA de cette formule Excel
=SOMME.SI(1:1;">0")-SOMME.SI(1:1;"<0")
Et dans le code, Lig correspond ici à 1:1 dans la formule.

@Calvus
J'ai moins de cheveux qu'au soir du 18 mars 1992.
Ils avaient néanmoins repoussés, en cette fin d’après-midi du 23 avril 1999.
😉

Hello Staple1600, le forum

Je reviens sur le sujet pour un suivi final.. Je pensais pas que mon "projet" t'intéresserait.


J'ai avancé de mon côté concernant les besoins de traitement. J'ai glissé un fichier de l'avancé.
Je pense que le code est beaucoup trop fastidieux pour excel puisqu'il m'indique :



Il me manque une dernière formule à indiquer.
J'aimerais pouvoir faire le rapport suivant :
Cells(x + 1, y + 2) = Application.WorksheetFunction.Sum(Range(Cells(3, y), Cells(x + 1, y)))
'/ WsSource.Application.WorksheetFunction.Sum(Range(Cells(2, dercol + 1), Cells(x - 1, dercol + 1)))

Si jamais tu as des remarques et/ou conseils, ils seront la bienvenue ! 🙂


PS : Je sais que mon code est pas le meilleur, j'ai fais du mieux que je pouvais 😉

Bonne journée.

OOLIVE

Re
Le code n'est absolument pas fastidieux (qu'est-ce que cela signifie ????)
A tester avec ligne modifiée:

For x = 2 To Range("A65535").End(xlUp).Row - 1
Noter le -1 final

Indigeste pour Excel.. dans le sens, il n'est pas le mieux structuré!
Mais j'ai trouvé mon problème concernant l'erreur d'exécution.. Il prenait une ligne de trop (ce qui revient à faire ce que tu m'as indiqué )

J'ai modifié le code pour le compteur en bout de ligne en prenant la solution de staple1600 (le traitement est beaucoup moins long)
Cells(i, dercol + 1) = Application.SumIf(Rows(i), ">0") - Application.SumIf(Rows(i), "<0") - Abs(Cells(i, dercol).Value)

Reste plus qu'à calculer une colonne & c'est réglé 🙂

Je perds pas espoir

Suite & Fin!

Je suis enfin arrivé à bout de mes besoins.

Fichier ci-joint si ça intéresse quelqu'un!

Bonne journée à tous