Bonjour à tous,
j'ai face à moi un problème pas bien compliqué, pourtant je ne m'en sors pas.
Je vous l'expose:
je dispose d'un tableau, simple mais volumineux (environ 10k lignes, 30 colonnes), dans lequel je souhaite simplement sommer les valeurs par ligne et placer le résultat en queue de cette ligne.
De par le nombres des données j'ai abandonné différents tests, puisque j'aimerais une macro qui tourne rapidement.
J'aimerais donc savoir si vous avez quelque chose susceptible de m'intéresser.
Le dernier code que j'ai essayé est celui ci:
j'ai essayé de l'adapter à mon problème, mais je ne comprends pas les résultats obtenus, donc je ne comprends pas mon erreur
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 DerniereligneR = Feuilreçu.Cells(Rows.Count, "A").End(xlUp).Row DerniereCol = Feuilreçu.Cells(4, Columns.Count).End(xlToLeft).Column For I = 5 To DerniereligneR Set rng = Range(Feuilreçu.Cells(I, "D"), _ Feuilreçu.Cells(I, DerniereCol).End(xlUp)) dblSum = Application.WorksheetFunction.Sum(rng) rng.Offset(I, rng.Columns.Count - 1) _ .Resize(1, 1).Value = dblSum Next I (avec dblSum as Double et rng as Range)
Je vous remercie par avance du temps que vous voudrez bien me consacrer,
bonne fin de journée
(je tiens à préciser qu'il s'agit d'une fonction qui s'intègre dans un programme assez vaste, donc s'il vous plait parlons seulement de code VBA)
Partager