Somme.si

[Watson]

Bonsoir le forum,

Dans mon code j'utilise la fonction somme.si tel décrite plus bas :
.Range('g65536').End(xlUp).Offset(0, 1).Activate
ActiveCell.FormulaR1C1 = _
'=SUMIF(R[-5071]C[-3]:R[-1]C[-3],''>0'',R[-5071]C:R[-1]C)'

Mon problème est qu'il m'arrive d'ajouter des lignes ce qui fausse le résultat car j'additionne seulement 5071 lignes.

Comment écrire la ligne de code pour quelle additionne toutes les lignes à partir de la dernière cellule non-vide.

Merci

 

[bebere]

bonsoir Watson

pour te mettre sur une piste
pour ma part ,j'oublierais au plus vite formular1c1,formula est bien plus simple
Sub test()
Dim L As Integer
With Sheets('NomFeuille')
L = .Range('g65536').End(xlUp).Row
ActiveCell.FormulaR1C1 = _
'=SUMIF(R[-' & L & ']C[-3]:R[-1]C[-3],''>0'',R[' & L & ']C:R[-1]C)'
End With

End Sub
à bientôt

 

[Watson]

Bonsoir le forum, bonsoir bebere,

Voici ce que la cellule additionne :

=SOMME.SI(H1:H5075;'>0';K5075:K10151) ?

J'ai essayé de trafique la ligne de code sans succès. Quelle est mon erreur ?

Merci

 

[bebere]

bonjour Watson,le Forum
la formule suivante
ActiveCell.FormulaR1C1 = '=SUMIF(R[-1]C[-3]:R[' & -l & ']C[-3],''>0'',R[' & -l & ']C:R[-1]C)'
ActiveCell en G15 me donne ce qui suit =SOMME.SI(D114;'>0';G1:G14)

 

[Watson]

Bonjour Bebere, le forum,

Merveilleux. MERCI