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.

[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+

[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?

[Yoyo57]

Bonjour FFGUY et le forum,

L'erreur provient des " qui sont dans un String. Pour l'éviter, double les " :

Code :

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

ActiveCell.Offset(-3, 1).FormulaR1C1 = "=Sum(Range(""E9:E"" & ActiveCell.Row - 5))"

[tototiti2008]

Bonjour FFGUY,

à tester :

Code :

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

ActiveCell.Offset(-3, 1).Formula = "=Sum(E9:E" & ActiveCell.Row - 5 & ")"

Edit : Oups, oublié une guillemet

[mercatog]

Code :

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

ActiveCell.Offset(-3, 1).Formula = "=Sum(E9:E" & ActiveCell.Row- 5 & ")" 'Attention, activecell doit être au dela de la 5ème ligne

[FFGUY]

Le probleme c est qu avec ce code, j obtiens un "#Name" dans ma feuille excel.

J ai mis tellemnt de temps a taper mon message que vous avez corrige entre temps.
Merci beaucoup pour votre aide, ca marche parfaitement maintenant.

[mercatog]

rectifie aussi à ce niveau

Code :

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

ActiveCell.Offset(-2, 1).Formula = "=F8"

[FFGUY]

J ai effectue cette correction, par contre peux tu m expliquer ce que cela change?

[mercatog]

Code :

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

Range(X).Formula= Z

Z doit être une chaîne dans le même format que celui qui doit s'afficher dans la barre de formule (y compris le signe égal) (entre guillemets).
par exemple

Code :

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

Range("A2").Formula = "=F5 + $E$6"

[FFGUY]

Je vois, merci d avior pris le temps de m expliquer>

[tototiti2008]

Bonjour,
Re,

Code :

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

Activecell.FormulaR1C1 = "=R8C6"

équivaut à

Code :

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

Activecell.Formula = "=$F$8"

En mode R1C1 les références de cellules doivent être écrites avec des R et des C

comme dans cette ligne par exemple

Code :

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

Activecell.FormulaR1C1 = "=R[-15]C[2]-R[-5]C[2]"

Si tu veux utiliser le mode A1, comme utilisé dans la feuille de calcul, il faut utiliser Formula tout court

[mercatog]

Tu peux écrire

Code :

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

Range("A2").formula = "= " & cells(i, j).address

ou autre exemple

Code :

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

Range("A2").formula = "= B2/" & cells(i, j).address

[FFGUY]

Je comprends mieux maintenant, je n avais pas saisi la facon de placer les " quand j utilise formula.

Merci pour ces precieuses precisions

Je pensais avoir compris mais lorsque j ecris ce code j ai encore une erreur, pourquoi?

Code :

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

ActiveCell.Offset(0, 1).Formula = "=F8 - F" & ActiveCell.Row - 5 & ")"

[Yoyo57]

Il n'y a pas une parenthèse de trop ??

Code :

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

ActiveCell.Offset(0, 1).Formula = "=F8 - F" & ActiveCell.Row - 5