Calcul sous Excel

Bonjour
j'aimerais fait quelque chose de simple à première vue mais qui me pose problème.
j'ai essayé de transcrire un calcul de 2 cellule ou d'une plage de cellule sous VBA:

Code:

---

Range("B17").FormulaR1C1 = "=SOMME(R3C-R2C)"

---

Code:

---

1 2 3 4 5 6 7 8

Cells(3, 2).Select cell_debut = ActiveWindow.RangeSelection.Address   Cells(nbr_lignes_feuille, 2).Select cell_fin = ActiveWindow.RangeSelection.Address   Cells(17, 2).value = "=SOMME(" & cell_debut & ":" & cell_fin & ")"

---

Ces 2 codes affiche dans la feuille de calcul : #NOM? :?

Quelqu'un sais comment faire ?
Merci :)

Salut,

il ya une chose que jne comprend pas dans ton programme.

qu'est ce que tu veux retrouver dans ton cells(17,2)?

parce que visiblement cell_debut et cell_fin contiennent des adresses; jne comprend pas comment tu additionnes les adresses pour avoir une valeur?

si tu peux être un peu plus clair?:D

La Cellule (17,2) doit contenir le résultat du calcul
Quand tu est dans excel dans une cellule

Code:

---

=SOMME(ADRS1:ADRS2

---

Permet de faire la somme des cellule entre les 2 adresses c'est ce que j'ai voulu faire la

Code:

---

Cells(17, 2).value = "=SOMME(" & cell_debut & ":" & cell_fin & ")"

---

essaie avec sum() a la place de somme

Mouarf, c'est ce que j'allais proposer mais j'ai une erreur

Code:

---

1 2	Cells(10, 3) = Sum(Cells(1, 1), Cells(2, 1))

---

il me dit que Sum n'est pas defini 8O

Code:

---

Cells(17, 2).value = "=Sum(" & cell_debut & ":" & cell_fin & ")"

---

ici seulement

sinon avec ta première méthode tu peux également avoir le résultat:

Code:

---

1 2	Range("B17").FormulaR1C1 = "=SUM(R3]C:R[2]C)"

---

mais l'adressage m'a l'air un peux complexe

Cool sum marche bien pour moi
ca fait quelque chose d'un peu compliqué mais ca marche

Code:

---

1 2	Cells(nbr_lignes_feuille + 1, nbr_colonne_feuille).Select ActiveCell.FormulaR1C1 = "=SUM(R5C:" & "R" & nbr_lignes_feuille & "C)"

---

Tks all