Discussion :

[FFGUY]

Bonjour,

J aimerais faire la somme d une colonne de taille variable qui commence toujours en E9 et qui se termine toujours en ActiveCell.Offset(-5,0). J ai tente de mettre des references absolues et relatives dans la fonction somme mais ca ne fonctionne pas, si quelqu un peut donner un petit coup de main, ca serait

Merci d'avance.

[ESVBA]

la formule ne se place pas sur la feuille ?


Toute la colonne "E" sauf les 5 dernières lignes et avant E9 :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim Rg As Range
Dim s As Double '<-à voir
Set Rg = ActiveCell.Offset(-5, 0)
 
s = 0
For Each c In Range("E9:" & Rg.Address)
   s = s + c.Value
Next
MsgBox "somme = " & s
Set Rg = Nothing

ESVBA

[FFGUY]

Merci pour ta reponse.

Le probleme c est que je ne peux pas ajouter toute la colonne car j ai d autres valeurs dans la colonne.

[ESVBA]

une question avant de corriger mais bétises : la cellule active est telle dans la colonne "E" ?

ESVBA

[FFGUY]

Non, la cellule active se situe colonne D et la derniere reference de la colonne E a ajouter est en fait ActiveCell(-5,1).


Pour Gorfael, l information ActiveCell me semblait judicieuse pour indiquer ou se situer la derniere cellule a prendre en compte.

[Patrice740]

Essaie :

Code :

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

MsgBox Application.WorksheetFunction.Sum(Range("E9:E" & ActiveCell.Row - 5))

[FFGUY]

Bonjour,

J ai essaye ce code mais j'obtiens une "compile error: Expected: end of statement"

Code :

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

1
2
3
4
5
ActiveCell.Offset(0, 1).FormulaR1C1 = "=R[-15]C[2]-R[-5]C[2]"
    ActiveCell.Offset(-1, 1).FormulaR1C1 = "=R[-1]C+R[-2]C"
    ActiveCell.Offset(-2, 1).FormulaR1C1 = Range("F8")
    ActiveCell.Offset(-3, 1).FormulaR1C1 = "=Sum(Range("E9:E" & ActiveCell.Row - 5))"

Si qqun peut m expliquer pourquoi ca ne fonctionne pas?

[Gorfael]

Salut FFGUY et le forum

J aimerais faire la somme d une colonne de taille variable qui commence toujours en E9 et qui se termine toujours en ActiveCell.Offset(-5,0).

Pas sûr de comprendre : ActiveCel est une référence qui se contrefout des données. C'est juste celle qui est active à un moment donnée. tu parles de fonction somme (c'est une référence de feuille de calcul) et d'ActiveCel (c'est une référence VBA). Si tu expliquais, sans chercher un pseudo code, peut-être qu'on serait plus efficace pour t'aider.
Par formule, ça donnerait (une possibilité) :

Code :

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

=Somme(INDIRECT("E9:E" & ligne()-5))

faire la somme de la colonne E de la ligne 9 à 5 lignes au-dessus de celle de la cellule contenant la formule.
A+