Discussion :

[remi2305]

Bonjour,

J'aimerai réaliser une somme en utilisant d'une part Row Column et d'autre part des variables, j'ai cherché un peu partout mais pas moyen de savoir si c'est réalisable.

Quand je lance le code suivant :

Code :

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

 ActiveCell.Formula = "=sum( R[-1]C:cells(" & ligne & "," & colonne & "))"

J'obtiens alors dans ma ligne excel : =SOMME( L(-1)C:cells(4;13)).

Pensez vous qu'il soit possible d'obtenir =SOMME( L(-1)C: M4) ?

Merci par avance.

Rémi

[Kimy_Ire]

Bonjour remi2305,

Il faudrait surtout que tu nous dises comment tu déclares et alimentes ligne et colonne.
J'attends ton retour.

Cordialement,
Kimy

[gnain]

Si vous voulez une somme il vous faux une formule de ce type

Code :

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

ActiveCell.FormulaR1C1 = "=SUM(R[-1]C[2]:R[-1]C[4])"

supposons que la cellule active est C15
donc le numéro de la ligne de la cellule active est 15
et le numéro de la colonne de la cellule active est 3

le premier R[-1]C[2] veux dire:
R pour row, et [-1] veux dire le numéro de la ligne de la cellule active moin 1
C pour column et [2] veux dire le numéro de la colonne de la cellule active plus 2

alors R[-1]C[2] veux dire ligne : (15-1=14) et colonne : (3+2=5) ce qui fait la cellule E14

si on fait le même exercice pour R[-1]C[4] on obtient la cellule G14

ce qui donnera dans la cellule excel =SOMME(E14:G14)


maintenant si vous voulez que ce soit vos variables ligne et colonne qui apparaisse dans la cellule excel,
il faut pensé de retrancher à la variable ligne la row de la cellule active
et retranché à la variable colonne le numéro de colonne de la cellule active
pour votre formule.

en gros si vous voulez afficher =SOMME(M10:O10) dans votre cellule excel et que votre cellule active est C11 alors
en fessant le calcul expliqué plus haut la formule en vba serait

Code :

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

ActiveCell.FormulaR1C1 = "=SUM(R[-1]C[10]:R[-1]C[12])"

R[-1] parce que la ligne active est 11 et on veux 10 donc 10-11=-1
C[10] parce que de la colonne C à la colonne M il y a 10 en positif
:R[-1] même chose
C[12] parce que de la colonne C à la colonne O il y à 12 en positif

voici le code complet

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Dim Active_Cell_row As Integer
Dim Active_Cell_column As Integer
Dim ligne As Integer
Dim colonne As Integer
Dim ligne_2 As Integer
Dim colonne_2 As Integer
 
Active_Cell_row = ActiveCell.Row 'récupère le numéro de la ligne de la cellule active
Active_Cell_column = ActiveCell.Column 'récupère la colonne de la ligne de la cellule active
 
'si on veux mettre dans notre cellule excel =SOMME(M10:O10)
 
'pour M10
ligne = 10
colonne = 13
 
 
'pour O10
ligne_2 = 10
colonne_2 = 15
 
R1 = ligne - Active_Cell_row
R2 = ligne_2 - Active_Cell_row
C1 = colonne - Active_Cell_column
C2 = colonne_2 - Active_Cell_column
 
ActiveCell.FormulaR1C1 = "=SUM(R[" & R1 & "]C[" & C1 & "]:R[" & R2 & "]C[" & C2 & "])"

en espérant de vous avoir aidé un peu.

[Theze]

Bonjour,

Essai de construire ta formule de cette façon :

Code :

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

1
2
 
ActiveCell.FormulaR1C1 = "=sum(R[-1]C" & Colonne & ":R[" & Ligne & "]C" & Colonne & ")"

Les crochets [] rendent les références relatives alors adapte.

Hervé.

[gnain]

he bien je ne la savais pas celle là +1

[remi2305]

Bonjour,

Merci pour vos réponses.

Concernant le message de Kimy, je définis mes variables lignes et colonnes comme cela :

Code :

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

1
2
3
4
5
 
Range("M10").select  'par exemple
 
ligne = ActiveCell.Row
colonne = ActiveCell.Column

Je souhaite utiliser Cells(ligne, colonne) pour définir la seconde partie de ma somme car je ne pars pas toujours de la même cellule, ce qui rend impossible l'utilisation de R1C1.

Si vous avez une idée, je suis preneur.

Merci.

[Kimy_Ire]

Bonjour remi2305,

Je dois t'avouer être un peu perdu.
Peux-tu explicitement définir à la communauté ton souhait/besoin afin que nous puissions proposer une solution adapter ?

En l’occurrence, la finalité est-elle d'avoir une formule dans une cellule ou d'avoir le résultat ?
Le calcul peut, peut-être, être effectué directement dans la macro ce qui éviterait les problèmes que tu rencontres et que je ne comprends pas.

Bref, n'hésite pas à revenir vers moi !

Cordialement,
Kimy

[francis60]

Remi,

Je souhaite utiliser Cells(ligne, colonne) pour définir la seconde partie de ma somme car je ne pars pas toujours de la même cellule, ce qui rend impossible l'utilisation de R1C1.

Si tu souhaites une référence absolue enlève les crochets [ et ] des formules.

J'approuve totalement la remarque de Kimy et je me demande si tu ne pourrais pas résoudre ton problème (peu explicite) en utilisant simplement des formules Excel classiques.

Cordialement,
Francis

[Theze]

Bonjour,

Tu peux te passer de la référence R1C1 avec Cells, c'est plus facile et plus compréhensible enfin, pour moi :

Code :

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

1
2
3
4
5
 
'en référence absolue
ActiveCell.Formula = "=sum(" & Cells(Ligne, Colonne).Address & ":" & Cells(Ligne + 10, Colonne).Address & ")"
'en référence relative, pour ligne et colonne, adapter les 0 entre parenthèses
ActiveCell.Formula = "=sum(" & Cells(Ligne, Colonne).Address(0, 0) & ":" & Cells(Ligne + 10, Colonne).Address(0, 0) & ")"

mais comme le dit Kimy, si tu ne recherche que l'obtention d'une valeur, le calcul peut être fait directement dans le code.

Hervé.

[remi2305]

En essayant d'être un peu plus clair,

Je souhaite réaliser une somme en utilisant des variables :

J'ai utilisé le code suivant :

Code :

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

ActiveCell.Formula = "=Sum(cells(4," & colonne & "),cells(" & ligne2 - 1 & "," & m & "))"

Mais en dans ma feuille j'ai un #NOM, étant donné que le calcul se traduit de la façon suivante : =SOMME(cells(4;4);cells(109;7)).

Comment faire pour obtenir =Somme(C4:G109) en utilisant cells ?

Merci de vos retours.


Rémi

[francis60]

Bonjour,

Cells(ligne;colonne) est une instruction VBA qui n'est pas interprétée par Excel dans les formules de calcul, il faut la séparer par des guillemets et des &.

As-tu testé la proposition de Theze ?
A mon avis elle répond complètement à ton problème.

[Theze]

Bonjour,

De cette façon :

Code :

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

1
2
3
4
5
 
'en référence absolue
ActiveCell.Formula = "=Sum(" & Cells(4, Colonne).Address & "," & Cells(ligne2 - 1, m).Address & ")"
'en référence relative
ActiveCell.Formula = "=Sum(" & Cells(4, Colonne).Address(0, 0) & "," & Cells(ligne2 - 1, m).Address(0, 0) & ")"

Hervé

[remi2305]

Merci pour vos réponses.

J'ai réussi à résoudre mon problème grâce à vous.