Discussion :

[climz]

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 :

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

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

Code :

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

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

[romrai]

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?

[climz]

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

Code :

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

=SOMME(ADRS1:ADRS2

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

Code :

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

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

[chmod777]

essaie avec sum() a la place de somme

[Elstak]

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

Code :

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

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

il me dit que Sum n'est pas defini

[chmod777]

Code :

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

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

ici seulement