Discussion :

[jean1vba2013]

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 :

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

[Igloobel]

bonjour

cela me parrait à priori normal puisque tu selectionne tout

Code :

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

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

[keygen08]

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