Discussion :

[Rrrroh]

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)

[Potzo]

Je pense que ca peut faire l'affaire. J'ai pas teste donc ca reste a voir.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim cmpt as Long
 
DerniereligneR = Feuilreçu.Cells(Rows.Count, "A").End(xlUp).Row
DerniereCol = Feuilreçu.Cells(4, Columns.Count).End(xlToLeft).Column
 
For ligne = 1 To DerniereligneR
  For colonne = 1 To DerniereCol
     If colonne = DernierCol Then
        Cells(ligne,colonne).Value = cmpt
        cmpt = 0
    Else cmpt = cmpt + Cells(ligne,colonne)
  Next colonne
Next ligne

[Rrrroh]

Pas bête du tout,
je te remercie!!

[fring]

Bonjour,

Une autre possibilité afin d'éviter une double boucle ce qui devrait accélérer un peu l'exécution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
DerniereligneR = Feuilreçu.Cells(Rows.Count, 1).End(xlUp).Row
DerniereCol = Feuilreçu.Cells(4, Columns.Count).End(xlToLeft).Column
 
For i = 5 To DerniereligneR
    Set Rng = Feuilreçu.Range(Feuilreçu.Cells(i, 4), Feuilreçu.Cells(i, DerniereCol))
    Feuilreçu.Cells(i, DerniereCol + 1) = Application.WorksheetFunction.Sum(Rng)
Next i

Potzo, attention le résultat de ta variable cmpt va écraser la valeur de la dernière colonne