Calcul avec vba excel

Dans la colonne a j'ai des chiffres et des cellules vides
Exemple a1: a10 = 30
Dans la cellule a11 je veux la somme
a12:a16 = 50
Dans la cellule a17 je veux la somme
il doit le faire automatiquement suite à un programme
Le problème : il aditionne toutes les valeurs, même les cellules ou il y a
formule

la procédure

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub Parcourir() Range("a1").End(xlDown).Select   Set valeurs = Range("a1", [A1].End(xlDown))   En_Colonne = ActiveCell.Column En_Ligne = ActiveCell.Row + 1 'ligne +1 While Not IsEmpty(ActiveCell.Value) Cells(En_Ligne, En_Colonne).Activate En_Ligne = En_Ligne + 1 Wend With ActiveCell   ActiveCell.FormulaR1C1 = "=sum(R[-" & valeurs.Count & "]C:R[-1]c)" ActiveCell.Select End With End Sub

---

bonjour

cela me parrait à priori normal puisque tu selectionne tout

Code:

---

Range("a1").End(xlDown).Select

---

Mais tes cellules contenant les sommes sont toujours sur les même lignes ?

si c'est le cas alors c'est ta plage qui doit être modifier et tu peux rester en formule ex:
.en 11 =somme(A1:A10)
.en 17 =somme(A12:A16)

et si en 17 tu veux la somme A1 à A16 sans A11 alors
. =somme(A1:A10;A12:A16) ou
. =somme(A11:A16)

voilà

tu dis c'est ça que tu veux

Igloobel

Bonjour
Je vais encore me faire sanctionner mais c'est clair comme de l'eau de boudin. Vous voulez la somme, la somme de quoi ? On suppose que c'est la somme de A1:a10=30 en A11 puis la somme de A12:A16=50 en A17.
Votre procédure fonctionne t-elle ou pas, qu'est est ce que vous attendez de la macro, quelle est le résultat que vous souhaiter obtenir. Vous etes sur de pas confondre somme et sous.total en A11 et A17.
sous.total(a1:a10) en A11
sous.total(a12:a16) en A17
et la somme des sous.totaux en A18 ??