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:
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)
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

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)